Rotating Autopilot Chatroom Bot

This is a neat little VBS/notepad script I've been using for a year or two that I use to automate chatroom messages. I have it set to send 4 different messages, in defined intervals. Chatrooms are easy traffic, especially if they are busy. Set it and forget it. Example: "Hey babes, I'm getting ready to take requests ;) Kik me at [KIK ID]" (10 mins later) "Horny af. Getting blown up with PMs. Kik me babes [KIK ID]" (10 mins later) "Getting off my comp. Anyone wanna kik? [KIK ID]" (10 mins later) "This is getting lame. Kik me instead [KIK ID]" I used to use this in chat avenue and just let it run all week on my spare PC. Before running script, send some chats and wait for someone to PM you. A popup Accept/Deny request will pop up. There's a checkbox to remember you setting. Put a checkmark there. Deny. Now you shouldn't get anymore popups. Then run the script. How's how it works: The script will ask you for: -Chat message -Chat message -Chat message -Chat message -How many spam messages do you want to send? (i type '1000') -How much time between commands? ( i type "300000" which is 5 mins) -How many SECONDS do you need to get to the chat box? (this is basically how much time do you need to get to the chat box after clicking OK. I usually just type "10", seconds and then click my cursor in the chat box. Then it runs on autopilot. Here is the script below: ------------------------------ set shell = createobject ("wscript.shell") strtext1 = inputbox ("Write down your message you like to spam 1/4") strtext2 = inputbox ("Write down your message you like to spam 2/4") strtext3 = inputbox ("Write down your message you like to spam 3/4") strtext4 = inputbox ("Write down your message you like to spam 4/4") strtimes = inputbox ("How many spam messages do you want to send?") strspeed = inputbox ("How much time between commands? (1000 = one per sec, 100 = 10 per sec etc)") strtimeneed = inputbox ("How many SECONDS do you need to get to the chat box?") If not isnumeric (strtimes & strspeed & strtimeneed) then msgbox "You entered something else then a number on Times, Speed and/or Time need. shutting down" wscript.quit End If strtimeneed2 = strtimeneed * 1000 do msgbox "You have " & strtimeneed & " seconds to get to your input area where you are going to spam." wscript.sleep strtimeneed2 for i=0 to strtimes shell.sendkeys (strtext1) wscript.sleep strspeed shell.sendkeys ("{enter}") wscript.sleep strspeed shell.sendkeys (strtext2) wscript.sleep strspeed shell.sendkeys ("{enter}") wscript.sleep strspeed shell.sendkeys (strtext3) wscript.sleep strspeed shell.sendkeys ("{enter}") wscript.sleep strspeed shell.sendkeys (strtext4) wscript.sleep strspeed shell.sendkeys ("{enter}") wscript.sleep strspeed Next returnvalue=MsgBox ("Want to spam again with the same info?",36) If returnvalue=6 Then Msgbox "Ok Spambot will activate again" End If If returnvalue=7 Then msgbox "Spambox is shutting down" wscript.quit End IF loop ------------------------------ Save it in a notepad document and change extension to .VBS and then click it. When the script is running on autopilot, this what the script will do on its own: Type in the message WAIT 5 mins input "return/enter" to send the chat WAIT 5 mins Type in the next message WAIT 5 mins input "return/enter" to send the chat This loops as many times as you tell it to. TO STOP THE SCRIPT: Open up task manager and click on Processes tab Kill/Terminate 'WScript.exe' When you want to use it again, just double click on the VBS script file again. Hope this helps spark some creativity. As always, think outside the box. Work smarter, not harder.