Spambot

Der Spambot spammt Nachrichten durch Einfügen der Nachricht und durch anschließendes Senden mit Enter.

Dabei kann die Nachricht, die Anzahl der Nachrichten und der zeitliche Abstand zwischen den Nachrichten eingegeben werden.

Code:

Dim s
Dim i
Dim z
Dim d
Dim t
Dim x
Set s = WScript.CreateObject("WScript.Shell") x = MsgBox("Der Spambot fuegt den Inhalt der Nachricht ein und sendet diese mit ENTER. Das wiederholt er mit einer bestimmten Geschwindigkeit. Zur Sicherheit stoppt der Spambot auch wenn noch nicht alle Nachrichten versendet wurden nach einer Minute. Spambot by m-weis.com",1+64+0,"Spambot")
if x = 2 then
WScript.Quit
End if
i = InputBox("Bitte Inhalt der Nachrichten eingeben.","Spambot")
if i = "" then
WScript.Quit
End if
z = InputBox("Bitte Anzahl der Nachrichten eingeben.","Spambot")
if z = "" then
WScript.Quit
End if
d = InputBox("Bitte Geschwindigkeit des Spammens in Millisekunden eingeben. (1 Sekunde = 1000 Millisekunden)","Spambot")
if d = "" then
WScript.Quit
End if
x=MsgBox("Nachrichten werden nach 5 Sekunden nach Klick auf OK gespammt.",1+48+256,"Spambot")
if x = 2 then
WScript.Quit
End if
WScript.Sleep 5000
d = d/2
while z > 0
z = z - 1
t = t + 1
if (t*d*2) > 60000 then
WScript.Quit
End If
s.SendKeys i
WScript.Sleep d
s.SendKeys "{ENTER}"
WScript.Sleep d
wend