图形化frpc辅助启动小工具 一键启动 自动启动

暗夜硝烟

自己平时有用FRP，没找到好用顺手的，自己DIY了一个。
功能比较简单。就图上的一些功能。已经内置了FRPC程序，运行时会释放。

第一个 保存配置按钮  右键点击为删除frp配置文件。
第二个 保存配置按钮  右键为读取附加启动配置文件。

下载地址
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, “提示”, )
.如果结束

shadow266

有的,https://github.com/luckjiawei/frpc-desktop,叫做frpc-desktop

koogg

flyingdancex 发表于 2024-9-8 09:02
你这是正宗的frp吧

   你不说我还真没注意到，确实因为我都添加在收藏夹的，已经换了
https://github.com/koho/frpmgr

wudavid33

谢谢楼主分享

justwz

用心了  大佬666

风逝998

谢谢楼主分享!

暗夜硝烟

风逝998 发表于 2024-8-31 23:23
谢谢楼主分享!

网络问题吧，我这电脑和手机数据试了都没问题哦。

zHiHz

谢谢楼主分享!

52PJ070

好工具，感谢楼主原创分享！

Lyong2025

谢谢分享，下载试试

BeIntoS

感谢分享！