Notepad tricks

IT IS NOT MY RESPONSIBILITY IF SOMETING BAD HAPPENS TO ANY DEVICE

Have a good day.vbs

Copy and paste the following into Notepad...

 

 

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

Copy and paste the following into Notepad...

 

 

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)

Copy and paste the following into Notepad...

 

 

msgbox("Hello!")

msgbox("Hello, Again!")

 

 

To make the "  hold shift and 2

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

Save it as Message.vbs and Enjoy!

make a message box loop

Copy and paste the following into Notepad...

 

DO

msgbox("VIRUS!")

LOOP

 

 

Save it as Loop.vbs and Enjoy!

hacktool vbs - Message box maker

Copy and paste the following into Notepad...

 

msgbox("HackTool VBS - Message box maker")

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

msgbox(" ") + msg

 

Save it as HackTool VBS Message Maker.vbs

HACKtool vbs - annoying message box maker

Copy and paste the following into Notepad...

 

msgbox("HackTool VBS - Annoying Message box maker

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

DO

msgbox(" ") + msg

Loop

 

Save it as Annoy msg.vbs

hacktool vbs - calculator_*

Copy and paste the following into Notepad...

 

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

asK A QUESTION (NOTEPAD MODE)

Copy and paste the following into Notepad...

 

whatyouwanthere=inputbox("YOUR QUESTION HERE")

msgbox (whatyouwanthere)

 

NOTE:

the text in blue must be the same.

open a program

Copy and paste the following into Notepad...

 

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

Copy and paste the following into Notepad...

 

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!

NOTE:

THIS IDEA WAS FROM NOTEPADCODES1, BUT I DID NOT USE ANY HELP OR "WHAT TO DO" ON IT!

how to crash your computer

WARNING - Doing this could result in breaking your computer!

IT IS NOT MY RESPONSIBILITY IF SOMETHING GOES WRONG.

we all know that you can crash your pc by going to youareanidiot.org, but this is just like it - without the virus - and, loads of pop-ups!

Copy and paste the following into Notepad...

Set shell=CreateObject("wscript.shell")

do

Shell.Run("Notepad.exe")

loop

save it as crash.vbs and enjoy breaking your computer.

make a cd-rom virus

WARNING - Doing this could result in crashing your computer!

IT IS NOT MY RESPONSIBILITY IF SOMETHING GOES WRONG.

DO NOT USE THIS FILE AS A VIRUS - JUST FOR EDUCATIONAL USE ONLY!

 

Copy and paste the following into Notepad...

 

 

DO
Set owMP = CreateOBject("WMPlayer.OCX.7")
Set colCDROMs = oWMP.cdromCollection
if colCDROMs.Count >= 1 then
for i= 0 to colCDROMs.Count - 1
colCDROMS.Item(i).Eject
Next ' cdrom
End If
loop

 

 

And save it as CdRomVirus.vbs And enjoy.

 

WITH THANKS TO COMPUTER-TRICKER FOR THE

CD ROM OPENER SCRIPT - I JUST MADE IT LOOP!

open a lot of programs at once

Copy and paste the following into Notepad...

 

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.