VBS "spammer" (1 / 1 stap)

Stap 1:. VBS bestanden met de extensie

Hier is de code

 'This sends txt via the sendkeys statement to what txtarea has focus at the time'Repeatedly until the variable 'mynum' is reachedset a = createobject("wscript.shell")mytxt=inputbox("Send what text?","Type some text","Oh Yeah!") mynum=inputbox("How many times to send the text?","spamnumber","3") myspeed=inputbox("How fast to spam..In milisecs!","delay","200") mywait=inputbox("Time to wait proir to sending the spam msg in secs","Wait?","5")msgbox("You have " & mywait & " secs to put focus on your target text area!") wscript.sleep (mywait*1000) for i=1 to mynum 'count down from mynum variable a.sendkeys (mytxt) 'Sends the text you typed in the mytxt prompt a.sendkeys ("{ENTER}") 'presses the enter key to send your text you may change it to the apropriate key that sends the msg in your chat wscript.sleep (myspeed) 'sleeps OR waits the amount of Milseconds you typed in the Mywait prompt next msgbox("Finished Spamming!") 

''

De code over is goed commentaar, te beschrijven wat er in elke regel met code doet.

Er is niet veel aan dit zoals u zien kunt, dus het is vrij begrijpelijk en hoeft niet veel uitleg.

Je kon "Copy & Paste" de code in "Kladblok" Kies "Opslaan als" selecteren "Alle bestanden" en geef deze de naam "chatspammer.vbs", of u kon enkel download het onderstaande.

Ik heb het .vbs (code)-bestand gekoppeld en wordt geupload naar deze hier instructable.

Gewoon downloaden en openen als de code wilt uitvoeren.

U kon ook "Klik met de rechtermuisknop" het bestand en kies "bewerken" selecteert u "Kladblok" te bewerken/bekijken de code.