Step 1 : Copy and paste the following into Notepad...
Step2: SAVE IT AS filename.VBS AND ENJOY!
HAVE A GOOD DAY.VBS
name=inputbox("Whats your name?")
msgbox("Have a good day, ") + name
pass=inputbox("Password?")
if pass="fish" then msgbox("Correct Password!") else msgbox("Incorrect Password!")
msgbox("Hello!")
msgbox("Hello, Again!")
DO
msgbox("VIRUS!")
LOOP
msgbox("HackTool VBS - Message box maker")
msg=inputbox("Enter a message...")
msgbox(" ") + msg
msgbox("HackTool VBS - Annoying Message box maker
msg=inputbox("Enter a message...")
DO
msgbox(" ") + msg
Loop
msgbox("HackTool VBS - Calculator - *")
num1=inputbox("Number 1...")
num2=inputbox("Number 2...")
msgbox num1*num2
msgbox("HackTool VBS - Question Box")
msg=inputbox("Enter a question...")
msgb=inputbox("Enter a message box message... ( message will be before answer) ")
answer=inputbox(" ") + msg
msgbox (" ") + msg + (" ") + answer
Set shell=CreateObject("wscript.shell")
Shell.Run("Notepad.exe")
Set shell=CreateObject("wscript.shell")
pass=inputbox("Enter a Password")
if pass="1234" then Shell.Run("Notepad.exe") else msgbox("Incorrect Password!")
Set shell=CreateObject("wscript.shell")
Shell.Run("Notepad.exe")
Set shell=CreateObject("wscript.shell")
Shell.Run("MSPaint")
Set shell=CreateObject("wscript.shell")
Shell.Run("CMD.exe")
Step2: SAVE IT AS filename.VBS AND ENJOY!
HAVE A GOOD DAY.VBS
msgbox("Have a good day, ") + name
SAVE IT AS HAVE A GOOD DAY.VBS AND ENJOY!
PASSWWORD PROTECT A .VBS SCRIPT
if pass="fish" then msgbox("Correct Password!") else msgbox("Incorrect Password!")
The password for this is fish
Save it as Password.vbs And enjoy!
MAKE A MESSAGE BOX (NOTEPAD MODE)
msgbox("Hello, Again!")
To make the " hold shift and 2
Inside the (" ") Type what you want it to say
MAKE A MESSAGE BOX LOOP
msgbox("VIRUS!")
LOOP
HACKTOOL VBS - MESSAGE BOX MAKER
msg=inputbox("Enter a message...")
msgbox(" ") + msg
HACKTOOL VBS - ANNOYING MESSAGE BOX MAKER
msg=inputbox("Enter a message...")
DO
msgbox(" ") + msg
Loop
HACKTOOL VBS - CALCULATOR_*
num1=inputbox("Number 1...")
num2=inputbox("Number 2...")
msgbox num1*num2
Save it as Cal.vbs
HACKTOOL VBS - QUESTION MAKER
msg=inputbox("Enter a question...")
msgb=inputbox("Enter a message box message... ( message will be before answer) ")
answer=inputbox(" ") + msg
msgbox (" ") + msg + (" ") + answer
Save it as Question.vbs
OPEN A PROGRAM
Shell.Run("Notepad.exe")
Save it as run.vbs and enjoy!
NOTE:
Paint is known as "MSPAINT"!
This one opens notepad.
OPEN A PROGRAM IF PASSWORD IS CORRECT
pass=inputbox("Enter a Password")
if pass="1234" then Shell.Run("Notepad.exe") else msgbox("Incorrect Password!")
The text in blue is what you want the password to be.
The text in red is what program you want to open.
Save it as runpass.vbs and enjoy!
OPEN A LOT OF PROGRAMS AT ONCE
Shell.Run("Notepad.exe")
Set shell=CreateObject("wscript.shell")
Shell.Run("MSPaint")
Set shell=CreateObject("wscript.shell")
Shell.Run("CMD.exe")
THIS WILL OPEN Notepad, Paint and CMD.
Save it as Opener.vbs and enjoy.
0 comments