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

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

运行环境：分辨率：1366x768 色深：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