~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:

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:

*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

*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

*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