Aquí es
solo copiar pegar en el Bloc de notas guardar como anything.vbs, donde cualquier cosa es cualquier nombre le quiere.
Si utilizas hotmail sólo encontrar el smtp.gmail.com etiquetado de líneas y cambiar a la de hotmail o lo que sea uno que utilice.
Dim usuario
Dim paso
Dim nombre
Entrada DIM
Dim entrada2
Dim Input3
X = MsgBox ("Bienvenido. Iniciar sesión haga clic OK e ingrese su G-mail y paso ", 0,"EmailSpamBot V1.0")
Usuario = InputBox ("introduce tu G-mail:")
Pasar = InputBox ("contraseña:" & vbCrLf & "" & vbCrLf & "por favor tenga en cuenta las contraseñas no se almacenan en esta secuencia de comandos y mayúsculas y minúsculas.)
Nombre = InputBox ("Ingrese nombre:")
Entrada = InputBox ("ingrese el e-mail de la víctima:")
Entrada2 = InputBox ("entrar el título:")
Input3 = InputBox ("mensaje de Enter:")
EmailSubject = ("" & entrada2)
EmailBody = ("" & Input3)
"Const EmailFrom =" "
"Const EmailFromName =" "
Const SMTPServer = "smtp.gmail.com"
"Const SMTPLogon =" "
"Const SMTPPassword =" "
Const SMTPSSL = True
Const SMTPPort = 465
CdoSendUsingPickup const = 1 ' enviar un mensaje utilizando el directorio de recogida de los local servicio de SMTP.
CdoSendUsingPort const = 2 ' enviar el mensaje mediante SMTP sobre redes de TCP/IP.
Const cdoAnonymous no = 0' autenticación
CdoBasic const = 1' BASIC claro autenticación de texto
Const cdoNTLM = 2' NTLM, autenticación propietaria de Microsoft
' En primer lugar, crear el mensaje
Establecer objMessage = CreateObject ("CDO. Mensaje")
objMessage.Subject = EmailSubject
objMessage.From = "<" & usuario & Nombre & ">"
objMessage.To = "<" y entrada & ">"
objMessage.TextBody = EmailBody
' En segundo lugar, configurar el servidor
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") = SMTPServer
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = cdoBasic
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusername") = usuario
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendpassword") = Pass
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = SMTPPort
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = SMTPSSL
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
objMessage.Configuration.Fields.Update
hacer
objMessage.Send
lazo
no dude en dejar comentarios diciéndome que os parece, que mejorar ect.
