- UID
- 23838
注册时间2006-10-1
阅读权限10
最后登录1970-1-1
周游历练
该用户从未签到
|
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 |
|