Rem 重新 PID=Plugin.Web.Bind("wqm.exe") Call Plugin.Web.Go("http://uc.917st.com/UCWeb/usercenter/html/Register.aspx") a = Lib.文件.判断文件夹是否存在("C:\乱世隋唐专用文件夹") If a = True Then Else a = False Call Plugin.File.CreateFolder("C:\乱世隋唐专用文件夹") End If //判断是否有指定TXT文件文件 IsFile = Plugin.File.IsFileExit("C:\乱世隋唐专用文件夹/乱世隋唐帐号密码.txt") If IsFile = True Else set fso=CreateObject("Scripting.FileSystemObject") const forwriting=2 const forreading=1 set myfile=fso.createtextfile("C:\乱世隋唐专用文件夹/乱世隋唐帐号密码.txt") set myfile=fso.createtextfile("C:\乱世隋唐专用文件夹/乱世隋唐帐号新手卡.txt") End If rem 再次 Call suiji Call Plugin.Web.HtmlInput(y,"id:user") Delay 30 Call Plugin.Web.LeftClick(733, 233) Delay 60 i=0 If 1= Plugin.Web.HtmlExists("id:userokimg") Then Else Goto 再次 End if Delay 30 //下面为密码,可以自行修改 Call Plugin.Web.HtmlInput(Form1.InputBox2.text,"id:pwd") Delay 30 Call Plugin.Web.HtmlInput(Form1.InputBox2.text,"id:againpwd") Delay 20 Call Plugin.Web.LeftClick(678,436) Call Plugin.Web.Tips("等待输入验证码,结束按回车键") Delay 500 Call panduan Delay 30 Rem 等待 key=WaitKey() //<>===================================================按回车键即可提交申请 If key=13 Then Goto 离开 End If Goto 等待 Rem 离开 Call Plugin.Web.HtmlClick("id:ImageButton1") //新手卡领取 Call Plugin.Web.Go("http://uc.917st.com/ucweb/usercenter/html/gift/login.aspx") Delay 300 Txt=Plugin.Web.HtmlGet("text","tag:SPAN&txt:您还没有注册吗?") If txt = "您还没有注册吗?" Then Goto 重新 Else End If Delay 30 Call Plugin.Web.HtmlCheck(True,"id:ctl00_ContentPlaceHolder1_ctl00_4") Delay 30 Call Plugin.Web.HtmlCheck(True,"id:ctl00_ContentPlaceHolder1_ctl01_1") Delay 30 Call Plugin.Web.HtmlCheck(True,"id:ctl00_ContentPlaceHolder1_ctl02_2") Delay 30 Call Plugin.Web.HtmlClick("id:ctl00_ContentPlaceHolder1_submit") Delay 800 //获取新手卡到新手卡卡号.txt Call xinshou Delay 800 Call Plugin.Web.Tips("脚本重新运行") Call guanbi Delay 2000 RestartScript /* set fso=CreateObject("Scripting.FileSystemObject") set myfile=fso.createtextfile("C:\Users\toshiba\Desktop\123\123.txt") myfile.writeline (y)*/ Sub suiji y=form1.InputBox1.text&"" For 9 //清空随机种子数 Randomize //得到 0~35 之间的一个随机数 x = Int(32 * Rnd) // 大于或等于10则转换为小写字母 If x>9 x=chr(x+87) EndIf y=y&x EndFor End Sub Sub xinshou PID=Plugin.Web.Bind("wqm.exe") Delay 800 TXT=Plugin.Web.HtmlGet("value","id:ctl00_ContentPlaceHolder1_GiftCode") Delay 40 Call Plugin.File.WriteFileEx("C:\乱世隋唐专用文件夹/乱世隋唐帐号密码.txt", y) Delay 150 Call Plugin.File.WriteFileEx("C:\乱世隋唐专用文件夹/乱世隋唐帐号新手卡.txt",TXT)