set file=CreateObject("Scripting.FileSystemObject")
    const forwriting=2
    const forreading=1
    //如果配置文件不存在，则自动创建文本并写入，假如存在，则自动读取括号内的参数
    If File.FileExists(strMySetFile)=0
        set file=CreateObject("Scripting.FileSystemObject")
        //创建文本的位置
        set myfile=file.createtextfile(strMySetFile)
        //写入文件的位置
        set myfile=file.opentextfile(strMySetFile,forwriting)
        //写入文本的内容
        myfile.writeline("//〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★使用说明★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓〓〓")
        myfile.writeline("//数字键1设为群疗技能1：治愈之风")
        myfile.writeline("//数字键2设为群疗技能2：群体治疗")
        myfile.writeline("//数字键3设为单疗技能1：治愈之手")
        myfile.writeline("//数字键4设为单疗技能2：神圣之手")
        myfile.writeline("//数字键5设为单疗技能3：天使之手")
        myfile.writeline("//数字键6设为心灵转换技能，以后放魔法恢复技能")
        myfile.writeline("//数字键7设为：单体复活")
        myfile.writeline("//数字键8设为：法力护盾")
        myfile.writeline("//数字键9设为红药")
        myfile.writeline("//数字键0设为跟随")
        myfile.writeline("//符号键-设为自动捡物品")
        myfile.writeline("//符号键=设为坐下休息")
        myfile.writeline("//按CTRL+F1开始脚本后，按F2~F10键，用于确定要跟随的队员，如果按其它键，则自己进行手动移动")
        myfile.writeline("//〓〓〓〓〓〓〓〓〓〓〓〓〓〓★快捷键自定义★〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓〓〓")
        myfile.writeline("//如果技能存在，就设为1，不存在，则设为0")
        myfile.writeline("[KJSet]")
        myfile.writeline("Num1=1")
        myfile.writeline("Num2=0")
        myfile.writeline("Num3=1")
        myfile.writeline("Num4=1")
        myfile.writeline("Num5=0")
        myfile.writeline("Num6=1")
        myfile.writeline("Num7=1")
        myfile.writeline("Num8=0")
        myfile.writeline("Num9=1")
        myfile.writeline("//〓〓〓〓〓〓〓〓〓〓〓〓〓★玩家自定义变量★〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓〓〓")
        myfile.writeline("[ZDYSet]")
        myfile.writeline("//跟据网络情况设定自己的延时，取值在50-200之间")
        myfile.writeline("YanShi=100")
        myfile.writeline("//设定自身血量低于该百分比时吃红药")
        myfile.writeline("MinMyHPPot=50")
        myfile.writeline("//设定自身血量低于该百分比时给自己单疗")
        myfile.writeline("MaxMyHPPot=70")
        myfile.writeline("//设定自身蓝量低于该百分比时用技能回蓝")
        myfile.writeline("MyMPPot=70")
        myfile.writeline("//设定多长时间检查一次队伍情况，单位：秒")
        myfile.writeline("TimeDuiWu=60")
        myfile.writeline("//设定队员血量低于该百分比时需加血")
        myfile.writeline("DuiWuHPPot=80")
        myfile.writeline("//根据魔法护盾的技能等级设定时间，单位：秒")
        myfile.writeline("FLHDPot=180")
        myfile.writeline("//位置标志，0为在城中，1为野外，2为狩猎副本，3为关卡副本，4为PVP副本")
        myfile.writeline("FBFlage=2")
        myfile.writeline("//挂机死亡次数达到此值时，终止挂机，防止装备熔化")
        myfile.writeline("SiWang=5")
        myfile.writeline("//设定相隔以下时间重新跟随一次，单位：秒")
        myfile.writeline("GenSuiTimePot=15")
        myfile.close
        Goto 主程序结束
    Else 
        Gosub [读配置]
    EndIf 
Return [写配置]
//〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★读配置★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓〓〓〓
Sub [读配置]
    set file=CreateObject("Scripting.FileSystemObject")
    set myfile=file.opentextfile(strMySetFile,forreading)
    For 18
        nw=myfile.readline
    EndFor 
    Num1=cint(Right(nw,Len(nw)-InStr(nw,"=")))
    nw=myfile.readline
    Num2=cint(Right(nw,Len(nw)-InStr(nw,"=")))
    nw=myfile.readline
    Num3=cint(Right(nw,Len(nw)-InStr(nw,"=")))
    nw=myfile.readline
    Num4=cint(Right(nw,Len(nw)-InStr(nw,"=")))
    nw=myfile.readline
    Num5=cint(Right(nw,Len(nw)-InStr(nw,"=")))
    nw=myfile.readline
    Num6=cint(Right(nw,Len(nw)-InStr(nw,"=")))
    nw=myfile.readline
    Num7=cint(Right(nw,Len(nw)-InStr(nw,"=")))
    nw=myfile.readline
    Num8=cint(Right(nw,Len(nw)-InStr(nw,"=")))
    nw=myfile.readline
    Num9=cint(Right(nw,Len(nw)-InStr(nw,"=")))
    For 4
        nw=myfile.readline
    EndFor 
    YanShi=cint(Right(nw,Len(nw)-InStr(nw,"=")))
    For 2
        nw=myfile.readline
    EndFor 
    MinMyHPPot=cint(Right(nw,Len(nw)-InStr(nw,"=")))
    For 2
        nw=myfile.readline
    EndFor