content1=521
content2=845
content3=365
content4=473
WScript.Sleep 800
Set Ws = CreateObject("WScript.Shell")
for i = 1 to 4
execute "Ws.SendKeys content" & i
next
或者:
content1=521
content2=845
content3=365
content4=473
WScript.Sleep 800
Set Ws = CreateObject("WScript.Shell")
Ws.SendKeys conten1 & content2 & conten3 & content4
Last edited by s11ss on 2008-10-16 at 15:04 ]