鱼C论坛

 找回密码
 立即注册
查看: 3401|回复: 2

哎 混了一天 精灵论坛回来了

[复制链接]
发表于 2012-2-23 02:22:35 | 显示全部楼层 |阅读模式

马上注册,结交更多好友,享用更多功能^_^

您需要 登录 才可以下载或查看,没有账号?立即注册

x
那里全要钱 问个问题没人回答 还是这里有家的感觉
想知道小甲鱼最近在做啥?请访问 -> ilovefishc.com
 楼主| 发表于 2012-2-23 02:24:21 | 显示全部楼层
a=InputBox("输入起始号码")
b=InputBox("输入结束号码")
Rem 开始
a=cint(a)
b=cint(b)
      SayString a
      a=a+1
      If a>=b Then
Goto sub
     End If
m="pnj"&a
Next
PID=Plugin.Web.Bind("wqm.exe")
Call Plugin.Web.Go("http://register.sdo.com/gaea/input_pt.aspx?from=1&zone=web")
Call Plugin.Web.HtmlInput("m","id:username")                          输入的账号
Call Plugin.Web.HtmlInput("密码","id:password")                       输入的密码
Call Plugin.Web.HtmlInput("推广员账号","id:PromoterID")               推广账号
Call Plugin.Web.HtmlInput("推广员姓名","id:realname")                 推广员姓名
Call Plugin.Web.HtmlInput("身份证号","id:idcard")                     推广员身份证
Call Plugin.Web.HtmlInput("邮箱","id:PTUserEmailId")                  推广员邮箱
Call Plugin.Msg.Tips("程序暂停,验证码输入后按Enter继续执行")   
do
key=waitkey()
Loop Until key = 13
Delay 3000
Call Plugin.Web.HtmlClick("id:btnSubmit")                             网页确定按钮
Call Plugin.Web.HtmlCheck(true,"id:chkAgreement")                     网页条款勾选
Sub OnScriptExit()  
cg=a+1                                                            
Call Plugin.Web.Tips("您已注册了,第"&cg&"个小号")                    注册成功提示
Delay 1000
Url=Plugin.Web.GetURL()
If url <> "http://register.sdo.com/gaea/input_pt.aspx?from=1&zone=web" Then
Call Plugin.Web.Go("http://register.sdo.com/gaea/input_pt.aspx?from=1&zone=web")
End If
Next
End Sub
想知道小甲鱼最近在做啥?请访问 -> ilovefishc.com
 楼主| 发表于 2012-2-23 02:27:12 | 显示全部楼层
自己写的批量注册通行证的  语法很多错误 关键不能运行制作了小精灵   部分功能在网页按键能自动填写  但是到了ie里不能填写了  按键没学过都是东抄一句西抄一句凑的  语法错误多就当看笑话吧
想知道小甲鱼最近在做啥?请访问 -> ilovefishc.com
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

小黑屋|手机版|Archiver|鱼C工作室 ( 粤ICP备18085999号-1 | 粤公网安备 44051102000585号)

GMT+8, 2024-11-5 20:44

Powered by Discuz! X3.4

© 2001-2023 Discuz! Team.

快速回复 返回顶部 返回列表