VBS "spammare" (1 / 1 steg)
Steg 1:. VBS fil förlängning
Här är koden
"Detta skickar txt via instruktionen SkickaTecken till vad txtarea har fokus på gång
"Flera gånger tills variabeln"mynum"nås
Ange en = createobject("wscript.shell")
mytxt = inputbox ("Skicka vad text?", "Skriv in lite text", "Oh yeah!")
MyNum = inputbox ("hur många gånger ska skicka texten?", "spamnumber", "3")
MySpeed = inputbox ("hur snabbt till spam... I milisecs!","delay","200")
mywait = inputbox ("Dags att vänta proir att skicka spam msg på torr", "Vänta?", "5")
MsgBox ("Du har" & mywait & "sekunder att sätta fokus på din text målområdet!")
WScript.Sleep (mywait * 1000)
för i = 1 till mynum ' räkna ner från mynum variabel
a.SendKeys (mytxt) ' skickar texten som du skriver i den mytxt snabbt
a.SendKeys ("(ENTER)") "trycker på enter för att skicka din text kan du ändra den till apropriate nyckeln som skickar msg i din chatt
WScript.Sleep (myspeed) "sover eller väntar mängden Milseconds du skrev i den Mywait snabbt
Nästa
MsgBox ("färdiga Spamming!")
''
Koden om är väl kommenterade, att beskriva vad varje kodrad gör.
Det finns inte mycket till detta som ni kan se, så det är ganska begripligt och behöver inte mycket att förklara.
Du kan "Kopiera & klistra in" koden i "Anteckningar" Välj sedan "Spara som" välja "Alla filer" & kalla den "chatspammer.vbs" eller du kan bara ladda ner den nedan.
Jag har bifogat .vbs (kod) fil, och laddat upp den till detta här instructable.
Helt enkelt ladda ner den och öppna den för att köra koden.
Du kan också "Högerklicka" filen och välj "Redigera" Välj sedan "anteckningar" för att redigera/Visa koden.