1.     set file=CreateObject("Scripting.FileSystemObject")
  2.     const forwriting=2
  3.     const forreading=1
  4.     //如果配置文件不存在，则自动创建文本并写入，假如存在，则自动读取括号内的参数
  5.     如果表达式 (File.FileExists(strMySetFile)=0) 为真,则
  6.         set file=CreateObject("Scripting.FileSystemObject")
  7.         //创建文本的位置
  8.         set myfile=file.createtextfile(strMySetFile)
  9.         //写入文件的位置
  10.         set myfile=file.opentextfile(strMySetFile,forwriting)
  11.         //写入文本的内容
  12.         myfile.writeline("//〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★使用说明★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓〓〓")
  13.         myfile.writeline("//数字键1设为群疗技能1：治愈之风")
  14.         myfile.writeline("//数字键2设为群疗技能2：群体治疗")
  15.         myfile.writeline("//数字键3设为单疗技能1：治愈之手")
  16.         myfile.writeline("//数字键4设为单疗技能2：神圣之手")
  17.         myfile.writeline("//数字键5设为单疗技能3：天使之手")
  18.         myfile.writeline("//数字键6设为心灵转换技能，以后放魔法恢复技能")
  19.         myfile.writeline("//数字键7设为：单体复活")
  20.         myfile.writeline("//数字键8设为：法力护盾")
  21.         myfile.writeline("//数字键9设为红药")
  22.         myfile.writeline("//数字键0设为跟随")
  23.         myfile.writeline("//符号键-设为自动捡物品")
  24.         myfile.writeline("//符号键=设为坐下休息")
  25.         myfile.writeline("//按CTRL+F1开始脚本后，按F2~F10键，用于确定要跟随的队员，如果按其它键，则自己进行手动移动")
  26.         myfile.writeline("//〓〓〓〓〓〓〓〓〓〓〓〓〓〓★快捷键自定义★〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓〓〓")
  27.         myfile.writeline("//如果技能存在，就设为1，不存在，则设为0")
  28.         myfile.writeline("[KJSet]")
  29.         myfile.writeline("Num1=1")
  30.         myfile.writeline("Num2=0")
  31.         myfile.writeline("Num3=1")
  32.         myfile.writeline("Num4=1")
  33.         myfile.writeline("Num5=0")
  34.         myfile.writeline("Num6=1")
  35.         myfile.writeline("Num7=1")
  36.         myfile.writeline("Num8=0")
  37.         myfile.writeline("Num9=1")
  38.         myfile.writeline("//〓〓〓〓〓〓〓〓〓〓〓〓〓★玩家自定义变量★〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓〓〓")
  39.         myfile.writeline("[ZDYSet]")
  40.         myfile.writeline("//跟据网络情况设定自己的延时，取值在50-200之间")
  41.         myfile.writeline("YanShi=100")
  42.         myfile.writeline("//设定自身血量低于该百分比时吃红药")
  43.         myfile.writeline("MinMyHPPot=50")
  44.         myfile.writeline("//设定自身血量低于该百分比时给自己单疗")
  45.         myfile.writeline("MaxMyHPPot=70")
  46.         myfile.writeline("//设定自身蓝量低于该百分比时用技能回蓝")
  47.         myfile.writeline("MyMPPot=70")
  48.         myfile.writeline("//设定多长时间检查一次队伍情况，单位：秒")
  49.         myfile.writeline("TimeDuiWu=60")
  50.         myfile.writeline("//设定队员血量低于该百分比时需加血")
  51.         myfile.writeline("DuiWuHPPot=80")
  52.         myfile.writeline("//根据魔法护盾的技能等级设定时间，单位：秒")
  53.         myfile.writeline("FLHDPot=180")
  54.         myfile.writeline("//位置标志，0为在城中，1为野外，2为狩猎副本，3为关卡副本，4为PVP副本")
  55.         myfile.writeline("FBFlage=2")
  56.         myfile.writeline("//挂机死亡次数达到此值时，终止挂机，防止装备熔化")
  57.         myfile.writeline("SiWang=5")
  58.         myfile.writeline("//设定相隔以下时间重新跟随一次，单位：秒")
  59.         myfile.writeline("GenSuiTimePot=15")
  60.         myfile.close
  61.         跳转到标记 主程序结束
  62.     否则
  63.         调用子程序 [读配置]
  64.     条件结束
  65. 子程序结束,回到调用处
  66. //〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★读配置★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓〓〓〓
  67. 子程序 [读配置]
  68.     set file=CreateObject("Scripting.FileSystemObject")
  69.     set myfile=file.opentextfile(strMySetFile,forreading)
  70.     循环 18 遍
  71.         nw=myfile.readline
  72.     循环结束
  73.     Num1=cint(Right(nw,Len(nw)-InStr(nw,"=")))
  74.     nw=myfile.readline
  75.     Num2=cint(Right(nw,Len(nw)-InStr(nw,"=")))
  76.     nw=myfile.readline
  77.     Num3=cint(Right(nw,Len(nw)-InStr(nw,"=")))
  78.     nw=myfile.readline
  79.     Num4=cint(Right(nw,Len(nw)-InStr(nw,"=")))
  80.     nw=myfile.readline
  81.     Num5=cint(Right(nw,Len(nw)-InStr(nw,"=")))
  82.     nw=myfile.readline
  83.     Num6=cint(Right(nw,Len(nw)-InStr(nw,"=")))
  84.     nw=myfile.readline
  85.     Num7=cint(Right(nw,Len(nw)-InStr(nw,"=")))
  86.     nw=myfile.readline
  87.     Num8=cint(Right(nw,Len(nw)-InStr(nw,"=")))
  88.     nw=myfile.readline
  89.     Num9=cint(Right(nw,Len(nw)-InStr(nw,"=")))
  90.     循环 4 遍
  91.         nw=myfile.readline
  92.     循环结束
  93.     YanShi=cint(Right(nw,Len(nw)-InStr(nw,"=")))
  94.     循环 2 遍
  95.         nw=myfile.readline
  96.     循环结束
  97.     MinMyHPPot=cint(Right(nw,Len(nw)-InStr(nw,"=")))
  98.     循环 2 遍
  99.         nw=myfile.readline
  100.     循环结束