Some Visual Basic Script Programs

Here are some list of basic VB (Visual Basic) script programs. Which don’t require knowledge of programming languages. Everyone can run these simple Visual Basic programs on their system.

1. HAVE A GOOD DAY.VBS

name=inputbox("Whats your name?")
msgbox("Have a good day, ") + name

Save it as HAVE A GOOD DAY.VBS and Enjoy!

2. PASSWWORD PROTECT A .VBS SCRIPT

pass=inputbox("Password?")
if pass="fish" then msgbox("Correct Password!") else msgbox("Incorrect Password!")

The password for this is fish. Save it as Password.vbs and Enjoy!

3. MAKE A MESSAGE BOX (NOTEPAD MODE)

msgbox("Hello!")
msgbox("Hello, Again!")

Inside the (” “) Type what you want it to say

4. MAKE A MESSAGE BOX LOOP

DO
msgbox("VIRUS!")
LOOP

5. MESSAGE BOX MAKER

msgbox("HackTool VBS - Message box maker")
msg=inputbox("Enter a message...")
msgbox(" ") + msg

6. ANNOYING MESSAGE BOX MAKER

msgbox("HackTool VBS - Annoying Message box maker
msg=inputbox("Enter a message...")
DO
msgbox(" ") + msg
Loop

7. CALCULATOR

msgbox("HackTool VBS - Calculator - *")
num1=inputbox("Number 1...")
num2=inputbox("Number 2...")
msgbox num1*num2

Save it as Cal.vbs

8. QUESTION MAKER

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

Save it as Question.vbs

9. OPEN A PROGRAM

Set shell=CreateObject("wscript.shell")
Shell.Run("Notepad.exe")

Save it as run.vbs and enjoy!
NOTE: Paint is known as “MSPAINT”!
This one opens notepad.

10. OPEN A PROGRAM IF PASSWORD IS CORRECT

Set shell=CreateObject("wscript.shell")
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!

11. OPEN A LOT OF PROGRAMS AT ONCE

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")

This will open Notepad, Paint and CMD.
Save it as Opener.vbs and enjoy.

You will also like our another Article: Magic and Amazing Computer Tricks