Technobuz

~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