this loop is stoped or repeated by the Next command. will give it a number and the third will say to what it is set to. This will create a loop that runs a number of times the first. This will pauze the script for the number of milliseconds you put after it so WScript.Sleep 50 will pauze the script for 50 milliseconds that is a pauze of 1/20th of a second. This will give a variable name an object which is programmable. this case is stopped by the end if command.
This is also a switch command if the conditions are true it will execute the code block. the command its closed with a End Select command. This is a switch command it looks which value the VariableName has and if it has Name1 it will execute that code block if it has Name2 it will execute that one etc.
vbQuestion will set the icon of the box to a question mark and vbSystemModal will make sure it is on the top of your windows. This is the same as the inputbox but it will have an ok button so this is usually to remind you or give a warning I added the vbYesNo to make a Yes no dialog from it, will make sure you can only answere with the buttons yes and no. so for example in our code it will do the loop until the button vbYes is pressed else it will go back to Do. with this Until command behind the loop command it will basicly say do a loop until. the vbCrLf will make a new line of text and after the comma at the end you can put in your title. This command opens a inputbox where you can answere by putting some text in and it has multiple things you can put between the () if you just type "some text" it wil display the text in the popup you can do + and the & symbole, to add some variable to the text or to add something else as an option like the vbCrLf.
So for example if you had number = 3 it tell the program that number is 3 and you can then use it like this: This command will make a variable which basically means it will give the left side of the = sign the value of the right side. The ' command will just add a commend to your code and will not effect the way your code runs its just some text. In this case it will loop Progam = InputBox(.). This is a loop function which means that It's going to Loop the code between the Do and Loop commands. (note in this code language every new line is a new part so the codes like MsgBox and InputBox should be in one line and not in several.) Ok so its a bit complex let's just start from the top and go down to the bottom. If you want to be awesome and start learning code keep on reading my man! I get that some of you won't under stand the code so I will explain every command on it here, if you just want to be a scriptkiddy copy and past the code just go to the next section. Ok, but nice code and all but what the heck does it mean?!? If MsgBox("When you are ready click Yes" & vbNewLine & vbNewLine & "Press No To Cancel", vbYesNo + vbQuestion + vbSystemModal, "Universal SBot V.1.0") = vbYes Then
MsgBox "SBot Is Done", 1024 + vbSystemModal, "Universal SBot V.1.0" ObjShell.Popup "You've got "& i & " To click the inputbox", 1, "Countdown" Set objShell = CreateObject("Wscript.Shell") T = InputBox("How Many Times Needs It To Be Send?","Universal SBot V.1.0") Message = InputBox("What Is The Message?","Universal SBot V.1.0") MsgBox "DDosing Of " + Contact + " Is Done", 1024 + vbSystemModal, "DDos Is Done" If MsgBox("Is WhatsApp Loaded?" & vbNewLine & vbNewLine & "Press No To Cancel", vbYesNo + vbQuestion + vbSystemModal, "WhatsApp DDos") = vbYes Then Set WshShell = WScript.CreateObject("WScript.Shell") If MsgBox("You've Filled It In Correctely", 1024 + vbSystemModal, "WhatsApp DDos") = vbOk Then T = InputBox("How Many Times Needs It To Be Send?","WhatsApp DDos") Message = InputBox("What Is The Message?","WhatsApp DDos") Loop Until MsgBox("Did you choose " + Program + "?" & vbNewLine & vbNewLine & "Press No To Cancel", vbYesNo + vbQuestion + vbSystemModal, "Check Chosen Program") = vbYesĬontact = InputBox("Which Conctact Do You Want To DDos?", "WhatsApp DDos") Program = InputBox("Welcom To Universal SBot V.1.0" & vbCrLf & "Which Option Do U Like TO SBot On? Choose From:" & vbCrLf & vbCrLf & "Whatsapp = go automated to whatsapp" & vbCrLf & "Hurry Up = you've 10s to click on the input box" & vbCrLf & "All Time = you have all the time to click on the input box and then click OK" & vbCrLf & vbCrLf & "(Don't Make Any Spelling Mistakes)" ,"Universal SBot V.1.0")