Notepad Tricks : Some cool and awesome tricks

by Unknown 1:47 AM 0 comments

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

Thankyou share and Enjoy