局域网中将一台客户机上屏幕内容实时传播至其它计算机上

Question

各位大虾：
    我急需了解在局域网中将一台客户机上屏幕内容实时传播至其它计算机上，用UDP协议实现好吗？在VB中有没有可简化设计的相关控件？
    敬请帮助，可大致描述实现方法，或提供参考书目。
    给个思路或大体的源码都行，最好不用DX编程噢！
    谢谢！

Answer 1

是时间间隔短，比如每0.2秒一帧，因为你要实时。时间间隔长，对机子来说负担更轻了。至于程序的运行时间，不受限制。
普通的抓图，就是抓屏幕DC上的图像，简单。但是游戏画面、媒体播放器画面无法抓取，要用DX之类的，甚至显存上去抓。要各种图像都能抓到，非常难。

Answer 2

汗  不是给你 QQ 和 MSN了QQ 17310603 
MSN [email protected]我这里有一套  将一台客户机上屏幕内容实时传播至其它计算机上 一台机器可以被多太机器观看同时一台机器也能观看很多台机器

Answer 3

老大，发到我邮箱里吧！[email protected]我从来不用QQ的！

Answer 4

那用VC写个DLL或控件什么的，用VB引用可以吗？

Answer 5

当你在进行教学、演示或展示时，也许你希望主控电脑上的画面同时也出现在其它电脑上；当你在跟踪调试程序时，你也许梦想过两台显示器能够同步，以便观看源代码时不破坏运行程序画面；还有，出于管理的目的，或许你需要远程监控其它电脑的运行状况，等等。上述所有情况都是远程共享显示的例子。　　共享声卡的需求也不少：首先这可以降低硬件投资，让没有装或者没法装声卡的电脑（如某些笔记本电脑）也有了“喉舌”；其次，即使每台机器都有声卡也不无用武之地：至少你的 mp3背景音乐与你的英语有声软件不再经常发生冲突了；还有，共享声卡使得“远程有声通知”成为可能，其作用类似于立即型声音邮件，在日常工作中有广泛的应用。 　　共享显示器或声卡的硬件（一般在扩展槽内插一块卡）在市场上不难找到。但扩充本文的示例程序即可以用软件轻松实现这些功能。一、共享显示　　我们通过一个完整的示例程序（VB 6.0）来说明。在例子中，被共享端（即服务器端）的任务是：自动捕获本机的当前显示画面，并将之传给共享端（即客户端）。 　　1. 服务器端程序（frmServer.frm） 
　　这里有三点需要重点说明：一是自动捕获画面问题。为了模拟“捕获屏幕键”被按下的动作，程序里使用了 API调用 keybd_event。虽然VB的SendKeys语句也有类似功能，但它不如 keybd_event稳定和可靠。二是画面粘贴和压缩存储问题。为了能把已经被捕获到系统剪贴板中的图像粘贴下来并存储到文件，程序里使用了 ImgEdit控件。该控件强大的功能远非PictureBox控件或 Image控件可比。ImgEdit 不仅支持多种压缩图像格式（如 JPG、TIFF等），而且它对画面进行操纵和编辑的功能也非常强大（如图像旋转、缩放、嵌入等）。ImgEdit 还能对剪贴板进行Copy、Cut、Paste等操作。使用 Ctrl+T 或菜单（工程->部件）来添加 Windows标准的 ImgEdit控件（参见图一）。三是文件传输问题。用 ImgEdit存储的压缩文件一般只有 40 KB左右，使用 Winsock控件可以一次传输出去。但由于接收方的 Winsock控件一般是4K至8K调用一次 DataArrival子程，故程序使用主动分块进行传输，接收方确认后再发下一块。  
　　服务器端源程序如下：'frmServer.frm 
Option Explicit 
Const FileName = "C:\sys1.tmp", BlockSize = 3072 ' 传送包大小 
Private Declare Sub keybd_event Lib "user32" _ 
(ByVal bVk As Byte, ByVal bScan As Byte, _ 
ByVal dwFlags As Long, ByVal dwExtraInfo As Long) 
 
Private Sub Form_Load() 
tcpServer.LocalPort = 1001 ' 设置监听端口号 
tcpServer.Listen ' 开始监听 
End Sub 
 
Private Sub tcpServer_ConnectionRequest(ByVal requestID As Long) 
If tcpServer.State <> sckClosed Then tcpServer.Close 
tcpServer.Accept requestID 
tcpServer.SendData "SH" ' 成功连接后，发送“握手”信息 
End Sub 
 
Private Sub tcpServer_DataArrival(ByVal bytesTotal As Long) 
Static FileID As Integer, Cur_Pos As Long, FileLen As Long 
Dim strData As String, j 
Dim Buf() As Byte ' 定义一个可变大小的数组，用于传送二进制图像包 
tcpServer.GetData strData 
Select Case strData 
Case "Close" ' 接到“Disconnect”命令后，关闭当前连接，并继续监听 
tcpServer.Close 
ImgEdit1.ClearDisplay 
tcpServer.LocalPort = 1001 
tcpServer.Listen 
Case "Save Picture" 
Call keybd_event(vbKeySnapshot, 1, 0, 0) ' 模拟按键操作 
j = DoEvents() 
If Dir$(FileName) <> "" Then Kill FileName 
If ImgEdit1.IsClipboardDataAvailable Then ' 当剪贴板上有数据时 
ImgEdit1.ClearDisplay 
ImgEdit1.DisplayBlankImage Screen.Width / _ 
Screen.TwipsPerPixelX, Screen.Height / _ 
Screen.TwipsPerPixelY, , , 6 
ImgEdit1.ClipboardPaste ' 从剪贴板粘贴图像 
ImgEdit1.BurnInAnnotations 0, 2 
ImgEdit1.SaveAs FileName, 1, 6, 6, 256 ' 另存图像。参数说明如下： 
' “FileName”：文件名 
' 参数“1”：TIFF 型文件； 
' 第一个“6”：RGB24类型； 
' 第二个“6”：JPEG压缩类型 
' 参数“256”：最大压缩比 
Clipboard.Clear 
tcpServer.SendData "PS" ' 发送“图像文件就绪”信息 
End If 
Case "Get Picture" 
If Dir$(FileName) <> "" Then 
FileID = FreeFile 
Open FileName For Binary As #FileID ' 打开文件并发送第一块数据 
FileLen = LOF(FileID) 
ReDim Buf(1 To BlockSize) As Byte 
Get #FileID, , Buf 
tcpServer.SendData Buf 
Cur_Pos = BlockSize 
End If 
Case "Next Block" 
If Cur_Pos = FileLen Then 
tcpServer.SendData "EF" ' 文件传送完毕后，发送“完成”信息 
Close FileID 
Exit Sub 
End If 
j = Cur_Pos + BlockSize 
If j > FileLen Then 
j = FileLen - Cur_Pos 
Else 
j = BlockSize 
End If 
ReDim Buf(1 To j) As Byte ' 动态确定数组大小 
Get #FileID, , Buf 
tcpServer.SendData Buf ' 发送后续包 
Cur_Pos = Cur_Pos + j 
End Select 
End Sub　　2. 客户端程序（frmClient.frm） 
　　在窗体上建六个控件：一个名为 tcpClient的 Winsock控件用于通讯；一个名为txtIP 的 TextBox控件用于填写服务器的IP地址；一个名为ImgEdit1的 ImgEdit控件用于显示服务器传来的图像；三个CommandButton控件（ cmdConnect、cmdGet_Pic和cmdDisconnect） 分别用于执行连接、取回图像和断开连接（见图二）。 　　客户端源代码如下： 
' frmClient.frm 
Option Explicit 
Const FileName = "C:\sys1.tmp" 
Private Sub cmdConnect_Click() 
If tcpClient.State <> sckClosed Then tcpClient.Close 
tcpClient.RemoteHost = txtIP.Text 
tcpClient.RemotePort = 1001 
tcpClient.Connect ' 进行连接 
End Sub 
 
Private Sub cmdDisconnect_Click() 
tcpClient.SendData "Close" ' 断开连接 
cmdConnect.Enabled = True 
cmdGet_Pic.Enabled = False 
cmdDisconnect.Enabled = False 
End Sub 
 
Private Sub cmdGet_Pic_Click() 
tcpClient.SendData "Save Picture" ' 请求图像返回 
frmClient.MousePointer = 11 
End Sub 
 
Private Sub Form_Resize() ' 使 ImgEdit1 的大小随窗体的变化而变化 
ImgEdit1.Height = frmClient.Height - 825 
ImgEdit1.Width = frmClient.Width - 225 
End Sub 
 
Private Sub tcpClient_DataArrival(ByVal bytesTotal As Long) 
Static FileID As Integer, FileLen As Long 
Dim Buf() As Byte 
Dim j As Integer 
ReDim Buf(bytesTotal) As Byte ' 根据到达数据的字节数确定接收数组的大小 
tcpClient.GetData Buf 
' 收到连接完成的“握手”信息 
If bytesTotal = 2 And Chr(Buf(0)) = "S" And Chr(Buf(1)) = "H" Then 
cmdConnect.Enabled = False 
cmdGet_Pic.Enabled = True 
cmdDisconnect.Enabled = True 
Exit Sub 
End If 
' 收到图像就绪的信息 
If bytesTotal = 2 And Chr(Buf(0)) = "P" And Chr(Buf(1)) = "S" Then 
If Dir$(FileName) <> "" Then Kill FileName 
FileID = FreeFile 
Open FileName For Binary As #FileID ' 打开文件，准备存储图像 
FileLen = 0 
tcpClient.SendData "Get Picture" 
Exit Sub 
End If 
' 收到图像发送完毕的信息 
If bytesTotal = 2 And Chr(Buf(0)) = "E" And Chr(Buf(1)) = "F" Then 
Close #FileID ' 关闭文件 
j = DoEvents() 
ImgEdit1.Image = FileName 
ImgEdit1.Display ' 显示收到的图像 
ImgEdit1.BurnInAnnotations 0, 2 
frmClient.MousePointer = 0 
Exit Sub 
End If 
' 收到一块二进制图像信息 
Put #FileID, , Buf ' 将当前数据块存盘 
tcpClient.SendData "Next Block" ' 申请下一块 
FileLen = FileLen + bytesTotal 
frmClient.Caption = "TCP Client " + Trim(Str(FileLen)) + _ 
" Bytes Received." ' 显示当前收到的字节数 
End Sub二、共享声音 　　共享声音与共享显示的思想是一致的，只是这时是客户端向服务器端发送声音文件，以便共享服务器的声卡。服务器端应使用微软的多媒体控件（MMControl） 进行声音播放（使用 Ctrl+T 或菜单“工程->部件”来添加）。用该控件播放声音不仅是简单的，而且功能强大。 
　　由于关键模块与共享显示一致，故此处略去源代码。 

Answer 6

这样太慢？
采用以下方法：
发送端：抓屏后写入PictureBox,然后用GUI进行压缩为Jpg格式进行发送。
接收端：接收二进制，用CopyMemory方法写入内存，等数据接收完成后，用HDc的方式显示。

Answer 7

谢谢楼上的朋友，不过我没有QQ，我对腾讯公司有意见！用MSN或电子邮件吧！
[email protected]
[email protected]
直接操作内存快些吧！传输的时候UDP好像比TCP效率高些吧！还有，要是屏幕上有DX显示的图象怎么办啊？比如用3Dmax之类的东西！
谢谢好心人的帮助！