Como terminar un proceso con vb6.0

[franko1809]

Bueno de esta manera funciona bien, pero es posible hacerlo dede vb sin necesidad de usar el taskkill desde la funcion shell

Código:

Dim XC As String
XC = Shell("taskkill /IM msnmsgr.exe /F")

Por ejemplo hay funciones que hacen estas tareas y no necesariamente atravez de la funcion shell

Código:

'Creamos la carpeta
MkDir ("C:\cstempCar")

'Ocultamos la carpeta
SetAttr "C:\carpeta_oculta", vbHidden

[David]

Revisa si te sirve esto:
http://www.forosdelweb.com/1134289-post74.html

[franko1809]

Gracias por el dato tio voy a probarlo

Por otro lado encontre este articulo que utiliza wmi

El hecho es que lo entiendo a medias logre, reducir el codigo y quedo asi, es posible reducirlo mas, para entenderlo mejor, voy a revisar tu post

Código:

Option Explicit
' Variables para usar Wmi
Dim ListaProcesos As Object
Dim ObjetoWMI As Object
Dim ProcesoACerrar As Object

Private Function MatarProceso(StrNombreProceso As String) As Boolean
MatarProceso = False
Set ObjetoWMI = GetObject("winmgmts:")

If IsNull(ObjetoWMI) = False Then
   'instanciamos la variable
   Set ListaProcesos = ObjetoWMI.InstancesOf("win32_process")

   For Each ProcesoACerrar In ListaProcesos
       If UCase(ProcesoACerrar.Name) = UCase(StrNombreProceso) Then
          'Matamos el proceso con el método Terminate
          ProcesoACerrar.Terminate (0)
          MatarProceso = True
       End If
   Next
End If
'Elimina las variables
Set ListaProcesos = Nothing
Set ObjetoWMI = Nothing

End Function

Private Sub Command1_Click()
 'Llamamos a MatarProceso pasandole el nombre
 MatarProceso Text1
End Sub

saludos

[Keyenight]

Bueno yo uso esta forma:

Código:

Public Proceso As ArrayList = New ArrayList(GetProcessesByName("NombreDelProceso"))

lo Invocas como varible luego haces for

Código:

For Each I As Process In Proceso
I.Kill()
Next

Aunque la funcion de David El Grande está muy buena

[David]

Hola, Keyenight.

Ese código es para Visual Basic .NET, mientras que de lo que venimos hablando es de Visual Basic 6.

[seba123neo]

Hola, mirate las api's TerminateProcess y demas...

saludos.