Tuesday, September 13, 2016

VBS Notepad Fun Tricks

VBS Notepad Fun Tricks


.VBS - Notepad Fun Tricks 

salam from mohammed faizan

 salam from mohammed faizan

Step 1Copy 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.
 

Go to link Download

No comments:

Post a Comment