功能比较简单。就图上的一些功能。已经内置了FRPC程序，运行时会释放。
第一个 保存配置按钮 右键点击为删除frp配置文件。
第二个 保存配置按钮 右键为读取附加启动配置文件。
image.png (29.55 KB, 下载次数: 0)
下载附件
2024-8-31 22:19 上传
下载地址
https://wwvl.lanzout.com/iB3XY28udh9a
密码:52pj
下面是易语言源码
[Visual Basic] 纯文本查看 复制代码.版本 2
.支持库 spec
.程序集 窗口程序集_启动窗口
.子程序 _超级按钮1_被单击
.如果 (组合框1.内容 ≠ “”)
写到文件 (取运行目录 () ＋ “\” ＋ 组合框1.内容 ＋ “.ini”, 到字节集 (编辑框1.内容))
信息框 (到文本 (“已保存到：” ＋ “” ＋ 组合框1.内容), 0, “提示”, )
.否则
信息框 (“请输入文件名后保存”, 0, “提示”, )
.如果结束
.子程序 _超级按钮2_被单击
运行 (“taskkill /f /im frpc.exe”, 真, 0)
运行 (“cmd /c ” ＋ 取运行目录 () ＋ “\frpc.exe -c ” ＋ 取运行目录 () ＋ “\” ＋ 组合框1.内容 ＋ “.ini”, 假, )
.子程序 _超级按钮3_被单击
运行 (“taskkill /f /im frpc.exe”, 真, 0)
运行 (“cmd /c ” ＋ 取运行目录 () ＋ “\frpc.exe -c ” ＋ 取运行目录 () ＋ “\” ＋ 组合框1.内容 ＋ “.ini”, 假, 0)
.子程序 _超级按钮4_被单击
运行 (“taskkill /f /im frpc.exe”, 真, 0)
.子程序 _超级按钮5_被单击
写到文件 (取运行目录 () ＋ “\Startup.inf”, 到字节集 (编辑框2.内容))
.子程序 _超级按钮5_鼠标右键被按下, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型
.局部变量 程序列表, 整数型
.如果 (文件是否存在 (取运行目录 () ＋ “\Startup.inf”) ＝ 真)
程序列表 ＝ 打开文件 (取运行目录 () ＋ “\Startup.inf”, , )
编辑框2.内容 ＝ 读入文本 (程序列表, )
关闭文件 (程序列表)
.否则
编辑框2.内容 ＝ “ 使用方法” ＋ #换行符 ＋ “运行程序示例：” ＋ #换行符 ＋ “D:\FRP\frpc.exe” ＋ #换行符 ＋ “C:\XXX\XXX.bat” ＋ #换行符 ＋ #换行符 ＋ “打开网页示例：” ＋ #换行符 ＋ “Explorer.exe http://baidu.com” ＋ #换行符 ＋ “cmd /c start http://baidu.com”
.如果结束
.子程序 _超级按钮6_被单击
.局部变量 路径数组, 文本型, , "1"
.局部变量 路径, 文本型
.局部变量 计次, 整数型
路径数组 ＝ 分割文本 (编辑框2.内容, #换行符, )
.计次循环首 (取数组成员数 (路径数组), 计次)
路径 ＝ 路径数组 [计次]
运行 (路径, 假, )
.计次循环尾 ()
.子程序 _组合框1_列表项被选择
.局部变量 配置文件, 整数型
.局部变量 文件号, 整数型
配置文件 ＝ 打开文件 (取运行目录 () ＋ “\” ＋ 组合框1.内容 ＋ “.ini”, , )
编辑框1.内容 ＝ 读入文本 (配置文件, )
文件号 ＝ 打开文件 (取运行目录 () ＋ “\config.inf”, 2, )
写配置项 (“config.inf”, “组合框信息”, “内容”, 组合框1.内容)
.如果 (单选框2.选中)
写配置项 (取运行目录 () ＋ “\config.inf”, “单选框信息”, “选中状态”, “1”)
.否则
写配置项 (取运行目录 () ＋ “\config.inf”, “单选框信息”, “选中状态”, “0”)
.如果结束
.如果 (选择框1.选中)
写配置项 (取运行目录 () ＋ “\config.inf”, “选择框1信息”, “选中状态”, “1”)
.否则
写配置项 (取运行目录 () ＋ “\config.inf”, “选择框1信息”, “选中状态”, “0”)
.如果结束
.如果 (选择框2.选中)
写配置项 (取运行目录 () ＋ “\config.inf”, “选择框2信息”, “选中状态”, “1”)
.否则
写配置项 (取运行目录 () ＋ “\config.inf”, “选择框2信息”, “选中状态”, “0”)
.如果结束
关闭文件 (文件号)
关闭文件 (配置文件)
.子程序 _组合框1_将弹出列表
.局部变量 文件名称, 文本型
.局部变量 文件名部分, 文本型, , "1"
.局部变量 项目数量, 整数型
项目数量 ＝ 组合框1.取项目数 ()
.计次循环首 (项目数量, )
组合框1.删除项目 (0)
.计次循环尾 ()
文件名称 ＝ 寻找文件 (“*.ini”, )
.循环判断首 ()
.如果 (文件名称 ≠ “”)
文件名部分 ＝ 分割文本 (文件名称, “\”, )
组合框1.加入项目 (取文本左边 (文件名部分 [取数组成员数 (文件名部分)], 取文本长度 (文件名部分 [取数组成员数 (文件名部分)]) － 4), )
文件名称 ＝ 寻找文件 (, )
.否则
跳出循环 ()
.如果结束
.循环判断尾 (文件名称 ≠ “”)
.子程序 _选择框1_被单击
.局部变量 文件号, 整数型
文件号 ＝ 打开文件 (取运行目录 () ＋ “\config.inf”, 2, )
写配置项 (取运行目录 () ＋ “\config.inf”, “组合框信息”, “内容”, 组合框1.内容)
.如果 (单选框2.选中)
写配置项 (取运行目录 () ＋ “\config.inf”, “单选框信息”, “选中状态”, “1”)
.否则
写配置项 (取运行目录 () ＋ “\config.inf”, “单选框信息”, “选中状态”, “0”)
.如果结束
.如果 (选择框1.选中)
写配置项 (取运行目录 () ＋ “\config.inf”, “选择框1信息”, “选中状态”, “1”)
.否则
写配置项 (取运行目录 () ＋ “\config.inf”, “选择框1信息”, “选中状态”, “0”)
.如果结束
.如果 (选择框2.选中)
写配置项 (取运行目录 () ＋ “\config.inf”, “选择框2信息”, “选中状态”, “1”)
.否则
写配置项 (取运行目录 () ＋ “\config.inf”, “选择框2信息”, “选中状态”, “0”)
.如果结束
关闭文件 (文件号)
.如果 (选择框1.选中 ＝ 真)
选择框2.禁止 ＝ 假
单选框2.禁止 ＝ 假
单选框3.禁止 ＝ 假
.否则
选择框2.禁止 ＝ 真
单选框2.禁止 ＝ 真
单选框3.禁止 ＝ 真
.如果结束
.子程序 _选择框2_被单击
.局部变量 文件号, 整数型
文件号 ＝ 打开文件 (取运行目录 () ＋ “\config.inf”, 2, )
写配置项 (取运行目录 () ＋ “\config.inf”, “组合框信息”, “内容”, 组合框1.内容)
.如果 (单选框2.选中)
写配置项 (取运行目录 () ＋ “\config.inf”, “单选框信息”, “选中状态”, “1”)
.否则
写配置项 (取运行目录 () ＋ “\config.inf”, “单选框信息”, “选中状态”, “0”)
.如果结束
.如果 (选择框1.选中)
写配置项 (取运行目录 () ＋ “\config.inf”, “选择框1信息”, “选中状态”, “1”)
.否则
写配置项 (取运行目录 () ＋ “\config.inf”, “选择框1信息”, “选中状态”, “0”)
.如果结束
.如果 (选择框2.选中)
写配置项 (取运行目录 () ＋ “\config.inf”, “选择框2信息”, “选中状态”, “1”)
.否则
写配置项 (取运行目录 () ＋ “\config.inf”, “选择框2信息”, “选中状态”, “0”)
.如果结束
关闭文件 (文件号)
.子程序 _单选框2_被单击
.局部变量 文件号, 整数型
文件号 ＝ 打开文件 (取运行目录 () ＋ “\config.inf”, 2, )
写配置项 (取运行目录 () ＋ “\config.inf”, “组合框信息”, “内容”, 组合框1.内容)
.如果 (单选框2.选中)
写配置项 (取运行目录 () ＋ “\config.inf”, “单选框信息”, “选中状态”, “1”)
.否则
写配置项 (取运行目录 () ＋ “\config.inf”, “单选框信息”, “选中状态”, “0”)
.如果结束
.如果 (选择框1.选中)
写配置项 (取运行目录 () ＋ “\config.inf”, “选择框1信息”, “选中状态”, “1”)
.否则
写配置项 (取运行目录 () ＋ “\config.inf”, “选择框1信息”, “选中状态”, “0”)
.如果结束
.如果 (选择框2.选中)
写配置项 (取运行目录 () ＋ “\config.inf”, “选择框2信息”, “选中状态”, “1”)
.否则
写配置项 (取运行目录 () ＋ “\config.inf”, “选择框2信息”, “选中状态”, “0”)
.如果结束
关闭文件 (文件号)
.子程序 _单选框3_被单击
.局部变量 文件号, 整数型
文件号 ＝ 打开文件 (取运行目录 () ＋ “\config.inf”, 2, )
写配置项 (取运行目录 () ＋ “\config.inf”, “组合框信息”, “内容”, 组合框1.内容)
.如果 (单选框2.选中)
写配置项 (取运行目录 () ＋ “\config.inf”, “单选框信息”, “选中状态”, “1”)
.否则
写配置项 (取运行目录 () ＋ “\config.inf”, “单选框信息”, “选中状态”, “0”)
.如果结束
.如果 (选择框1.选中)
写配置项 (取运行目录 () ＋ “\config.inf”, “选择框1信息”, “选中状态”, “1”)
.否则
写配置项 (取运行目录 () ＋ “\config.inf”, “选择框1信息”, “选中状态”, “0”)
.如果结束
.如果 (选择框2.选中)
写配置项 (取运行目录 () ＋ “\config.inf”, “选择框2信息”, “选中状态”, “1”)
.否则
写配置项 (取运行目录 () ＋ “\config.inf”, “选择框2信息”, “选中状态”, “0”)
.如果结束
关闭文件 (文件号)
.子程序 __启动窗口_创建完毕
.局部变量 组合框内容, 文本型
.局部变量 单选框状态, 整数型
.局部变量 选择框1状态, 整数型
.局部变量 选择框2状态, 整数型
.局部变量 配置文件, 整数型
.局部变量 程序列表, 整数型
.如果 (文件是否存在 (取运行目录 () ＋ “frpc.exe”) ＝ 假)
写到文件 (取运行目录 () ＋ “\frpc.exe”, #图片1)
.否则
.如果结束
.如果 (文件是否存在 (取运行目录 () ＋ “\config.inf”) ＝ 真)
组合框内容 ＝ 读配置项 (取运行目录 () ＋ “\config.inf”, “组合框信息”, “内容”, “”)
单选框状态 ＝ 到整数 (读配置项 (取运行目录 () ＋ “\config.inf”, “单选框信息”, “选中状态”, “0”))
选择框1状态 ＝ 到整数 (读配置项 (取运行目录 () ＋ “\config.inf”, “选择框1信息”, “选中状态”, “0”))
选择框2状态 ＝ 到整数 (读配置项 (取运行目录 () ＋ “\config.inf”, “选择框2信息”, “选中状态”, “0”))
组合框1.内容 ＝ 组合框内容
单选框2.选中 ＝ 单选框状态 ＝ 1
选择框1.选中 ＝ 选择框1状态 ＝ 1
选择框2.选中 ＝ 选择框2状态 ＝ 1
.否则
组合框1.内容 ＝ “frpc”
.如果结束
配置文件 ＝ 打开文件 (组合框1.内容 ＋ “.ini”, , )
编辑框1.内容 ＝ 读入文本 (配置文件, )
关闭文件 (配置文件)
.如果 (文件是否存在 (取运行目录 () ＋ “\Startup.inf”) ＝ 真)
程序列表 ＝ 打开文件 (取运行目录 () ＋ “\Startup.inf”, , )
编辑框2.内容 ＝ 读入文本 (程序列表, )
关闭文件 (程序列表)
.否则
编辑框2.内容 ＝ “ 使用方法” ＋ #换行符 ＋ “运行程序示例：” ＋ #换行符 ＋ “D:\FRP\frpc.exe” ＋ #换行符 ＋ “C:\XXX\XXX.bat” ＋ #换行符 ＋ #换行符 ＋ “打开网页示例：” ＋ #换行符 ＋ “Explorer.exe http://baidu.com” ＋ #换行符 ＋ “cmd /c start http://baidu.com”
.如果结束
.如果 (选择框1.选中 ＝ 真)
选择框2.禁止 ＝ 假
单选框2.禁止 ＝ 假
单选框3.禁止 ＝ 假
.否则
选择框2.禁止 ＝ 真
单选框2.禁止 ＝ 真
单选框3.禁止 ＝ 真
.如果结束
.如果 (选择框1.选中 ＝ 真)
.如果 (单选框2.选中 ＝ 真)
_超级按钮2_被单击 ()
.如果 (选择框2.选中 ＝ 真)
延迟 (2000)
_超级按钮6_被单击 ()
.否则
.如果结束
.否则
单选框3.选中 ＝ 真
_超级按钮3_被单击 ()
.如果 (选择框2.选中 ＝ 真)
延迟 (2000)
_超级按钮6_被单击 ()
.否则
.如果结束
.如果结束
.否则
.如果结束
.子程序 _超级按钮1_鼠标右键被按下, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型
.如果 (文件是否存在 (组合框1.内容 ＋ “.ini”) ＝ 真)
删除文件 (组合框1.内容 ＋ “.ini”)
.如果 (文件是否存在 (组合框1.内容 ＋ “.ini”) ＝ 真)
信息框 (“删除失败”, 0, “提示”, )
运行 (“explorer.exe ” ＋ 取运行目录 (), 假, )
.否则
信息框 (“删除成功”, 0, “提示”, )
组合框1.内容 ＝ “”
.如果结束
.否则
信息框 (“文件不存在”, 0, “提示”, )
.如果结束
