Best 5 Notepad Tricks (Pranks)
1. Matrix Coding
Open Notepad > Paste the Following code > Save it as Matrix.bat
@echo off
color 02
:tricks
echo %random%%random%%random%%random%%random%%random%%random%%random%
goto tricks
2. Keyboard types Automatically
Open Notepad > Paste the Following code > Replace "This is a Virus" with Any Text > Save it as Trick.VBS
Set wshShell = wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "This is a Virus. You have been infected."
loop
3. Continuously Eject CD/DVD Tray
Open Notepad > Paste the Following code > Save it as Eject.VBS
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
4. Open Notepad Infinitely
Open Notepad > Paste the Following Code > Save it as NP.Bat
@ECHO off
:top
START %SystemRoot%\system32\notepad.exe
GOTO top
5. Make your Computer Talks: BEST!
Open Notepad > Paste the following code > Save it as Talk.VBS
Launch it > Put the text you want to talk > Click OK
Dim Message, Speak
Message=InputBox("Enter Text to Talk o","Speak")
Set Speak=CreateObject("sapi.spvoice")
Speak.Speak Message
HOpe you enjoy !
keep visiting !
0 comments:
Post a Comment