NOTEPAD TRICKS

Hi friends today I tell you some small  notepad tricks which help you to prank your friends and you will also enjoy these tricks.

•     Open notepad
•    Copy and paste following code

Dim Message, Speak
Message=InputBox(“Enter Text to Talk o”,”Speak”)
Set Speak=CreateObject(“sapi.spvoice”)
Speak.Speak Message
•    Save this file with any name with extension as .vbs eg. voice.vbs
•    Now open the saved file and have fun.



 

2.    MATRIX EFFECT
•    Open notepad
•    Copy and paste following code

@echo off
color 02
:start
echo %random% %random% %random% %random% %random% %random% %random%   %random% %random% %random%
goto start

•    Save the file with .bat extension eg. matrix.bat
•    Now open the file and see the magic.

 

3.    MAKE A LOG DIARY WITH NOTEPAD
•    Open notepad
•    Type .LOG (in capital letters) and hit enter
•    Save it with any name
•    Close it.
•    Open again and see the magic.

 

4.    WORLD TRADE CENTER WITH NOTEPAD
•    Open your Notepad
•    Type the flight number Q33N
•    Change the Font to Wingdings
•    You may change the font size.

 

5.    CONTINOUSLY EJECT CD/DVD DRIVES USING NOTEPAD TRICK

•    Open notepad
•    Copy and paste following code in notepad

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

•    Save the file with .vbs extension eg. fun.vbs
•    Open the saved file and see the magic.

 

 

 

Leave a Reply

Your email address will not be published.

Close