Jww/etc/sendkeys

Top / Jww / etc / sendkeys

2017-11-26 (日) 22:23:54 (2341d)

例としてJWLの切り替え

set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.AppActivate "jw_win"
WScript.Sleep 200
WshShell.SendKeys "%S"
WScript.Sleep 50
WshShell.SendKeys "F"
WScript.Sleep 50
WshShell.SendKeys "R"
WScript.Sleep 200
WshShell.SendKeys "{TAB}"
WScript.Sleep 200
WshShell.SendKeys "{DOWN}"
WScript.Sleep 200
WshShell.SendKeys "{DOWN}"
WScript.Sleep 200
WshShell.SendKeys "{ENTER}"
WScript.Sleep 200
WshShell.SendKeys "+{TAB}"
WScript.Sleep 200
WshShell.SendKeys "JW_WIN.JWL"
WScript.Sleep 200
WshShell.SendKeys "%O"

sendkeysのコマンド類は外部変形用エクセルVBAの「sendkeys」の項を参照。

最新の20件