DimWshShellSet WshShell=WScript.CreateObject("WScript.Shell")
WshShell.SendKeys "%"
WScript.Sleep 1000
WshShell.SendKeys "{ENTER}"
直接分开并暂停一秒就行了
Set Wshell=CreateObject("WScript.Shell")Wshel.SendKeys {F1} '发送F1'其它的类似'VBS不能发送WIN这个键。只能用组合键代替Wshel.SendKeys "{CTRL}+{ESC}"