Top 4 Funny Notepad Tricks

Hi friends. I am share Top 4 Funny Notepad Tricks. And all  Save as .VBS file

Top 5 Funny Notepad Tricks

Make your Computer Talks

Open Notepad Paste  code. And Save it as Talk.VBS

Dim Message, Speak
Message=InputBox("Enter Text to Talk o","Speak")
Set Speak=CreateObject("sapi.spvoice")
Speak.Speak Message

Open Notepad Infinitely

@ECHO off
:top
START %SystemRoot%\system32\notepad.exe
GOTO top

Continuously Eject CD/DVD Tray

Open Notepad 

Paste 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

Matrix Codin

Save it as Matrix.bat

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