jjmmrr

WScript.CreateObject("WScript.Shell").Run "iexplore http://cht.reg.qq.com/"
WScript.Sleep 5000
Set qqej = CreateObject("WScript.Shell")
qqej.SendKeys "QQEJ"
qqej.SendKeys "{Tab}"
WScript.Sleep 250
qqej.SendKeys "{down}"  '生日
qqej.SendKeys "{Tab}"
qqej.SendKeys "{down}"
'qqej.SendKeys "10"  '10月
qqej.SendKeys "{Tab}"
'qqej.SendKeys "1"  '1日
qqej.SendKeys "{down}"
qqej.SendKeys "{Tab}"
qqej.SendKeys "{Tab}"
qqej.SendKeys "PASS"  '密码
qqej.SendKeys "{Tab}"
qqej.SendKeys "PASS"  '密码
qqej.SendKeys "{Tab}"
qqej.SendKeys "{Tab}"  '中国
qqej.SendKeys "{Tab}"  '省
qqej.SendKeys "{Tab}"  '市


这是批量申请QQ号码 运行后自动打开申请QQ页面，自动填写用户名和密码，定位到输入验证码框，

你可以修改一下。

[ 本帖最后由 jjmmrr 于 2010-12-7 19:32 编辑 ]