VXVX解除双开限制-小弟写的比较乱，大佬勿喷 - 精易论坛

子程序名	返回值类型	公开	备注
多开子程序

变量名	类型	静态	数组	备注
取文件路径	文本型
打开文件	文本型
多开次数	整数型
i	整数型
总文本	文本型
单行文本	文本型

如果真 (文件_是否存在 (取运行目录 () ＋ “\route.txt”) ＝假)

载入 (窗口_VX目录, , 真)

' 如果有就跳过这行代码

如果真 (文件_是否存在 (取运行目录 () ＋ “\WeChat.bat”) ＝假)

打开文件＝到文本 (读入文件 (取运行目录 () ＋ “\route.txt”))

取文件路径＝文本_取出中间文本 (打开文件, “路径：”, “结束”, , )

多开次数＝到整数 (编辑框_次数.内容)

如果真 (多开次数＜ 1 或多开次数＞ 5)

信息框 (“请填写您要多开的VX次数，最大限制≤5个”, 0, , )

返回 ()

计次循环首 (多开次数, i)

单行文本＝ “start” ＋ “ ” ＋ #引号＋ #引号＋ “ ” ＋ #引号＋取文件路径＋ #引号

如果真 (i ＞ 0 且 i ≠ 多开次数)

单行文本＝单行文本＋ #换行符

总文本＝总文本＋单行文本

计次循环尾 ()

写到文件 (取运行目录 () ＋ “\WeChat.bat”, 到字节集 (总文本))

写到文件 (取运行目录 () ＋ “\order.txt”, 到字节集 (“程序执行：” ＋编辑框_次数.内容＋ “次” ＋ #换行符＋ “如果需要更改次数，请删除WeChat.bat文件”))

运行 (取运行目录 () ＋ “\WeChat.bat”, 假, )
销毁 ()

.版本 2<br />
<br />
.子程序 多开子程序<br />
.局部变量 取文件路径, 文本型<br />
.局部变量 打开文件, 文本型<br />
.局部变量 多开次数, 整数型<br />
.局部变量 i, 整数型<br />
.局部变量 总文本, 文本型<br />
.局部变量 单行文本, 文本型<br />
<br />
.如果真 (文件_是否存在 (取运行目录 () ＋ “\route.txt”) ＝ 假)<br />
    载入 (窗口_VX目录, , 真)<br />
    ' 如果有就跳过这行代码<br />
.如果真结束<br />
.如果真 (文件_是否存在 (取运行目录 () ＋ “\WeChat.bat”) ＝ 假)<br />
    打开文件 ＝ 到文本 (读入文件 (取运行目录 () ＋ “\route.txt”))<br />
    取文件路径 ＝ 文本_取出中间文本 (打开文件, “路径：”, “结束”, , )<br />
<br />
    多开次数 ＝ 到整数 (编辑框_次数.内容)<br />
    .如果真 (多开次数 ＜ 1 或 多开次数 ＞ 5)<br />
        信息框 (“请填写您要多开的VX次数，最大限制≤5个”, 0, , )<br />
        返回 ()<br />
    .如果真结束<br />
<br />
    .计次循环首 (多开次数, i)<br />
        单行文本 ＝ “start” ＋ “ ” ＋ #引号 ＋ #引号 ＋ “ ” ＋ #引号 ＋ 取文件路径 ＋ #引号<br />
        .如果真 (i ＞ 0 且 i ≠ 多开次数)<br />
            单行文本 ＝ 单行文本 ＋ #换行符<br />
        .如果真结束<br />
        总文本 ＝ 总文本 ＋ 单行文本<br />
    .计次循环尾 ()<br />
<br />
    写到文件 (取运行目录 () ＋ “\WeChat.bat”, 到字节集 (总文本))<br />
    写到文件 (取运行目录 () ＋ “\order.txt”, 到字节集 (“程序执行：” ＋ 编辑框_次数.内容 ＋ “次” ＋ #换行符 ＋ “如果需要更改次数，请删除WeChat.bat文件”))<br />
    运行 (取运行目录 () ＋ “\WeChat.bat”, 假, )<br />
<br />
.如果真结束<br />
销毁 ()