实例457 获取计算机上串口的数量

实例457  获取计算机上串口的数量

 实例说明

在进行串口通信时，需要知道计算机上的串口信息。本例通过编程的方法来获取计算机上串口的数量。运行程序，单击“获取”按钮，程序窗体上将显示计算机上串口的数量。其实现效果如图15.30所示。

图15.30  远程控制局域网计算机

 技术要点

Winsock控件操作在所有Internet控件的最底层，允许客户/服务器应用程序使用TCP协议和UDP协议进行通信。利用TCP协议的通信类似于电话交谈，即在通信前必须先连接客户与服务器。下面介绍与本例相关的PortOpen属性。

PortOpen属性设置并返回通信端口的状态。在使用PortOpen打开端口之前，需要确定CommPort属性设置为一个合法的端口号。如果CommPort属性设置为一个非法的端口号，则当打开该端口时，MSComm控件将产生一个“设备无效”的错误。

常用语法：

Object.PortOpen[=Value]

参数说明：

·Object    对象表达式，其值是MSComm控件。

·Value    布尔表达式，说明通信端口的状态。

PortOpen属性的常用取值如下。

True：端口开。

False：端口关。

 实现过程

（1）新建一个标准工程，创建一个新窗体，默认名为Form1。在窗体上添加2个CommandButton控件 ，分别用于执行“获取”和“退出”操作。

（2）在窗体上添加一个Winsock控件 ，由于该控件属于ActiveX控件，因此，在使用之前必须将其添加到工具箱。添加方法如下：

选择VB菜单的“工程”→“部件”，然后选取Microsoft Winsock Control 6.0（SP5），单击“确定”按钮，即可将Winsock控件添加到工具箱中。

（3）主要程序代码。

Dim i, j As Integer
Private Sub Command1_Click()  '获取计算机的串口数量
j = 0
For i = 1 To 16
MSComm1.CommPort = i
On Error Resume Next
MSComm1.PortOpen = True
If Err.Number = 0 Then    
j = j + 1     '添加串口
Else
MSComm1.PortOpen = False
End If
Next i
Label1.Caption = "您计算机上的串口数： " & j & "个"
End Sub
Private Sub Command2_Click()
End
End Sub

 举一反三

根据本实例，读者可以开发：

·控制远程计算机休眠。

·控制远程计算机的鼠标按下。

·控制远程计算机键盘中的特殊符号的按下。