便携虚拟局域网远程桌面（易语言程序+ZeroTier+TightVNC）

暗夜硝烟

一、运行界面
一键自动执行
1.被控端

开启远程：自动安装ZeroTier.msi程序，并启动tvnserver.exe被控端。
结束远程：自动卸载ZeroTier.msi程序，并结束tvnserver.exe被控端。
关闭窗口并不会卸载ZeroTier.msi程序，也不会结束tvnserver.exe被控端。
#开启远程如果需要安装ZeroTier.msi虚拟网络获取IP会比较慢，如果链接地址显示的192.168开头的可能是物理网卡的ip，可以等几秒刷新看看。

2.控制端

断开连接：结束tvnviewer.exe控制端，自动卸载ZeroTier.msi程序。
远程链接：自动安装ZeroTier.msi程序，并启动tvnviewer.exe控制端链接输入框中的地址。
关闭窗口并不会卸载ZeroTier.msi程序，也不会结束tvnviewer.exe控制端。

二、所有文件

下载会得到一个远程服务1.4.exe，文件为rar自解压，所有用到的文件都在里面（易语言源码也在），也可以直接运行。
biao.ico  =  图标文件
id.ini = ZeroTier网络id（自行注册获取）
TightVNC.reg = tvnserver.exe被控端配置
tvnserver.exe = 被控端程序（服务端）
tvnviewer.exe = 控制端程序（客户端）
ZeroTier.msi = 虚拟局域网安装程序
虚拟网远程.exe = 易语言编译的辅助面板
远程服务.e = 易语言源码（虚拟网远程.exe）

三、使用方法
1、下载远程服务1.4.exe程序。
2、获取ZeroTier网络ID。（自行注册申请）
3、使用winrar打开自解压内 id.ini把申请的网络ID粘贴并保存，或建立同名文件覆盖。（1个ID好像是支持50台设备）
4、直接运行自解压就可以用了，或者解压到一个文件夹运行虚拟网远程.exe

4、下载地址
https://wwvl.lanzout.com/ivHDc28i60af
密码:52pj






这是我新制作的，内置ZeroTier和TightVNC，运行相应操作会自动释放，一键启动。2024/9/2


https://wwvl.lanzout.com/iEmEs28z7k0d
密码:52pjj

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

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

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

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

运行 (“Explorer.exe https://my.zerotier.com/network”, 假, )




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

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


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

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




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

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

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

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


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

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


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

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

.如果结束



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

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

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


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

配置文件 ＝ 打开文件 (取运行目录 () ＋ “\” ＋ 组合框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”)
.否则

.如果结束



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

.如果 (文件是否存在 (取运行目录 () ＋ “\tvnviewer.exe”) ＝ 假)
    写到文件 (取运行目录 () ＋ “\tvnviewer.exe”, #图片2)
    运行 (“tvnviewer.exe ” ＋ 编辑框1.内容 ＋ “::5900”, 假, )
.否则
    运行 (“tvnviewer.exe ” ＋ 编辑框1.内容 ＋ “::5900”, 假, )

.如果结束


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

运行 (“C:\ProgramData\ZeroTier\One\zerotier-one_x64.exe -q  join ” ＋ 编辑框6.内容, 假, )


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

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

.如果结束


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

.如果 (文件是否存在 (取运行目录 () ＋ “\tvnserver.exe”) ＝ 假)
    写到文件 (取运行目录 () ＋ “\TightVNC.reg”, #图片4)
    运行 (“reg import ” ＋ 取当前目录 () ＋ “\TightVNC.reg”, 真, 0)
    删除文件 (取运行目录 () ＋ “\TightVNC.reg”)
    写到文件 (取运行目录 () ＋ “\tvnserver.exe”, #图片3)
    运行 (“tvnserver.exe”, 假, )
.否则
    运行 (“taskkill /f /im tvnserver.exe”, 真, 0)
    写到文件 (取运行目录 () ＋ “\TightVNC.reg”, #图片4)
    运行 (“reg import ” ＋ 取当前目录 () ＋ “\TightVNC.reg”, 真, 0)
    删除文件 (取运行目录 () ＋ “\TightVNC.reg”)
    运行 (“tvnserver.exe”, 假, )
.如果结束

置剪辑板文本 (透明标签2.标题)
信息框 (“IP地址已经复制” ＋ #换行符 ＋ “发送给对方才能连接”, 0, “提示”, )


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

运行 (“taskkill /f /im tvnserver.exe”, 真, 0)
运行 (“taskkill /f /im tvnviewer.exe”, 真, 0)
删除文件 (取运行目录 () ＋ “\tvnserver.exe”)
删除文件 (取运行目录 () ＋ “\tvnviewer.exe”)
销毁 ()


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

运行 (“C:\ProgramData\ZeroTier\One\zerotier-one_x64.exe -q  leave  ” ＋ 编辑框6.内容, 假, )

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

运行 (“taskkill /f /im tvnserver.exe”, 真, 0)
删除 (取运行目录 () ＋ “\tvnserver.exe”)

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

_启动窗口.位置 ＝ 2

wangmeng

32位的运行不起，不支持32

443566434

感谢原创分享！

ynbszyl

支持一下
这样就方便多了

孤独时代的宠儿

公司人多，挺方便使用的

呼噜哥

这个还挺方便的，谢谢楼主分享

Jeffery_hung

方便、实用，就是易语言老是报毒

zhenggogo

这个还挺方便的，谢谢楼主分享

rzw1982

获取不了地址。只能获取内网地址

ch8023lxr

支持一个。。。

muxgg

谢谢分享

zdmin

谢谢分享

houdongen

感谢分享，居然还有源码

明月相照

thanks for sharing 学习下

kisscall999

这样简单问题就不用专门到每个人桌面操作了