为了方便输入,半自动申请KC号

yfd11

REM 半自动申请KC号   只是为了方便输入快点而已
'使用说明,先建一个KC账号密码.txt文件并打开
dim wshell
set wshell=CreateObject("wscript.shell")
wshell.run "http://www.keepc.com/mykc/servlet/mykc/template/reg,RegUser.htm"
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 "KC用户注册 - Microsoft Internet Explorer"
wscript.sleep 2000
wshell.sendkeys "{TAB}" & "{DOWN 4}" & "{TAB}~~",true
wscript.sleep 2000
Do While true
'wshell.sendkeys "{TAB 2}",true                         '焦点到用户
wshell.sendkeys "{TAB 2}" & (name),true                        '填写用户名
'wshell.sendkeys "{TAB}",true                                 '焦点到密码框1
wshell.sendkeys "{TAB}" & (pssword),true                '填写密码

wshell.sendkeys "{TAB}",true                                 '焦点到密码框2

wshell.sendkeys (pssword),true                                '填写密码

wshell.sendkeys "{TAB}",true                                '焦点到社区昵称

wshell.sendkeys        (sjs(16)),true                                '填写社区昵称

wshell.sendkeys "{TAB}",true                                '焦点到性别单选钮

xb=Int((2 - 0 + 1) * Rnd + 0)
if xb=2 then wshell.sendkeys "{RIGHT}",true                '填写姓别

wshell.sendkeys "{TAB}"        ,true                                '焦点到社区邮箱

wshell.sendkeys sjs(1) & "@127.1",true                        '填写社区邮箱
wshell.sendkeys "{TAB}",true                                '焦点到验证码输入框

yzm=InputBox("完成验证码的输入按确定","弱智制作(QQ:441540230)",yzm)
'msgbox "单击确定完成验证码的输入"
wshell.sendkeys yzm,true                                '手动输入验证码
wshell.sendkeys "{TAB}~~",true                                '下一步得到验证
wscript.sleep 5000                                        '看情况调整链接返回时间
wshell.sendkeys "{TAB 2}",true

'wshell.sendkeys "{TAB 9}",true
'wshell.sendkeys "+{LEFT 84}",true
wshell.sendkeys "^a" & "^A",true
wshell.sendkeys "^c" & "^C",true
wshell.appactivate "KC账号密码.txt - 记事本"
wscript.sleep 1000
wshell.sendkeys "^V" & "{BACKSPACE 206}",true
wshell.sendkeys "pssword:" & pssword & "~",true
wshell.appactivate "KC用户注册 - Microsoft Internet Explorer"
wscript.sleep 1000
yesno=msgbox ("是否继续申请KC号?",vbYesNo,"弱智制作(QQ:441540230)")
if yesno=vbNo then exit do
wshell.appactivate "KC用户注册 - Microsoft Internet Explorer"
wscript.sleep 1000
wshell.sendkeys "%{LEFT}",true
wscript.sleep 1000
'当然可以添加网络断开重连接命令
'    断开连接命令:Rasdial 宽带连接 /DISCONNECT
'        连接命令:Rasdial [连接名字] [账号] [密码]
'查找连接名字命令:Rasdial|find /v "命令已完成"|find /v "已连接"
loop

caterpilla

通过模拟键盘输入完成，强悍！！！