JUST 4 FUN

1.cool.bat

@echo off
color 0a
:tricks
echo %random%%random%%random%%random%%random%%random%%random%%random%
goto tricks

2.Notepadmsg.vbs

WScript.Sleep 100
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "notepad"
WScript.Sleep 100
WshShell.AppActivate "Notepad"
WScript.Sleep 500
WshShell.SendKeys "Hel"
WScript.Sleep 500
WshShell.SendKeys "lo "
WScript.Sleep 500
WshShell.SendKeys ", I"
WScript.Sleep 500
WshShell.SendKeys " am"
WScript.Sleep 500
WshShell.SendKeys " su"
WScript.Sleep 500
WshShell.SendKeys "br"
WScript.Sleep 500
WshShell.SendKeys "ata"
WScript.Sleep 500
WshShell.SendKeys " pandey."
WScript.Sleep 500
WshShell.SendKeys " Thi"
WScript.Sleep 500
WshShell.SendKeys "s is"
WScript.Sleep 500
WshShell.SendKeys " my system."
WScript.Sleep 500
WshShell.SendKeys " Do"
WScript.Sleep 500
WshShell.SendKeys " not"
WScript.Sleep 500
WshShell.SendKeys " mess"
WScript.Sleep 500
WshShell.SendKeys " wi"
WScript.Sleep 500
WshShell.SendKeys "th"
WScript.Sleep 500
WshShell.SendKeys " it"
WScript.Sleep 500
WshShell.SendKeys "  :[ "

3.TEXT2SPEECH.vbs

Dim message, sapi
message=InputBox("If you type any thing in the box below I will read it aloud ","techtimely")
Set sapi=CreateObject("sapi.spvoice")
sapi.Speak message