用deepseek请求出来查看对方屏幕的代码。请大神来帮完善

llw9903

在deepseek里发送这句话用易语言写一个远程查看对方计算机的屏幕代码，要求有主控端，被控端被控端代码得出下面的代码

[size=16.002px]被控端负责捕获屏幕图像并发送给主控端。

.版本 2

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

.程序集变量 服务器, 网络服务器

.程序集变量 屏幕图像, 字节集

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

    服务器.创建 (12345)  ' 监听端口12345

    服务器.绑定事件 (&收到连接请求, &收到数据)

.子程序 收到连接请求

    .参数 客户Duan, 网络客户Duan

    客户Duan.发送数据 (屏幕图像)

.子程序 收到数据

    .参数 客户Duan, 网络客户Duan

    .参数 数据, 字节集

    ' 这里可以处理主控端发送的指令

.子程序 捕获屏幕

    .局部变量 屏幕DC, 整数型

    .局部变量 内存DC, 整数型

    .局部变量 位图, 整数型

    .局部变量 屏幕宽度, 整数型

    .局部变量 屏幕高度, 整数型

    屏幕DC ＝ 取屏幕设备上下文 ()

    屏幕宽度 ＝ 取屏幕宽度 ()

    屏幕高度 ＝ 取屏幕高度 ()

    内存DC ＝ 创建内存设备上下文 (屏幕DC)

    位图 ＝ 创建兼容位图 (屏幕DC, 屏幕宽度, 屏幕高度)

    选择对象 (内存DC, 位图)

    位块传输 (内存DC, 0, 0, 屏幕宽度, 屏幕高度, 屏幕DC, 0, 0, 拷贝)

    屏幕图像 ＝ 位图到字节集 (位图)

    删除对象 (位图)

    删除设备上下文 (内存DC)

    释放设备上下文 (屏幕DC)

.子程序 定时器_周期事件

    捕获屏幕 ()

    服务器.发送数据 (屏幕图像)

---------------------------------------------------------------

主控端代码

[size=16.002px]主控端负责接收被控端的屏幕图像并显示。

.版本 2

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

.程序集变量 客户Duan, 网络客户Duan

.程序集变量 屏幕图像, 字节集

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

    客户Duan.创建 ()

    客户Duan.连接 ("被控端IP地址", 12345)  ' 连接被控端的IP地址和端口

    客户Duan.绑定事件 (&收到数据)

.子程序 收到数据

    .参数 数据, 字节集

    屏幕图像 ＝ 数据

    刷新显示 ()

.子程序 刷新显示

    .局部变量 位图, 整数型

    .局部变量 屏幕DC, 整数型

    位图 ＝ 字节集到位图 (屏幕图像)

    屏幕DC ＝ 取屏幕设备上下文 ()

    绘制位图 (屏幕DC, 0, 0, 位图)

    删除对象 (位图)

    释放设备上下文 (屏幕DC)

写出能直接编绎运行的。感谢各位大神了！谢谢

编程阿狸

灰G子不香么

cunanhai

编程阿狸 发表于 2025-2-7 01:47
灰G子不香么

这也太骨灰了吧

llw9903

编程阿狸 发表于 2025-2-7 01:47
灰G子不香么

灰G子有最新的吗。我看精易那贴子好多年前的了