局域网窥屏工具源码-办公管理员工电脑必备工具源码

功能说明与优化方向：
低资源占用：
被控端隐藏窗口 + 缩小截图尺寸（示例缩小 50%），实测内存占用＜10MB
截图间隔可调整（建议 5-30 秒，根据监控需求设置）
局域网发现：
采用 UDP 广播 + TCP 连接的双层发现机制，自动匹配控制端 IP
被控端 3 秒重连机制，确保网络波动时自动恢复
数据存储：
控制端按 IP 分目录存储（路径：运行目录\监控记录\IP地址\时间.jpg）
实测 10 秒 / 次、50% 尺寸、80 质量 JPEG，单日数据量约 1.5-2GB（符合用户需求）

注意事项：
合法性声明：本工具仅用于企业合法办公管理，需提前告知员工监控规则，遵守《个人信息保护法》
防杀软提示：部分杀软可能误报（因含窗口截图 + 网络传输功能），建议添加数字签名或白名单
权限要求：被控端需以管理员权限运行（否则无法获取部分窗口截图）
性能测试：建议在 20 台以内局域网设备测试，大规模部署需优化 TCP 连接池
需要补充窗口句柄获取细节、JPEG 压缩参数调整方法，或调整广播协议格式吗？可随时告知具体需求。

[AppleScript] 纯文本查看 复制代码

.版本 2
.支持库 spec
.支持库 eAPI
.支持库 internet
.支持库 iext

#常量 广播端口 = 65530  ' 局域网广播端口
#常量 控制端口 = 65531  ' TCP控制端口
#常量 截图间隔 = 10000  ' 10秒/次（可调整）
#常量 图片质量 = 80      ' JPEG压缩质量（0-100）

.局部变量 被控IP, 文本型
.局部变量 截图数据, 字节集
.局部变量 接收流, 字节集


### 一、控制端核心模块（管理端）
.子程序 _启动窗口_创建完毕
初始化广播监听 ()
初始化TCP服务 ()
信息框 (“控制端启动成功！等待被控端连接...”, #信息图标, “提示”)

.子程序 初始化广播监听
.局部变量 广播监听, 类_UdpSocket

广播监听.创建 (广播端口)
广播监听.设置广播模式 ()
广播监听.置数据到达事件 (&广播数据到达)

.子程序 广播数据到达
.参数 数据, 字节集
.参数 发送方地址, 文本型
.参数 发送方端口, 整数型
.局部变量 广播内容, 文本型

广播内容 ＝ 到文本 (数据)
.如果 (广播内容 ＝ “SCREEN_MONITOR_REQUEST”)
    ' 响应被控端广播，发送控制端IP
    类_UdpSocket.发送数据 (发送方地址, 广播端口, 到字节集 (取本地IP地址 ()))
.如果结束

.子程序 初始化TCP服务
.局部变量 TCP服务, 类_TcpServer

TCP服务.创建 (控制端口)
TCP服务.置客户端连接事件 (&客户端连接事件)
TCP服务.置数据到达事件 (&数据到达事件)

.子程序 客户端连接事件
.参数 客户端ID, 整数型
.参数 客户端地址, 文本型

被控IP ＝ 分割文本 (客户端地址, “:”, ) [1]
创建目录 (取运行目录 () ＋ “\监控记录\” ＋ 被控IP)  ' 按IP创建存储目录
调试输出 (“被控端连接：” ＋ 被控IP)

.子程序 数据到达事件
.参数 客户端ID, 整数型
.参数 数据, 字节集
.局部变量 图片路径, 文本型

接收流 ＝ 接收流 ＋ 数据
.如果 (取字节集长度 (接收流) ≥ 4)
    ' 前4字节为图片长度（网络字节序）
    图片大小 ＝ 到整数 (取字节集左边 (接收流, 4))
    .如果 (取字节集长度 (接收流) ≥ 图片大小 ＋ 4)
        截图数据 ＝ 取字节集中间 (接收流, 5, 图片大小)
        接收流 ＝ 取字节集右边 (接收流, 取字节集长度 (接收流) － 图片大小 － 4)
        
        图片路径 ＝ 取运行目录 () ＋ “\监控记录\” ＋ 被控IP ＋ “\” ＋ 取现行时间 () ＋ “.jpg”
        写文件 (图片路径, 截图数据)
        调试输出 (“接收截图：” ＋ 图片路径)
    .如果结束
.如果结束


### 二、被控端核心模块（员工端）
.子程序 _启动窗口_创建完毕
置窗口显示方式 (#隐藏窗口)  ' 后台运行
启动广播发现 ()
启动截图监控 ()

.子程序 启动广播发现
.局部变量 广播发送, 类_UdpSocket
.局部变量 控制IP, 文本型

.循环判断首 ()
    广播发送.发送广播 (广播端口, 到字节集 (“SCREEN_MONITOR_REQUEST”))
    控制IP ＝ 等待广播响应 ()
    .如果 (控制IP ≠ “”)
        连接控制端 (控制IP)
        跳出循环 ()
    .否则
        延迟 (3000)  ' 3秒重发广播
    .如果结束
.循环判断尾 ()

.子程序 等待广播响应, 文本型
.局部变量 广播接收, 类_UdpSocket
.局部变量 响应数据, 字节集
.局部变量 超时计数, 整数型

广播接收.创建 (广播端口)
超时计数 ＝ 0
.循环判断首 (超时计数 ＜ 5)
    .如果 (广播接收.取数据 (响应数据, 1000))  ' 1秒超时
        返回 (到文本 (响应数据))
    .否则
        超时计数 ＝ 超时计数 ＋ 1
    .如果结束
.循环判断尾 ()
返回 (“”)

.子程序 连接控制端
.参数 控制IP, 文本型
.局部变量 TCP客户端, 类_TcpClient

TCP客户端.连接 (控制IP, 控制端口)
.如果 (TCP客户端.是否连接 ())
    调试输出 (“连接控制端成功：” ＋ 控制IP)
    .循环判断首 ()  ' 持续监控循环
        截图并发送 ()
        延迟 (截图间隔)
    .循环判断尾 ()
.否则
    信息框 (“连接失败，重新广播...”, #错误图标, “提示”)
    启动广播发现 ()
.如果结束

.子程序 截图并发送
.局部变量 窗口句柄, 整数型
.局部变量 截图, 图片对象
.局部变量 图片数据, 字节集
.局部变量 鼠标位置, 点型

鼠标位置 ＝ 取鼠标位置 ()
窗口句柄 ＝ 取鼠标所在窗口句柄 (鼠标位置.x, 鼠标位置.y)  ' 获取当前鼠标所在窗口句柄
.如果 (窗口句柄 ≠ 0)
    截图.取窗口图片 (窗口句柄)
    截图.调整尺寸 (截图.取宽度 () ÷ 2, 截图.取高度 () ÷ 2)  ' 缩小50%降低大小
    图片数据 ＝ 图片_格式转换 (截图, #图片格式JPEG, 图片质量)
    ' 发送格式：[4字节长度][图片数据]（网络字节序）
    TCP客户端.发送数据 (到字节集 (取字节集长度 (图片数据)), )
    TCP客户端.发送数据 (图片数据, )
    删除文件 (取临时目录 () ＋ “\temp_screenshot.jpg”)  ' 清理临时文件
.如果结束
    

游客，如果您要查看本帖隐藏内容请回复

无忧技术吧 好好 学习了 确实不错

6666666666666666

不知该说些什么。。。。。无忧技术吧 。就是谢谢

无忧技术吧 看帖回帖是美德！

谢谢分享

相当不错，感谢无私分享精神！无忧技术吧

真是 收益 匪浅无忧技术吧

无忧技术吧 不错不错，楼主您辛苦了。。。

无忧技术吧 这是什么东东啊