例

以下の例は、開始されたすべての接続のスナップショットを取得するため に Refresh メソッドを使用する方法を示しています。

Dim autECLPSObj as Object
Dim autECLConnList as Object
 
Set autECLPSObj = CreateObject("ZIEWin.autECLPS")
Set autECLConnList = CreateObject("ZIEWin.autECLConnList")
 
' Initialize the connection
autECLConnList.Refresh
autECLPSObj.SetConnectionByHandle(autECLConnList(1).Handle)