![]() 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") ![]()
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |