Example

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