例

Dim autECLPSObj as Object
Dim Row, Col, WaitData, MaskData, plane
 
Set autECLPSObj = CreateObject("ZIEWin.autECLPS")
autECLPSObj.SetConnectionByName("A")
 
Row = 20
Col = 16
WaitData = E8h
MaskData = FFh
plane = 3
 
if (autECLPSObj.WaitForAttrib(Row, Col, WaitData, MaskData, plane, 10000))  then
    msgbox "Attribute " " WaitData " " found"
else
    msgbox "Timeout Occurred"
end if