按键精灵乱世隋唐自动注册-并获取新手卡，保存到桌面TXT

运行环境：分辨率：1366×768 色深：32位 操作系统：Windows 7 Ultimate 按键精灵版本：9.30.11233

@7843175632012/10/18

PID=Plugin.Web.Bind("wqm.exe")   Call Plugin.Web.Go("http://uc.917st.com/UCWeb/usercenter/html/Register.aspx")   //判断是否有指定TXT文件文件   IsFile = Plugin.File.IsFileExit("C:\Users\toshiba\Desktop\乱世隋唐帐号密码为13772327137.txt")   If IsFile = True   Else        set fso=CreateObject("Scripting.FileSystemObject")       const forwriting=2       const forreading=1       set myfile=fso.createtextfile("C:\Users\toshiba\Desktop\乱世隋唐帐号密码为13772327137.txt")       set myfile=fso.createtextfile("C:\Users\toshiba\Desktop\乱世隋唐帐号新手卡.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("13772327137","id:pwd")   Delay 30   Call Plugin.Web.HtmlInput("13772327137","id:againpwd")      Delay 20   Call Plugin.Web.LeftClick(678,436)   Call Plugin.Web.Tips("等待输入验证码,结束按回车键")   Delay 500   Rem 等待   key=WaitKey()   //<>===================================================按回车键即可提交申请   If key=13 Then       Goto 离开   End If    Goto 等待   Rem 离开   wenjian ="C:\Users\toshiba\Desktop\乱世隋唐帐号密码为13772327137.txt"      /*系统时间     需要在TXT中显示时间的用户，去掉代码左右两端的注释   //sDate = Plugin.Sys.GetDateTime()   Call Plugin.File.WriteFileEx(wenjian, sDate)*/   Call Plugin.File.WriteFileEx(wenjian, y)   Delay 40   Call Plugin.Web.HtmlClick("id:ImageButton1")   //新手卡领取   Call Plugin.Web.Go("http://uc.917st.com/ucweb/usercenter/html/gift/login.aspx")   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="zhang"&""       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")       TXT=Plugin.Web.HtmlGet("value","id:ctl00_ContentPlaceHolder1_GiftCode")       Delay 1500       Call Plugin.File.WriteFileEx("C:\Users\toshiba\Desktop/乱世隋唐帐号新手卡.txt",TXT)       Delay 200       Call Plugin.Web.Tips("您的新手卡号为" & TXT)   End Sub   Sub guanbi       VBSBegin            Dim objShell           Set objShell = CreateObject("wscript.shell")           objShell.Run "taskkill /f /im wqm.exe",vbhide           Set objShell =NoThing       VBSEnd   End Sub