Dim lsxECLPSObj as new lsxECLPS("A")
Dim lsxECLScreenDescObj as new lsxECLScreenDesc()
lsxECLScreenDesObj.AddCursorPos(23, 1)
lsxECLScreenDesObj.AddAttrib(E8h, 1, 1, 2)
lsxECLScreenDesObj.AddCursorPos(23,1)
lsxECLScreenDesObj.AddNumFields(45)
lsxECLScreenDesObj.AddNumInputFields(17)
lsxECLScreenDesObj.AddOIAInhibitStatus(1)
lsxECLScreenDesObj.AddString( "LOGON", 23, 11, 1)
lsxECLScreenDesObj.AddStringInRect( "PASSWORD", 23, 1, 24, 80, 0)
if (lsxECLScreenReco.IsMatch(lsxECLPSObj, lsxECLScreenDesObj)) then
MessageBox("matched")
else
MessageBox("no match")
end if