Imprimir Página - Programa kill-Msn

Título: Programa kill-Msn
Publicado por: vbelles en 28 Agosto 2005, 20:52 pm

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.

Título: Re: Programa kill-Msn
Publicado por: NYlOn en 28 Agosto 2005, 21:32 pm

ak va el codigo para matar cualkier aplicacion:

Código:

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

Título: Re: Programa kill-Msn
Publicado por: programatrix en 28 Agosto 2005, 21:47 pm

Bueno, aqui tienes el programa:
Matamsn (http://es.geocities.com/reydelmundo11jorge/matamsn.zip)
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 ;)

Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: vbelles en 28 Agosto 2005, 20:52 pm