hacker


Ingresar con nombre de usuario, contraseña y duración de la sesión
| Portal Hacker | Editorial | Descargas | Ezine |
Inicio Ayuda Ingresar Registrarse
29 de Agosto de 2008, 08:18:43
Noticias: La 1era E-Zine de CPH ya fue liberada, encuentrala
Para ver este enlace Registrate o Inicia Sesion
> aquí

+  Foros pOrtal Hacker
|-+  Programacion
| |-+  Programación en general
| | |-+  Visual Basic (Moderadores: ranefi, crypto136, ziBboh, >> s E t H <<)
| | | |-+  matar un proceso especifico
0 Usuarios y 1 Visitante están viendo este tema. « anterior próximo »
Páginas: [1] Ir Abajo Imprimir
Autor Tema: matar un proceso especifico  (Leído 452 veces)
jackl007
NZ2
**
Desconectado Desconectado

Mensajes: 193



Ver Perfil WWW
« : 24 de Julio de 2006, 06:40:47 »

siempre me he preguntado como puedo matar un proceso especifico...
para terminar proceso de grandes amtivirus----
--- hecha e vb
En línea


Para ver este enlace Registrate o Inicia Sesion


ranefi
Moderador Global
*****
Desconectado Desconectado

Mensajes: 1,193


SELECT * FROM guapos WHERE papito_chulo = 'ranefi'


Ver Perfil WWW
« Respuesta #1 : 25 de Julio de 2006, 05:57:44 »

siempre me he preguntado como puedo matar un proceso especifico...
para terminar proceso de grandes amtivirus----
--- hecha e vb

Hola jackl007. Aquí te dejo el código que necesitas.

Agregar 1 control CommandButton e insertar el siguiente código

Código:

Private Sub Command1_Click()
'----MUERETE MALDITO MESSENGER-----
    KillProcess ("msnmsgr.exe")
'----------------------------------
End Sub

Public Sub KillProcess(ByVal processName As String)
'---CAPTURA DE ERROR---
On Error GoTo ErrHandler
'----------------------
'---DECLARACIÓN DE VARIABLES---
    Dim oWMI
    Dim ret
    Dim sService
    Dim oWMIServices
    Dim oWMIService
    Dim oServices
    Dim oService
    Dim servicename
'------------------------------

'--------------------SE OBTIENEN OBJETOS--------------------
    Set oWMI = GetObject("winmgmts:")
    Set oServices = oWMI.InstancesOf("win32_process")
'-----------------------------------------------------------

'----------------------BUSCA EL PROCESO---------------------
    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
'-----------------------------------------------------------

'---------SE HACE NADA---------
    Set oServices = Nothing
    Set oWMI = Nothing
'------------------------------

'---CAPTURA DE ERROR----
ErrHandler:
    Err.Clear
'-----------------------
End Sub


Espero esto te sirva. Sólo un favor mi amigo, procura buscar un poco más y leer las reglas de esta sección ; )

Nos vemos.


PD: Este ejemplo mata el proceso del Messenger.
En línea


SELECT * FROM mejores_batos_ del_mundo WHERE id = (SELECT DISTINCT id_guapo FROM los_mas_guapos _del_mundo WHERE papito_chulo = 'ranefi')
jackl007
NZ2
**
Desconectado Desconectado

Mensajes: 193



Ver Perfil WWW
« Respuesta #2 : 26 de Julio de 2006, 01:30:46 »

gracias x tu ayuda...el code si fuciona..!
En línea


Para ver este enlace Registrate o Inicia Sesion


Páginas: [1] Ir Arriba Imprimir 
« anterior próximo »
Ir a:  


Ingresar con nombre de usuario, contraseña y duración de la sesión

Powered by SMF 1.1.5 | SMF © 2006-2008, Simple Machines LLC hacker

Juegos gratis - Articulos PHP - Juegos - Trucos - Letras - Juegos - Juegos Online