Message Passing:*WildCard*
~It gets Really Wild when we use WildCard,Just try is this Code below:
Set wshShell =CreateObject("WScript.Shell")
wshShell.appactivate("*")
do
wshShell.sendkeys "Hello World"
loop
Here is the Screen Shot:
Message Passing:
You can easily pass a message to any window from a Vbscript,Use the following code to send message to Notepad(new file)
Set wshShell =CreateObject("WScript.Shell")
wshShell.appactivate("Untitled - Notepad")
wshShell.sendkeys "Hello World"
wshshell.sendkeys "{SCROLLLOCK}"
Instruction:
1.Copy in Notepad and save with .vbs extension
2.Open a new file in Notepad.
3.Run the saved .vbs file.
Here is the Screen Shot:
Turn your Keyboard Lights into Disco Lights:
*General Instruction:Copy the code and save it with .vbs extension and double click it.To terminate the process end Wscript.exe in processes from Task Manager.
Set wshShell =CreateObject("WScript.Shell")
do
wscript.sleep 200
wshshell.sendkeys "{CAPSLOCK}"
wscript.sleep 100
wshshell.sendkeys "{NUMLOCK}"
wscript.sleep 50
wshshell.sendkeys "{SCROLLLOCK}"
loop
Make your XP Speak :
*General Instruction:Copy the code and save it with .vbs extension and double click it.To terminate the process end Wscript.exe in processes from Task Manager.
Dim msg, sapi
msgbox("Turn on de speakers:-)")
msg1 = InputBox("enter")
Set sapi=CreateObject("sapi.spvoice")
sapi.Speak msg1
Vbscript to Eject the Cd
*General Instruction:Copy the code and save it with .vbs extension and double click it.To terminate the process end Wscript.exe in processes from Task Manager.
Set o = CreateObject("wmplayer.ocx" )
Set a = o.cdromCollection
a.item(0).Eject
ORKUT Logout Script:
Too bored place dis code in ur friends scrap book,just for fun:-)
-------------------------------------------------------------------------------------
