VB实现局域网屏幕监视介绍

时间：2016-04-07 19:59:24 林辉766由分享

局域网中，往往有定时监视同一组内机器的屏幕的需要。下面由学习啦小编给你做出详细的VB实现局域网屏幕监视介绍!希望对你有帮助!

VB实现局域网屏幕监视介绍:

VB实现局域网屏幕监视一、

引言

在工业控制中，某车间有多条生产线，每条生产线有一台或几台计算机实时监控该生产线的工序参数的波动;同时，需要有一台计算机(可以称之为屏幕监视)来定时循环地显示各监视器的屏幕，以达到及时发现异常情况的目的。再如学校等公共机房，为了提高机器的有效使用率，屏幕监视亦具有良好的效用。本文将介绍如何用VB来实现屏幕监视的功能。

VB实现局域网屏幕监视二、

VB实现屏幕监视的原理

本文把被监视的机器称为客户机，监视屏幕的机器称为服务器(程序中服务器的名称为Monitor)。首先在客户机上把显示器的屏幕作为一个窗口，并且把该窗口作为图像加在VB工程中的窗体上，而后把该图像在服务器上保存为图像文件。在服务器上则在窗体中循环加载图像文件，实现动态的、可选择地显示各个图像。

VB实现局域网屏幕监视三、

客户机程序的编制与设置

1、启动VB，创建缺省工程

将窗体的Visible属性改为False，并在窗体上添加一Timer控件，名称为Timer1，其Interval属性设为30000(采样间隔为30秒)。

2、API函数的声明(可通过API Text Viewer加入)

Private Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long

Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long

Private Declare Function GetDesktopWindow Lib "user32" () As Long

Private Declare Function ReleaseDC Lib "user32" (ByVal hwnd As Long, ByVal hdc As Long) As Long

Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long

3、全局变量的声明

Dim ComputerName As String '本机名称，用来区分不同的机器所生成的图像。

4、再添加以下代码

Private Sub Form_Load()

Dim sBuffer As String

Dim lSize As Long

sBuffer = Space$(255)

lSize = Len(sBuffer)

Call GetComputerName(sBuffer, lSize)

ComputerName = Trim(Left$(sBuffer, lSize))

Call iniPara 'iniPara函数定义在后

End Sub

为了防止程序被终止，添加如下语句：

Private Sub Form_Unload(Cancel As Integer)

Shell "C:\System\Client.exe" '调用本程序所生成的可执行文件

End Sub

Private Sub Timer1_Timer()

Dim swnd, sdc, hd

swnd = GetDesktopWindow()

sdc = GetDC(swnd)

hd = BitBlt(Me.hdc, 0, 0, Me.Width, Me.Height, sdc, 0, 0, &HCC0020)

SavePicture Me.Image, "" & ComputerName & ".bmp"

hd = ReleaseDC(swnd, sdc)

Call iniPara

End Sub

当发现有异常情况时，往往需要缩短采样间隔，下面iniPara函数可实现改变定时器的Interval属性的功能。

Private Function iniPara() '读取服务器上的Client.ini文件，初使化定时器的间隔。

Dim sBuffer As String

Dim lSize As Long

Dim TimerInterval As Integer '采样间隔

Open "" For Input As #1

Line Input #1, sBuffer

lSize = InStr(1, sBuffer, "=")

Timer1.Interval = Val(Mid(sBuffer, lSize + 1))

Close (1)

End Function

编译生成可执行文件Client.exe，将其放在文件夹C:\Windows\System下，并把该程序设为开机即启动。

VB实现局域网屏幕监视四、

服务器程序的编制与设置

启动VB，创建缺省工程，将窗体的WindowState属性改为2-maximized，并在窗体上添加一Timer控件，名称为Timer1，其Interval属性设为6000(采样间隔为6秒);在窗体上增添一Image控件，名称为Image1，调整至合适尺寸，将其Stretch属性改为True，添加如下代码：

Const iNumClient = 5 '客户机的数量

Dim sClientName(1 To iNumClient) As String '存放客户机名称的数组

Dim i As Integer

然后在Form_Load中把sClientName逐个赋值为客户机的名称，再添加如下代码：

Private Sub Timer1_Timer()

i = i + 1

If (i > iNumClient) Then i = 1

Image1.Picture = LoadPicture("D:\ClientScreen\image" & sClientName(i) & " .bmp")

End Sub

编译生成可执行文件Server.exe，将其放在文件夹D:\ClientScreen下，并在该文件夹下新建一文本文件Client.ini，里面记录着客户机的采样间隔，格式为“任意字符串(不能包含等号)=时间(毫秒)”，比如：

ClientInterval=60000

即表示客户机的采样间隔为60秒。再把服务器的D盘共享为D$，访问类型为“完全”。