- 标记 重新
- 令 PID = Web.Bind("wqm.exe")
- 调用 Web.Go("http://uc.917st.com/UCWeb/usercenter/html/Register.aspx")
- 令 a = (命令库 文件)判断文件夹是否存在("C:\乱世隋唐专用文件夹")
- 如果 a = True 则
- 否则
- 令 a = False
- 调用 File.CreateFolder("C:\乱世隋唐专用文件夹")
- 条件结束
- 注释:判断是否有指定TXT文件文件
- 令 IsFile = File.IsFileExit("C:\乱世隋唐专用文件夹/乱世隋唐帐号密码.txt")
- 如果 IsFile = True 则
- 否则
- 令 fso = CreateObject("Scripting.FileSystemObject")
- 定义常量 forwriting = 2
- 定义常量 forreading = 1
- 令 myfile = fso.createtextfile("C:\乱世隋唐专用文件夹/乱世隋唐帐号密码.txt")
- 令 myfile = fso.createtextfile("C:\乱世隋唐专用文件夹/乱世隋唐帐号新手卡.txt")
- 条件结束
- 标记 再次
- 调用 suiji
- 调用 Web.HtmlInput(y,"id:user")
- 延时 30 毫秒
- 调用 Web.LeftClick(733,233)
- 延时 60 毫秒
- 令 i = 0
- 如果 1 = Web.HtmlExists("id:userokimg") 则
- 否则
- 跳转到标记 再次
- 条件结束
- 延时 30 毫秒
- 注释:下面为密码,可以自行修改
- 调用 Web.HtmlInput(Form1.InputBox2.text,"id:pwd")
- 延时 30 毫秒
- 调用 Web.HtmlInput(Form1.InputBox2.text,"id:againpwd")
- 延时 20 毫秒
- 调用 Web.LeftClick(678,436)
- 调用 Web.Tips("等待输入验证码,结束按回车键")
- 延时 500 毫秒
- 调用 panduan
- 延时 30 毫秒
- 标记 等待
- 令 key = (键盘)等待按任意键
- 注释:<>===================================================按回车键即可提交申请
- 如果 key = 13 则
- 跳转到标记 离开
- 条件结束
- 跳转到标记 等待
- 标记 离开
- 调用 Web.HtmlClick("id:ImageButton1")
- 注释:新手卡领取
- 调用 Web.Go("http://uc.917st.com/ucweb/usercenter/html/gift/login.aspx")
- 延时 300 毫秒
- 令 Txt = Web.HtmlGet("text","tag:SPAN&txt:您还没有注册吗?")
- 如果 txt = "您还没有注册吗?" 则
- 跳转到标记 重新
- 否则
- 条件结束
- 延时 30 毫秒
- 调用 Web.HtmlCheck(True,"id:ctl00_ContentPlaceHolder1_ctl00_4")
- 延时 30 毫秒
- 调用 Web.HtmlCheck(True,"id:ctl00_ContentPlaceHolder1_ctl01_1")
- 延时 30 毫秒
- 调用 Web.HtmlCheck(True,"id:ctl00_ContentPlaceHolder1_ctl02_2")
- 延时 30 毫秒
- 调用 Web.HtmlClick("id:ctl00_ContentPlaceHolder1_submit")
- 延时 800 毫秒
- 注释:获取新手卡到新手卡卡号.txt
- 调用 xinshou
- 延时 800 毫秒
- 调用 Web.Tips("脚本重新运行")
- 调用 guanbi
- 延时 2000 毫秒
- RestartScript()
- (语句无法识别,可能有错误): /*
- 令 fso = CreateObject("Scripting.FileSystemObject")
- 令 myfile = fso.createtextfile("C:\Users\toshiba\Desktop\123\123.txt")
- (语句无法识别,可能有错误): myfile.writeline (y)*/
- 子程序 suiji
- 令 y = form1.InputBox1.text & ""
- 循环 9 次
- 注释:清空随机种子数
- Randomize
- 注释:得到 0~35 之间的一个随机数
- 令 x = Int(32 * Rnd)
- 注释: 大于或等于10则转换为小写字母
- 如果 x > 9 则
- 令 x = chr(x + 87)
- 条件结束
- 令 y = y & x
- 循环结束
- 子程序结束
- 子程序 xinshou
- 令 PID = Web.Bind("wqm.exe")
- 延时 800 毫秒
- 令 TXT = Web.HtmlGet("value","id:ctl00_ContentPlaceHolder1_GiftCode")
- 延时 40 毫秒
- 调用 File.WriteFileEx("C:\乱世隋唐专用文件夹/乱世隋唐帐号密码.txt",y)
- 延时 150 毫秒
- 调用 File.WriteFileEx("C:\乱世隋唐专用文件夹/乱世隋唐帐号新手卡.txt",TXT)