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