VB实现远程共享显示及声音

日期：2007年8月16日作者：查看:[大字体中字体小字体]

　　在局域网内共享调制解调器以及共享打印机都是我们非常熟悉的，而对于显示器和声卡的共享一般比较陌生。当你在进行教学、演示或展示时，也许你希望主控电脑上的画面同时也出现在其它电脑上；当你在跟踪调试程序时，你也许梦想过两台显示器能够同步，以便观看源代码时不破坏运行程序画面；还有，出于管理的目的，或许你需要远程监控其它电脑的运行状况，等等。上述所有情况都是远程共享显示的例子。

　　共享声卡的需求也不少：首先这可以降低硬件投资，让没有装或者没法装声卡的电脑（如某些笔记本电脑）也有了“喉舌”；其次，即使每台机器都有声卡也不无用武之地：至少你的 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" ' 成功连接后，发送“握手”信息
[1] [2] [3] [4] 下一页
VB实现远程共享显示及声音相关文章：
·InterPhonic 文本至语音转换合成在线完成
·让你用暴风影音看电视剧的两招
·QQ音信图标点亮的办法
·彻底解决Windows Vista音量图标丢失问题
·Flash教程之打造窗之恋音乐动画
·让QQ空间播放多首背景音乐技巧
·定制个性化的暴风影音播放器
·暴风影音3用户完美版功能细节与软件下载
·酷我音乐盒独家秘籍偷偷报
·暴风影音3闪亮登场硅谷第一评测
VB实现远程共享显示及声音相关软件
·《冰封王座》地图：逃学大乱斗V2.8音乐版
·天狼星语音控制QQ幻想
·天狼星语音控制魔兽
·天狼星语音控制大话西游
·《反恐精英》丹麦电竞组织mYm官方音乐
·《暗黑破坏神》崔斯特瑞姆背景音乐
·《忍者神龟2007》原声音乐下载
·《音乐教室》(Sveerz Deluxe)游戏试玩
·《音速刺猬R》试玩
·NDS《音珠：音符岛篇》（日）模拟器

上一篇:用VB编写你自己的MSN即时通讯软件

下一篇:跟3721比狠:VB6.0实现中文实名搜索

特别声明：本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载，但请务必注明出处和原始作
者.文章版权归文章原始作者所有.对于被本站转载文章的个人和网站，我们表示深深的谢意。如果本站转
载的文章有版权问题请联系编辑人员,我们尽快予以更正. 转载请注明来源：http://www.hackhome.com

VB实现远程共享显示及声音

精品推荐

热点TOP10

特别推荐