Notepad Tricks And Pranks
Notepad Tricks and Pranks
Make your Computer Talks
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
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
color 02
:tricks
echo %random%%random%%random%%random%%random%%random%%random%%random%
goto tricks
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
do
wscript.sleep 100
wshshell.sendkeys "This is a Virus. You have been infected."
loop
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
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
Open Notepad Infinitely
Open Notepad > Paste the Following Code > Save it as NP.Bat
@ECHO off
:top
START %SystemRoot%\system32\notepad.exe
GOTO top
:top
START %SystemRoot%\system32\notepad.exe
GOTO top
Comments
Post a Comment