例

Dim autPSObj as Object
Dim autECLScreenDescObj as Object
 
Set autECLScreenDescObj = CreateObject("ZIEWin.autECLScreenDesc")
Set autPSObj = CreateObject("ZIEWin.autECLPS")
autPSObj.SetConnectionByName "A"
 
autECLScreenDesObj.AddCursorPos 23, 1
autECLScreenDesObj.AddAttrib E8h, 1, 1, 2
autECLScreenDesObj.AddNumFields 45
autECLScreenDesObj.AddNumInputFields 17
autECLScreenDesObj.AddOIAInhibitStatus 1
autECLScreenDesObj.AddString "LOGON", 23, 11, True
autECLScreenDesObj.AddStringInRect "PASSWORD", 23, 1, 24, 80, False
 
if (autECLScreenReco.IsMatch(autPSObj, autECLScreenDesObj)) then
	   msgbox "matched"
else
	   msgbox "no match"
end if