源代碼和解釋如下：
' 獲取所有OPC服務器:OPC_GetAllServers
' 引數:
' RemoteMachineName: 遠程計算機名稱, [可選引數], 如果查詢本地計算機上的OPC服務器則忽略此引數;
' 如果查詢遠程計算機上的OPC服務器則輸入遠程計算機的IP地址(如"192.168.1.100")或者計算機名稱
' 回傳值: 保存所有OPC服務器名稱的集合(String集合)
Public Function OPC_GetAllServers(Optional RemoteMachineName As String) As Collection
Set OPC_ServerCollection = New Collection ' 創建OPC_ServerCollection集合物件
Dim I As Integer
On Error GoTo ErrorHandler
Set OPC_ServerObj = New OPCServer ' 創建OPC服務器物件
Dim AllServers As Variant
AllServers = OPC_ServerObj.GetOPCServers(RemoteMachineName) ' 獲取所有OPC服務器的名稱(回傳的是一個String陣列)
For I = LBound(AllServers) To UBound(AllServers)
OPC_ServerCollection.Add AllServers(I) ' 將OPC服務器名稱添加到OPC_ServerCollection集合中
Next I
Set OPC_ServerObj = Nothing ' 釋放OPC服務器物件
Set OPC_GetAllServers = OPC_ServerCollection ' 回傳OPC_ServerCollection集合
Exit Function
' 出錯處理
ErrorHandler:
MsgBox "獲取所有OPC服務器失敗!", vbOKOnly, "錯誤" ' 出錯提示
Set OPC_GetAllServers = OPC_ServerCollection ' 回傳OPC_ServerCollection集合
End Function
請教各位老師
' RemoteMachineName: 遠程計算機名稱, [可選引數], 如果查詢本地計算機上的OPC服務器則忽略此引數;
' 如果查詢遠程計算機上的OPC服務器則輸入遠程計算機的IP地址
這句怎么修改。謝謝了
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/132478.html
標籤：網絡編程