Dim Ws
set Ws = CreateObject("wscript.Shell")
Ws.SendKeys "123456"
Ws.SendKeys "{enter}"
Ws.SendKeys "321654"
'要指定在按下多个其他键时,按下 SHIFT、CTRL 和 ALT 的组合,请创建复合字符串参数,用括号括起其中的组合键。例如,要发送的组合键指定:
'如果在按 e 和 c 的同时按 SHIFT 键,则发送字符串参数 "+(ec)"。
'如果在按 e 时只按 c(而不按 SHIFT),则发送字符串参数 "+ec"。
'可使用 SendKeys 方法发送一种在一行内重复按键的键击。为此,要创建复合字符串参数,以指定要重复的键击,并在其后指定重复次数。可使用 {键击 数字} 形式的复合字符串参数来完成上述操作。例如,如果要发送 10 次 "x",则需要发送字符串参数 "{x 10}"。请确保在键击和数字之间有一个空格。
'注意 只可以发送重复按一个键的键击。例如,可以发送 10 次 "x",但不可发送 10 次 "Ctrl+x"。
'注意 不能向应用程序发送 PRINT SCREEN 键 {PRTSC}。