ZeroTier 辅助启动工具/远程访问联机大局域网

暗夜硝烟

新版在这里
便携虚拟局域网远程桌面（易语言程序+ZeroTier+TightVNC）
https://www.52pojie.cn/thread-1958630-1-1.html
(出处: 吾爱破解论坛)


新的下载地址
https://wwvl.lanzout.com/iEmEs28z7k0d
密码:52pjj



虚拟局域网配置工具，超简单使用，一键安装，一键卸载，一键加入
保存网络ID，名称随意，网络ID请上ZeroTier自行申请，本程只是辅助启动。操作简单。

远程办公，联机游戏还是不错滴！
本程序本身并不能远程联机，只是使用命令图形化控制ZeroTier软件。
需要的下载吧！
https://wwvl.lanzout.com/ikErK28ubp2j
密码:52pj

[Visual Basic] 纯文本查看 复制代码

.版本 2
.支持库 EThread
.支持库 sock
.支持库 iext

.程序集 窗口程序集_启动窗口

.子程序 _超级按钮6_被单击

.如果 (编辑框5.内容 ＝ “”)
    运行 (“Explorer.exe http://” ＋ 编辑框1.内容 ＋ “.” ＋ 编辑框2.内容 ＋ “.” ＋ 编辑框3.内容 ＋ “.” ＋ 编辑框4.内容 ＋ “:80”, 假, )
.否则
    运行 (“Explorer.exe http://” ＋ 编辑框1.内容 ＋ “.” ＋ 编辑框2.内容 ＋ “.” ＋ 编辑框3.内容 ＋ “.” ＋ 编辑框4.内容 ＋ “:” ＋ 编辑框5.内容, 假, )

.如果结束


.子程序 _编辑框1_按下某键, 逻辑型
.参数 键代码, 整数型
.参数 功能键状态, 整数型

.如果真 (键代码 ＝ #回车键)
    编辑框2.获取焦点 ()
.如果真结束


.子程序 _编辑框2_按下某键, 逻辑型
.参数 键代码, 整数型
.参数 功能键状态, 整数型

.如果真 (键代码 ＝ #回车键)
    编辑框3.获取焦点 ()
.如果真结束


.子程序 _编辑框3_按下某键, 逻辑型
.参数 键代码, 整数型
.参数 功能键状态, 整数型

.如果真 (键代码 ＝ #回车键)
    编辑框4.获取焦点 ()
.如果真结束


.子程序 _编辑框4_按下某键, 逻辑型
.参数 键代码, 整数型
.参数 功能键状态, 整数型

.如果真 (键代码 ＝ #回车键)
    编辑框5.获取焦点 ()

.如果真结束


.子程序 _编辑框5_按下某键, 逻辑型
.参数 键代码, 整数型
.参数 功能键状态, 整数型

.如果真 (键代码 ＝ #回车键)
    _超级按钮6_被单击 ()
.如果真结束




.子程序 __启动窗口_创建完毕

时钟1.时钟周期 ＝ 10000
启动线程 (&_时钟1_周期事件, , )
载入 (_启动窗口, , 真)

.子程序 _时钟1_周期事件
.局部变量 索引, 整数型
.局部变量 本机IP数组, 文本型, , "1"

本机IP数组 ＝ 取本机IP ()

透明标签2.标题 ＝ #换行符 ＋ “本机 IP 地址”
.计次循环首 (取数组成员数 (本机IP数组), 索引)
    透明标签2.标题 ＝ 透明标签2.标题 ＋ “” ＋ #换行符 ＋ 本机IP数组 [索引]
.计次循环尾 ()


.子程序 _透明标签11_鼠标左键被按下, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型

信息框 (“本程序免费” ＋ #换行符 ＋ #换行符 ＋ “by:姬御风” ＋ #换行符 ＋ “QQ：602713767” ＋ #换行符 ＋ “需要帮助请加QQ”, 0, “关于”, )


.子程序 _超级按钮4_被单击

.如果 (文件是否存在 (取运行目录 () ＋ “\” ＋ 组合框1.内容 ＋ “.ini”) ≠ 真)
    写到文件 (取运行目录 () ＋ “\” ＋ 组合框1.内容 ＋ “.ini”, 到字节集 (编辑框6.内容))
.否则
    信息框 (“有重复网络名称！”, 0, “失败”, )

.如果结束



.子程序 _组合框1_将弹出列表
.局部变量 文件名称, 文本型
.局部变量 文件名部分, 文本型, , "1"
.局部变量 项目数量, 整数型

项目数量 ＝ 组合框1.取项目数 ()
.计次循环首 (项目数量, )
    组合框1.删除项目 (0)
.计次循环尾 ()
文件名称 ＝ 寻找文件 (“*.ini”, )
.循环判断首 ()
    .如果 (文件名称 ≠ “”)
        文件名部分 ＝ 分割文本 (文件名称, “\”, )
        组合框1.加入项目 (取文本左边 (文件名部分 [取数组成员数 (文件名部分)], 取文本长度 (文件名部分 [取数组成员数 (文件名部分)]) － 4), )
        文件名称 ＝ 寻找文件 (, )
    .否则
        跳出循环 ()
    .如果结束

.循环判断尾 (文件名称 ≠ “”)


.子程序 _组合框1_列表项被选择
.局部变量 配置文件, 整数型
.局部变量 文件号, 整数型

配置文件 ＝ 打开文件 (取运行目录 () ＋ “\” ＋ 组合框1.内容 ＋ “.ini”, , )
编辑框6.内容 ＝ 读入文本 (配置文件, )
关闭文件 (文件号)
关闭文件 (配置文件)

.子程序 _透明标签2_鼠标右键被按下, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型

.如果 (置剪辑板文本 (透明标签2.标题) ＝ 真)
    信息框 (“复制成功”, 0, “提示”, )
.否则

.如果结束


.子程序 _超级按钮5_被单击

.如果 (文件是否存在 (组合框1.内容 ＋ “.ini”) ＝ 真)
    删除文件 (组合框1.内容 ＋ “.ini”)
    .如果 (文件是否存在 (组合框1.内容 ＋ “.ini”) ＝ 真)
        信息框 (“删除失败”, 0, “提示”, )
        运行 (“explorer.exe ” ＋ 取运行目录 (), 假, )
    .否则
        信息框 (“【” ＋ 组合框1.内容 ＋ “】” ＋ “已删除！”, 0, “删除成功”, )
        组合框1.内容 ＝ “”
        编辑框6.内容 ＝ “”
    .如果结束

.否则
    信息框 (“文件不存在”, 0, “提示”, )
.如果结束



.子程序 _超级按钮1_被单击

.如果 (文件是否存在 (“C:\ProgramData\ZeroTier\One\zerotier-one_x64.exe”) ＝ 假)
    写到文件 (取当前目录 () ＋ “\ZeroTier.msi”, #图片1)
    透明标签1.标题 ＝ “正在安装,请稍候...”
    运行 (“msiexec /i ” ＋ 编辑框7.内容 ＋ 取当前目录 () ＋ “\ZeroTier.msi” ＋ 编辑框7.内容 ＋ “ /qn”, 真, )
    透明标签1.标题 ＝ “虚拟网络内网穿透服务”
    删除文件 (“ZeroTier.msi”)
.否则

.如果结束


.子程序 _超级按钮2_被单击

.如果 (文件是否存在 (“C:\ProgramData\ZeroTier\One\zerotier-one_x64.exe”) ＝ 真)
    写到文件 (取当前目录 () ＋ “\ZeroTier.msi”, #图片1)
    透明标签1.标题 ＝ “正在卸载,请稍候...”
    运行 (“msiexec /x ” ＋ 编辑框7.内容 ＋ 取当前目录 () ＋ “\ZeroTier.msi” ＋ 编辑框7.内容 ＋ “ /qn”, 真, 0)
    透明标签1.标题 ＝ “虚拟网络内网穿透服务”
    删除文件 (“ZeroTier.msi”)
.否则

.如果结束

Ditto

收集不易 感谢分享

netsnake

非常感谢，常用这个，简化配置流程很方便

landton

收藏收藏。感谢分享

HuaHuoCG

居然是易语言感谢大佬的源码

cherub0507

ZeroTier国内可用？

暗夜硝烟

cherub0507 发表于 2024-8-31 23:21
ZeroTier国内可用？

可以用的！

暗夜硝烟

HuaHuoCG 发表于 2024-8-31 23:12
居然是易语言感谢大佬的源码

我是新手，才自学的，哪里不会查哪里！

psj736213

收藏。感谢分享

wgc17

感谢大佬的源码！～！