支持啊

Set a=WScript.CreateObject("WScript.shell")
a.run "http://reg.qq.com/" '
WScript.Sleep 3000 '                              这个时间调大一点啊,电脑慢的很关键
a.SendKeys "u99" '  
a.SendKeys "{TAB}"
WScript.Sleep 300
a.SendKeys "{DOWN}"
a.SendKeys "{TAB}"
WScript.Sleep 300
a.SendKeys "{DOWN}"
a.SendKeys "{TAB}"
WScript.Sleep 300
a.SendKeys "{DOWN}"
WScript.Sleep 300
a.SendKeys "{TAB}"
WScript.Sleep 300
a.SendKeys "{TAB}"
WScript.Sleep 300
a.SendKeys "11111111." '  
a.SendKeys "{TAB}"
WScript.Sleep 300
a.SendKeys "11111111." '  
WScript.Sleep 300
a.SendKeys "{TAB}"
WScript.Sleep 300
a.SendKeys "{TAB}"
WScript.Sleep 300
a.SendKeys "{TAB}"
WScript.Sleep 300
a.SendKeys "{TAB}"

嗯。老大说得在理，俺调到6000就可以了。貌似俺的电脑很慢。汗。。。。谢谢大家。

这样也行啊。。。