Programa kill-Msn

[vbelles]

Buenas yo quisiera una utilidad que se inicie al arrancar windows y que cierre el proceso del messenger y si se le vuelve dar, se cierre a los 5 o 10 segundos por ejemplo.

He escrito a ver si existia ya un programa pero me han dicho que si alguien me pudiera hacer la aplicación, lo del arranque automático lo tengo yo solucionado porque se tocar el registro de windows y puedo hacer el arranque con el sistema.

Gracias.

[NYlOn]

ak va el codigo para matar cualkier aplicacion:

Código [Seleccionar] Expandir


Private Sub Command1_Click()

KillProcess ("msnmsgr.exe") 'mata el proceso del MSN 6 en adelante, el 5 tiene otro nombre... msnmsgs.exe creo que es, fijate xD

End Sub


Public Sub KillProcess(ByVal processName As String)
On Error GoTo ErrHandler
Dim oWMI
Dim ret
Dim sService
Dim oWMIServices
Dim oWMIService
Dim oServices
Dim oService
Dim servicename
Set oWMI = GetObject("winmgmts:")
Set oServices = oWMI.InstancesOf("win32_process")
For Each oService In oServices

servicename = LCase(Trim(CStr(oService.Name) & ""))

If InStr(1, servicename, LCase(processName), vbTextCompare) > 0 Then
ret = oService.Terminate
End If

Next

Set oServices = Nothing
Set oWMI = Nothing


ErrHandler:
Err.Clear
End Sub


espero que te sirva

un salud0

[programatrix]

Bueno, aqui tienes el programa:
Matamsn
Cada 3 segundos mira si el proceso del msn está activo y si lo está lo cierra, para cerrar este programa tienes que usar el administrador de tareas.
Saludos