Dim ws Set ws=WScript.CreateObject("WScript.Shell") ws.run "notepad"wscript.sleep 5000dim a,b,c,dfor a=2 to 3for b=0 to 9for c=0 to 9for d=0 to 9ws.sendkeys "{" & a & "}"ws.sendkeys "{" & b & "}"ws.sendkeys "{" & c & "}"ws.sendkeys "{" & d & "}"ws.sendkeys "{ }"nextnextnextnext上面那个速度快,但CPU可能弄不...