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

豆子天空

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

豆子天空

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

豆子天空

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