Skip to content

Instantly share code, notes, and snippets.

@ino46

ino46/jqskill.vbs

Created March 26, 2009 14:13
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save ino46/86119 to your computer and use it in GitHub Desktop.
Save ino46/86119 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
jqskill.vbs
Dim objWshShell
Set objWshShell = WScript.CreateObject("WScript.Shell")
objWshShell.Run "control.exe javacpl.cpl"
Do Until objWshShell.AppActivate("java コントロールパネル")
WScript.Sleep 1000
Loop
objWshShell.SendKeys "{LEFT}"
WScript.Sleep 500
objWshShell.SendKeys "{TAB}"
WScript.Sleep 500
objWshShell.SendKeys "{DOWN 10}"
WScript.Sleep 500
objWshShell.SendKeys "{RIGHT}"
WScript.Sleep 500
objWshShell.SendKeys "{DOWN 2}"
WScript.Sleep 500
objWshShell.SendKeys "^ "
WScript.Sleep 500
objWshShell.SendKeys "~"
WScript.Quit
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment