Porque me late que no entendí.
![:rolleyes: :rolleyes:](https://forum.elhacker.net/Smileys/navidad/rolleyes.gif)
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes Menú'[SNIP]
servicename = LCase(Trim(CStr(oService.Name) & ""))
If InStr(1, servicename, LCase(processName), vbTextCompare) > 0 Then
'[SNIP]
# Cuando te loggeas correctamente
$sSession{ID} = true;
# Cuando cierras session correctamente
$sSession{ID} = false;
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
'# http://www.configurarequipos.com/truco450.html
KillProcess ("WiNwOrD.exe")
KillProcess ("winword.exe")
KillProcess ("WINwORD.exe")
Microsoft Windows XP [Versión 5.1.2600]
(C) Copyright 1985-2001 Microsoft Corp.
C:\Documents and Settings\Alex>start winword
C:\Documents and Settings\Alex>start WinWord
C:\Documents and Settings\Alex>start WiNwOrD
C:\Documents and Settings\Alex>