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)