Welcome
, let's learn some cool and awesome notepad tricks which you can enjoy practising
1)To make your pc talk
Open a text file in notepad and write:
Dim msg, sapi
msg=InputBox("Enter your text","Talk it")
Set sapi=CreateObject("sapi.spvoice")
sapi.Speak msg
Save the file with a (*.vbs) extension, it will create a VBScript File.
It will prompt you for a text when u open the file, input the text and press ok."
u will hear now what u typed..
2)Popping CD Drives
This will make the CD drives constantly pop out
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 100
loop
3)Endless Notepads
This will pop up endless notepads until the computer freezes and crashes
**Code:-
@ECHO off
:top
START %SystemRoot%\system32\notepad.exe
GOTO top
1)To make your pc talk
Open a text file in notepad and write:
Dim msg, sapi
msg=InputBox("Enter your text","Talk it")
Set sapi=CreateObject("sapi.spvoice")
sapi.Speak msg
Save the file with a (*.vbs) extension, it will create a VBScript File.
It will prompt you for a text when u open the file, input the text and press ok."
u will hear now what u typed..
2)Popping CD Drives
This will make the CD drives constantly pop out
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 100
loop
3)Endless Notepads
This will pop up endless notepads until the computer freezes and crashes
**Code:-
@ECHO off
:top
START %SystemRoot%\system32\notepad.exe
GOTO top