E ai BZ!!!

Como usar o vb para bloquiar um sofware? - estou usando o shell ("c:/caminho/nome.exe -remove") só não sei se é a melhor forma. Não achei nada no site.

Obrigado desde já pela atenção. 

Olhe,

Como assim bloquear ? Você está querendo que ele não seja aberto ?

Espero que possa responder!

Atém mais,

Atenciosamente,
Marcus Vinícius

Se quiser entrar em contato comigo é só me enviar um e-mail para Msmarcus@hotmail.com que em breve estarei entrando em contato contigo.

 

Vamos lá quando eu abro o windows carraga um programa também e este ocupa a porta com1 eu precisso derruba-lo para usar a porta com1 com o meu aplicativo em vb.

 Para isso eu pergunto. Não quere que o programa sejá carregado blz?

Olhe,

Isto pode ser possivel sim,
Mas desde que você saiba o nome do arquivo ( que se localiza na barra de titulo do Aplicativo )

Irei te passar um código abaixo, veja se ele pode te ajudar.

Private Sub Timer1_Timer()
Dim winHwnd As Long
Dim RetVal As Long
winHwnd = FindWindow(vbNullString, "Windows Media Player") 'Titulo do arquivo

Debug.Print winHwnd
If winHwnd <> 0 Then
    RetVal = PostMessage(winHwnd, WM_CLOSE, 0&, 0&)
    Form1.Show
    msg = "O Adminstrador deste computador te vetou de iniciar o Media Player"
    MsgBox msg, vbExclamation + vbOKOnly, "Proteção WIndows"
    If RetVal = 0 Then
    End If
Else
End If
End Sub

'Neste código que estou te enviando é fácil
Eu coloquei para ele bloquear o Windows Media Player quando ele for inicializado!

Tipo... faça uns testes ai na sua casa!

Até mais,

Espero que esta ajuda tenha te ajudado ao bastante!

Atenciosamente,
Marcus Vinícius

Em caso de problemas com a dica, envie um e-mail para Msmarcus@hotmail.com
Que em breve estarei entrando em contato contigo.

 

Minhas desculpas ...

Eu esqueci de uma coisa...rsss

crie um modulo e adicione este código da API "FiNdWinDoW"


Declare Function FindWindow Lib "user32" Alias _
"FindWindowA" (ByVal lpClassName As String, _
ByVal lpWindowName As String) As Long
Declare Function PostMessage Lib "user32" Alias _
"PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, _
ByVal wParam As Long, lParam As Any) As Long
Public Const WM_CLOSE = &H10

 

Até mais,

Em caso de problemas com a dica é só entrar em contato.

Atenciosamente,
Marcus Vinícius

Se quiser entrar em contato comigo me envie um e-mail para Msmarcus@hotmail.com
Que em breve estarei entrando em contato contigo.

 

Msmarcus_RJ
      Agradeço pela sua ajuda e éra exatamente o que eu queria Obrigado.