论坛 › 吹水阁 › 哎 混了一天 精灵论坛回来了

豆子天空 发表于 2012-2-23 02:22:35

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

那里全要钱 问个问题没人回答 还是这里有家的感觉{:5_92:}

豆子天空 发表于 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

豆子天空 发表于 2012-2-23 02:27:12

自己写的批量注册通行证的语法很多错误 关键不能运行制作了小精灵{:5_96:}   部分功能在网页按键能自动填写但是到了ie里不能填写了{:5_104:}按键没学过都是东抄一句西抄一句凑的语法错误多就当看笑话吧

查看完整版本: 哎 混了一天 精灵论坛回来了