Enviar mails con la información.

[endzel]

Hola muy buenos días gente de elhacker, soy algo nuevo o mejor dicho bastante nuevo en este foro, y tengo una duda con un mini ejecutable que estoy creando en vb 6 lo que pasa es que ya hace tiempo que no utilizaba este programa y se me han olvidado bastantes codigos, como el que les vengo a pedir ahora, estoy haciendo un ejecutable y necesito que la informacion puesta dentro de los campos creados se me envie a un mail, osea que el sujeto al poner su contraseña y usuario y al darle al boton de ok, se me envie un mail a mi mail con los datos puestos en este, si me pudieran ayudar le agradeceria demasiado, estuve buscando en el foro pero no encontre lo que necesitaba o busque mal, bueno de todas formas el post ya esta creado espero que me puedan ayudar, desde ya muchas gracias.

[MauroMasciar]

¿Y que es lo que tenes hecho hasta ahora?

[endzel]

¿Y que es lo que tenes hecho hasta ahora?

Bueno, estaba haciendo un fake para travian y lo que tengo hecho hasta ahora es.

Código [Seleccionar] Expandir


Private Sub Command1_Click()
If Text1.Text = "user" And Text2.Text = "pass" Then
ProgressBar1.Max = 100
ProgressBar1.Min = 0
ProgressBar1.Value = i
For i = 0 To ProgressBar1.Max
ProgressBar1.Value = i
Next
End If
If ProgressBar1.Value = 100 Then
Form2.Show
MsgBox ("¡Login succesful!")
Form1.Hide
End If
End Sub


Esto seria como el login para hacerlo parecer normal.

Código [Seleccionar] Expandir


Private Sub Command1_Click()
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
Timer1.Interval = Rnd * 300 + 10
ProgressBar1.Value = ProgressBar1.Value + 2
Label9.Caption = ProgressBar1.Value & "%"
If Label9.Caption = 100 & "%" Then
MsgBox "¡Injection completed!", vbInformation + vbDefaultButton1, "Travian 4"
End If
End Sub


Y esto seria el form2 que contiene un poco(casi nada) del codigo del ejecutable.



Aproposito, como puedo hacer spoilers?

[79137913]

HOLA!!!

Código (vb) [Seleccionar] Expandir

ub SendEmail()

Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields

schema = "http://schemas.microsoft.com/cdo/configuration/"
Flds.Item(schema & "sendusing") = 2
Flds.Item(schema & "smtpserver") = "smtp.gmail.com"
Flds.Item(schema & "smtpserverport") = 465
Flds.Item(schema & "smtpauthenticate") = 1
Flds.Item(schema & "sendusername") =  Username@gmail.com
Flds.Item(schema & "sendpassword") = password
Flds.Item(schema & "smtpusessl") = 1
Flds.Update

With iMsg
.To = To
.From = username@gmail.com
.Subject = "Mail from gmail"
.HTMLBody = "Test message using CDO in vb6 from Gmail smtp"
Set .Configuration = iConf
.Send
End With

Set iMsg = Nothing
Set iConf = Nothing
Set Flds = Nothing

End Sub

P.D: Endzel: Te dejo el siguiente codigo, pero como es medio peligroso dejarlo asi nomas vas a tener que seleccionar el texto de abajo para leerlo .


LLL          AAAA     MMMM   MMMM  MMMM   MMMM  EEEEEE  RRRRR 
LLL         AA   AA   MM MM MM MM  MM MM MM MM  EE         RR    RR 
LLL        AA     AA  MM  MMM   MM  MM  MMM   MM   EEEE     RRRRR 
LLL        AAAAAAA MM    M      MM  MM   M      MM   EE         RR   RR 
LLLLLLL  AA      AA MM            MM  MM            MM  EEEEEE  RR     RR



GRACIAS POR LEER!!!

[MauroMasciar]

P.D: Endzel: Te dejo el siguiente codigo, pero como es medio peligroso dejarlo asi nomas vas a tener que seleccionar el texto de abajo para leerlo .


LLL          AAAA     MMMM   MMMM  MMMM   MMMM  EEEEEE  RRRRR  
LLL         AA   AA   MM MM MM MM  MM MM MM MM  EE         RR    RR  
LLL        AA     AA  MM  MMM   MM  MM  MMM   MM   EEEE     RRRRR  
LLL        AAAAAAA MM    M      MM  MM   M      MM   EE         RR   RR  
LLLLLLL  AA      AA MM            MM  MM            MM  EEEEEE  RR     RR

Hiciste bien en esconderlo de esa manera chico
@endzel se nota que tenes que seguir investigando, dejándolo como lo dejo @79137913 uno podría avivarse, descompilar el .exe y ver tu usuario y contraseña del GMail o Mail que le pongas.

Aparte, robar cuentas de Travian? Pfff
¿Y para que las necesitas?