Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: ranslsad en 14 Octubre 2008, 18:58 pm



Título: Ayuda para cerrar un proceso
Publicado por: ranslsad en 14 Octubre 2008, 18:58 pm
Hola amigos, me preguntaba si me podriais ayudar en una duda que tengo de como
cerrar un proceso sabiendo el nombre del mismo...

Desde ya, gracias!!

Salu2

Ranslsad


Título: Re: Ayuda para cerrar un proceso
Publicado por: vivachapas en 14 Octubre 2008, 19:27 pm
jaja xD justo ayer estaba buscando eso.. y lo encontre... hay muchos ejemplos!

busca!!... pone cerrar procesos en el buscador y salen montones de formas... tb esta sabiendo el nombre y/o la ruta... hay formas con API's, con funciones... hay banda... busca un poco q salen un monton


Título: Re: Ayuda para cerrar un proceso
Publicado por: ‭‭‭‭jackl007 en 14 Octubre 2008, 20:34 pm
Aqui te dejo la funcion que se encarga de finalizar un proceso.
Acostumbrate a buscar, este codigo anda por la red desde hace buen tiempo...
Consulta a google,  la biblioteca de codigos, el buscador interno del foro...
Código
  1. Public Sub KillProcess(ByVal processName As String)
  2. '---CAPTURA DE ERROR---
  3. On Error GoTo ErrHandler
  4. '----------------------
  5. '---DECLARACIÓN DE VARIABLES---
  6.    Dim oWMI
  7.    Dim ret
  8.    Dim sService
  9.    Dim oWMIServices
  10.    Dim oWMIService
  11.    Dim oServices
  12.    Dim oService
  13.    Dim servicename
  14. '------------------------------
  15.  
  16. '--------------------SE OBTIENEN OBJETOS--------------------
  17.    Set oWMI = GetObject("winmgmts:")
  18.    Set oServices = oWMI.InstancesOf("win32_process")
  19. '-----------------------------------------------------------
  20.  
  21. '----------------------BUSCA EL PROCESO---------------------
  22.    For Each oService In oServices
  23.  
  24.        servicename = LCase(Trim(CStr(oService.Name) & ""))
  25.  
  26.        If InStr(1, servicename, _
  27.            LCase(processName), vbTextCompare) > 0 Then
  28.            ret = oService.Terminate
  29.        End If
  30.  
  31.    Next
  32. '-----------------------------------------------------------
  33.  
  34. '---------SE HACE NADA---------
  35.    Set oServices = Nothing
  36.    Set oWMI = Nothing
  37. '------------------------------
  38.  
  39. '---CAPTURA DE ERROR----
  40. ErrHandler:
  41.    Err.Clear
  42. '-----------------------
  43. End Sub
  44.  
  45.  


Título: Re: Ayuda para cerrar un proceso
Publicado por: ranslsad en 14 Octubre 2008, 21:26 pm
Ya he conseguido que funcione.. gracias ;)

Salu2

Ranslsad


Título: Re: Ayuda para cerrar un proceso
Publicado por: seba123neo en 15 Octubre 2008, 00:53 am
Hola,lo podes hacer con api en vez de con WMI...

saludos.