Find Values from screen and use the WScript object

<< Click to Display Table of Contents >>

Navigation:  Macro Samples >

Find Values from screen and use the WScript object

;Create objects and init variables
WshShell = CreateObject("WScript.Shell")
Screen=""
sFind=0
FIN=""
;Find Values from screen
Screen = GetString(1,1,1920)
sFind = inStr(Screen,"LSFYFND")
FIN=MID(Screen,(sFind + 9),5)
WshShell.popup(sFind)
if sFind > 0 then
 sFind = inStr(Screen,"IVGFINAL")
 FIN = MID(Screen,(sFind + 9),5)
endif
 
;Show Popup Value
WshShell.popup(FIN)
 
;Destroy Open Objects and init Variables
WshShell = Nothing
Screen=""
FIN=""
sFind=0
End