WScript.CreateObject("WScript.Shell").Run "iexplore
http://signup.qq.com/intl/zh-hant/"
WScript.Sleep 2000
Set Sh = CreateObject("WScript.Shell")
Sh.SendKeys "QQQQQQQQQQQ"
Sh.SendKeys "{Tab}"
Sh.SendKeys "23"
Sh.SendKeys "{Tab}"
Sh.SendKeys "{Tab}"
Sh.SendKeys "shangxin2008" '密码
Sh.SendKeys "{Tab}"
Sh.SendKeys "shangxin2008" '密码
Sh.SendKeys "{Tab}"
Sh.SendKeys "{Tab}"
Sh.SendKeys "{down}"
Sh.SendKeys "{down}"
Sh.SendKeys "{down}"
Sh.SendKeys "{Tab}"
Sh.SendKeys "{Tab}"
Sh.SendKeys "{down}"
Sh.SendKeys "{down}"
Sh.SendKeys "{Tab}"
Sh.SendKeys "{down}"
Sh.SendKeys "{down}"
Sh.SendKeys "{Tab}"