VBS Virus ေရးနည္းမ်ား

 VBS Virus ေရးနည္းမ်ား (MOnster Technology)YTZK

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!

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.


 (MOnster Technology)YTZK