[教学]VB实现远程共享显示及声音

[教学]VB实现远程共享显示及声音 VB实现远程共享显示及声音 在局域网内共享调制解调器以及共享打印机都是我们非常熟悉的，而对于显示器和声卡的共享一般比较陌生。 ,当你在进行教学、演示或展示时，也许你希望主控电脑上的画面同时也出现在其它电脑上;当你在跟踪调试程序时，你也许梦想过两台显示器能够同步，以便观看源代码时不破坏运行程序画面;还有，出于管理的目的，或许你需要远程监控其它电脑的运行状况，等等。上述所有情况都是远程共享显示的例子。 ,共享声卡的需求也不少:首先这可以降低硬件投资，让没有装或者没法装声卡的电脑(如某些笔记本电脑)也有了“喉舌”;其次，即使每台机器都有声卡也不无用武之地:至少你的 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 或菜单“ 强大。 ,由于关键模块与共享显示一致，故此处略去源代码。