Set a=WScript.CreateObject("WScript.shell") 
a.run "http://newreg.qq.com/"
WScript.Sleep 3000
a.SendKeys "xiaoyu"
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 "aa123456"
a.SendKeys "{TAB}" 
WScript.Sleep 300 
a.SendKeys "aa123456" 
WScript.Sleep 300 
a.SendKeys "{TAB}" 
WScript.Sleep 300 
a.SendKeys "{TAB}" 
WScript.Sleep 300 
a.SendKeys "{TAB}" 
WScript.Sleep 300 
a.SendKeys "{TAB}"
我要快速建QQ号  可老提示两次密码输入不一样。