UserVar bbxs=16 变倍系数[0为一倍，2为二倍，4为四倍，8为8倍,16为16倍，32为32倍，64为64倍]
UserVar yanshi=65 根据电脑配置设置合适的延时（毫秒），此为16倍的延时
UserVar zhanhao=nsgcID 帐号[请输入帐号]
UserVar mima=****** 密码[请输入密码]
UserVar chishu=10 每次挂机循环次数(试用只限10次）
UserVar jushu=80 连续挂机多少局退出游戏重新登录（不得大于82局，试用只限10局）
UserVar gxfwq=1 选择更新服务器[从上往下数，第几个选几]
UserVar fwqu=12 选择游戏服务区[电信11、12、13，网通21、22、23]
UserVar yxfwq=1 选择游戏服务器[从上往下数，第几个选几]
UserVar tqsjsj=5 防卡处理，延时多少秒后退出
UserVar ddsj=50 退出游戏后等待多少秒重新登录
j=1
Plugin srX=Sys.GetScRX()
Plugin srY=Sys.GetScRY()
Plugin cdep=Sys.GetScDep()
If srx<>"1024" OR sry<>"768" OR cdep<>"32"
    VBSCall MessageBox("请设置您的电脑屏幕分辨率为1024*768，颜色质量为最高（32位）")
EndScript 
EndIf 
Dim fso,dr,retv,sn,obj,filename1,wjcz
set fso=CreateObject("Scripting.Filesystemobject")
Set dr=fso.GetDrive("d:")
retv=Hex(dr.SerialNumber)
Plugin File.writeINI("机器码","jqm",retv,".\三国策机器码.ini")
retv=int("&H"&retv)
retv=(retv+498*2)*3
Set obj=CreateObject("QFunction.Library")
retv=obj.GetMD5(retv)
temp=0.63524897*63390+480
temp=hex(temp)
temp= LCase(temp)
retv=temp&retv
retv=UCase(retv)
filename1=".\三国策注册信息.ini"
Plugin wjcz=File.ExistFile(filename1)
If wjcz<>1
    VBSCall sn=InputBox(" 请输入注册码:")
    If sn=retv
        VBSCall MessageBox("注册成功,谢谢!")
        Plugin File.writeINI("注册码","zcm",sn,filename1)
    Else 
        VBSCall MessageBox("注册码错误，注册不成功，请试用")
        chishu=10
        jushu=80
        Gosub main
    EndIf 
Else 
    Plugin sn=File.readINI("注册码","zcm",filename1)
    If sn=retv
        Plugin d1=GetSysInfo.GetDateTime()
        If d1<="2007-06-30 23:59:00"
            Gosub main
        Else 
            VBSCall MessageBox("注册码到期，请重新注册,请试用")
            chishu=10
            jushu=80
            Gosub main
        EndIf 
    Else 
        Plugin File.DeleteFile(filename1)
        VBSCall MessageBox("注册码错误，注册不成功,请试用")
        chishu=10
        jushu=80
        Gosub main
    EndIf 
EndIf 
Rem over
EndScript 
Sub main
    dim fso,file,filename
    filename=".\运行记录.txt"
    Const ForAppending=8
    Set fso=CreateObject("Scripting.FileSystemObject")
    If fso.FileExists(filename)=0
        Set file=fso.CreateTextFile(filename,Ture)
    EndIf 
    For chishu
        t1=timer
        For 10
            KeyPress 106,1
            IfColor 416,266,18BA21,0
                MoveTo 416,266
                Goto 按左键0
            Else 
                IfColor 416,266,31B6FF,0
                    MoveTo 416,266
                EndIf 
            EndIf 
            Rem 按左键0
            MoveTo 416,266
            LeftDown 1
            MoveTo 436,266
            LeftUp 1
            LeftDown 1
            MoveTo 416,266
            LeftUp 1
        EndFor 
        MoveTo 436,266
        LeftClick 1
        t2=timer