.VBS - Notepad Fun Tricks

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

SAVE IT AS HAVE A GOOD DAY.VBS AND ENJOY!

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!

MAKE A MESSAGE BOX (NOTEPAD MODE)

msgbox("Hello!")

msgbox("Hello, Again!")

To make the "  hold shift and 2

Inside the (" ") Type what you want it to say

MAKE A MESSAGE BOX LOOP

DO

msgbox("VIRUS!")

LOOP

HACKTOOL VBS - MESSAGE BOX MAKER

msgbox("HackTool VBS - Message box maker")

msg=inputbox("Enter a message...")

msgbox(" ") + msg

HACKTOOL VBS - ANNOYING MESSAGE BOX MAKER

msgbox("HackTool VBS - Annoying Message box maker

msg=inputbox("Enter a message...")

DO

msgbox(" ") + msg

Loop

HACKTOOL VBS - CALCULATOR_*

msgbox("HackTool VBS - Calculator - *")

num1=inputbox("Number 1...")

num2=inputbox("Number 2...")

msgbox num1*num2

Save it as Cal.vbs

HACKTOOL VBS - 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

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.

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!

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.