Question

用vbs来按键盘的代码，急急急，在线等！！！！

• 你的回答被采纳后将获得：
• 系统奖励15（财富值+成长值）+难题奖励10（财富值+成长值）+提问者悬赏5（财富值+成长值）

Answer 1

Set oScrShell = WScript.CreateObject("WScript.Shell")
oScrShell.sendkeys "^{ESC}"
‘发送Windows键
其他：
BACKSPACE{BACKSPACE}, {BS}, or {BKSP}
　　BREAK{BREAK}
　　CAPS LOCK{CAPSLOCK}
　　DEL or DELETE{DELETE} or {DEL}
　　DOWN ARROW{DOWN}
　　END{END}
　　ENTER{ENTER} or ~
　　ESC{ESC}
　　HELP{HELP}
　　HOME{HOME}
　　INS or INSERT{INSERT} or {INS}
　　LEFT ARROW{LEFT}
　　NUM LOCK{NUMLOCK}
　　PAGE DOWN{PGDN}
　　PAGE UP{PGUP}
　　PRINT SCREEN{PRTSC}
　　RIGHT ARROW{RIGHT}
　　SCROLL LOCK{SCROLLLOCK}
　　TAB{TAB}
　　UP ARROW{UP}
　　F1{F1}
　　F2{F2}
　　F3{F3}
　　F4{F4}
　　F5{F5}
　　F6{F6}
　　F7{F7}
　　F8{F8}
　　F9{F9}
　　F10{F10}
　　F11{F11}
　　F12{F12}
　　F13{F13}
　　F14{F14}
　　F15{F15}
　　F16{F16}
SHIFT +
　　CTRL ^
　　ALT %

追问

先按Alt+Tab，然后按随便一个字母，再按回车，循环500次

追答

for i = 1 to 500

Set oScrShell = WScript.CreateObject("WScript.Shell")
oScrShell.sendkeys "%{tab}"
WScript.Sleep 100
oScrShell.SendKeys "{A}"
WScript.Sleep 100
oScrShell.SendKeys "{enter}"
next