|
楼主 |
发表于 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 |
|