Wednesday, 30 January 2013
Making Programs or funny viruses in Notepad
These all are Harmless viruses.
Trick 1.
Trick 2.
Trick 3.
These all are Harmless viruses.
What do we know about Notepad?? Just that it is a common text-only editor. It is used for creating text files, for programming that is used in DOS environment. It is an in-built text editor in Microsoft windows. We cannot put any graphics in text files created with the help of Notepad. But we don't know what we can do with the help of it. We can also use it for creating programs and having fun with friends. We can create some interesting codes with it which can be used as a source for making a friend's fool. Let us have a look over these codes:
Make keyboard to type any message: In this trick, your friends keyboard will type any message continuously. This will show the message that you have written in the code. The code for this trick is given below( the code is upto loop):
Set wshShell = wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "This is a Virus. You have been infected. "
loop
do
wscript.sleep 100
wshshell.sendkeys "This is a Virus. You have been infected. "
loop
Copy the code and save it as tricks.vbs. Send this code to your friend and force him to open this file and on opening your friend will see magic. He will need to restart the computer to stop this.
So hope you enjoy first trick.
So hope you enjoy first trick.
Create a funny virus to continuously eject CD/DVD drives: In this trick a funny virus will eject all connected optical drives and when you put it back it will again eject. The code for it is given below( code is upto loop):
Set oWMP = CreateObject("WMPlayer.OCX.7")
Set colCDROMs = oWMP.cdromCollection
do
if colCDROMs.Count >= 1 then
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next
End If
wscript.sleep 5000
loop
Set colCDROMs = oWMP.cdromCollection
do
if colCDROMs.Count >= 1 then
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next
End If
wscript.sleep 5000
loop
Copy the code given above in notepad and save it as virus.vbs and send it to your friend as e-mail attachment. This trick can be stop with the help of task manager.
Make the locks keys on keyboard to act like disco: In this trick, by using the code given below you can create a disco like pattern in keyboard keys - Num lock, caps lock and scroll-lock keys. To do this copy and paste the code given below as done above and save it as disco.vbs and do what you want to do . The code for the trick is:
Set wshShell =wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "{CAPSLOCK}"
wshshell.sendkeys "{NUMLOCK}"
wshshell.sendkeys "{SCROLLLOCK}"
loop
do
wscript.sleep 100
wshshell.sendkeys "{CAPSLOCK}"
wshshell.sendkeys "{NUMLOCK}"
wshshell.sendkeys "{SCROLLLOCK}"
loop
Same as above tricks it can also be stopped by task manager.
So these are some tricks that you can use for fun with friends. So enjoy.
If you like this post then please follow us on Facebook or like our Official Page on Facebook.
