我看了一下，被控端里临时路径里生成的图片文件大小不断的在变化，说明被控端屏幕截取是没有问题的，主控端的临时路径里传输过来的图片一直没有变化，不过我在主控端接收图片的循环里下了断点并查看了文件是否接收成功的那个参数，发现参数是在不断的变化的，也就说明文件传输是在进行的，只是为什么目录里文件不变就不懂了。这里设接收文件的返回值3变量，一接收完弹出消息框是0，说明传输成功，符合条件进入循环，完成任务后，再付值变量返回3并弹出消息框，说明语名执行到了如果语句内，反复测试，返回值3一直在0和1之间变化，说明是在不断的接收文件，并成功。当然为了测试方便，被控端发送图片的速度我设的时间间隔比较大。
- 功能 屏幕监控()
- 被控窗口句柄= 控件.打开窗口("控制窗口")
- 窗口.设置大小(被控窗口句柄,本机分辩率w,本机分辩率h-60)
- 窗口.最大化(被控窗口句柄)
- 辅助.消息框(本机分辩率h)
- 辅助.消息框(被控端分辩率h)
- 循环(真)
- 套接字句柄3=网络.套接字(1)//创建流式(TPC)套接字
- 网络.绑定(套接字句柄3,8888)//开启了计算机的9999端口,供外界连接
- 网络.**(套接字句柄3,5)//**套接字,设置可连接数为5个
- rIP3=0
- 新套接字句柄3=网络.接受(套接字句柄3,rIP3)//这里程序会挂起等待,直到有客户端连接到来
- 返回值3=网络.接收文件(新套接字句柄3,路径&"传输.png")//接收从客户端发送文件并保存到E盘下2.bmp
- 辅助.消息框("1返回值"&返回值3)
- 如果(返回值3==0)
- 辅助.等待(2000)
- 如果(本机分辩率h>被控端分辩率h+60)
- 控件.创建("图片框","图片框0","控制窗口",0,0,被控端分辩率w,被控端分辩率h,"真","点击:newTC.事件",被控窗口句柄)
- 图片框句柄=控件.获得句柄("图片框0","控制窗口")
- 否则
- x=被控端分辩率w-(被控端分辩率w/被控端分辩率h)*(本机分辩率h-60)
- 控件.创建("图片框","图片框0","控制窗口",0,0,被控端分辩率w-x,本机分辩率h-60,"真","点击:newTC.事件",被控窗口句柄)
- 图片框句柄=控件.获得句柄("图片框0","控制窗口")
- 如果结束
- 图片框.设置图片("图片框0",路径&"传输.png","控制窗口")
- 返回值3=1
- 辅助.消息框("2返回值"&返回值3)
- 如果结束
- 网络.关闭套接字(新套接字句柄3)//关闭套接字释放资源
- 网络.关闭套接字(套接字句柄3)//关闭套接字释放资源
- 循环结束
- 功能结束
|
/2 
发表于 2014-5-2 18:25:41
收藏
支持
反对
发表于 2014-5-3 17:13:33
楼主
