为了方便,申请QQ,只是为了加点分.
REM 半自动申请QQ号dim wshell
set wshell=CreateObject("wscript.shell")
'wshell.run "http://freeqq2.qq.com:8080/1.shtml" '或者http://freeqq2.qq.com/1.shtml
wscript.sleep 2000
Function sjs(geshu) '可重复的随机数函数
s=0:ss=""
for i=1 to geshu step 1
Randomize
s=Int((126 - 32 + 1) * Rnd + 32)
ss=ss & "{" & chr(s) & "}" '需要其它的可以去掉"{"&"}"
next
sjs=ss
end Function
name=sjs(6)
pssword=sjs(16)
'a=sjs(16)
'msgbox a & chr(10) & chr(13) & "长度是:" & len(a)
'wshell.appactivate "第一步_免費註冊QQ號碼 - Microsoft Internet Explorer"
wshell.appactivate "第一步_免費註冊QQ號碼 - Mozilla Firefox"
wscript.sleep 2000
'wshell.sendkeys "{TAB 2}" & "~",true 'IE版值
wshell.sendkeys "{TAB 5}" & "~",true 'Mozilla Firefox版TAB次数
wscript.sleep 5000
'wshell.appactivate "第二步_免費註冊QQ號碼 - Microsoft Internet Explorer"
wshell.appactivate "第二步_免費註冊QQ號碼 - Mozilla Firefox"
'wshell.sendkeys "{TAB 2}" & "11" & "{TAB}",true '填写名称(IE)
wshell.sendkeys "{TAB}" & "11" & "{TAB}",true '填写名称Firefox版
wshell.sendkeys "0{TAB}" '填写年龄
xb=Int((2 - 0 + 1) * Rnd + 0)
if xb=2 then wshell.sendkeys "{RIGHT}",true '填写姓别
wshell.sendkeys "{TAB}",true
wshell.sendkeys (pssword),true '填写密码
wshell.sendkeys "{TAB}",true
wshell.sendkeys (pssword),true
wshell.sendkeys "{TAB}",true
yzm=InputBox("完成验证码的输入按确定","弱智制作(QQ:441540230)",yzm)
'msgbox "单击确定完成验证码的输入"
wshell.sendkeys yzm,true '手动输入验证码
wshell.sendkeys "{TAB 3}~~",true
wscript.sleep 5000
'wshell.appactivate "第三步_免費註冊QQ號碼 - Microsoft Internet Explorer"
wshell.appactivate "第三步_免費註冊QQ號碼 - Mozilla Firefox"
wshell.sendkeys "{TAB 6}{RIGHT 2}{TAB 9}~~"
yzm=InputBox("完成的密码为输入框请复制","弱智制作(QQ:441540230)",pssword) 一招多用，呵呵。。。。。。。 不错，呵呵谢谢分享 不太懂,,复下来,多看看,谢谢
页:
[1]