为了方便,申请QQ,只是为了加点分.

yfd11

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)

caterpilla

一招多用，呵呵。。。。。。。

zyytzhxu

不错，呵呵谢谢分享

战佛

不太懂,,复下来,多看看,谢谢