IWshShell2.SendKeys Method

[José Roca]

The following code runs the Windows calculator and sends it keystrokes to execute a simple calculation.

JScript

Code Select Expand


var WshShell = WScript.CreateObject("WScript.Shell");
WshShell.Run("calc");
WScript.Sleep(100);
WshShell.AppActivate("Calculator");
WScript.Sleep(100);
WshShell.SendKeys ("1{+}");
WScript.Sleep(500);
WshShell.SendKeys("2");
WScript.Sleep(500);
WshShell.SendKeys("~");
WScript.Sleep(500);
WshShell.SendKeys("*3");
WScript.Sleep(500);
WshShell.SendKeys("~");
WScript.Sleep(2500);


VBScript

Code Select Expand


set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "calc"
WScript.Sleep 100
WshShell.AppActivate "Calculator"
WScript.Sleep 100
WshShell.SendKeys "1{+}"
WScript.Sleep 500
WshShell.SendKeys "2"
WScript.Sleep 500
WshShell.SendKeys "~"
WScript.Sleep 500
WshShell.SendKeys "*3"
WScript.Sleep 500
WshShell.SendKeys "~"
WScript.Sleep 2500


PowerBASIC

Code Select Expand


DIM pWsh3 AS IWshShell2
DIM lExitCode AS LONG
pWsh2 = NEWCOM "WScript.Shell"
IF ISNOTHING(pWsh2) THEN EXIT FUNCTION
lExitCode = pWsh2.Run(UCODE$("calc"))
SLEEP 100
pWsh2.SendKeys UCODE$("1{+}")
SLEEP 500
pWsh2.SendKeys UCODE$("2")
SLEEP 500
pWsh2.SendKeys UCODE$("~")
SLEEP 500
pWsh2.SendKeys UCODE$("*3")
SLEEP 500
pWsh2.SendKeys UCODE$("~")
SLEEP 2500