AS400 Macro VBScript GET and Search ข้อความ แบบ Loop

AS400 Macro VBScript GET and Search ข้อความ แบบ Loop


REM This line calls the macro subroutine
subSub1_
subSub2_

การ GET  ตามตำแหน่งที่ต้องการ 5,73,2
5 และ 73 คือตำแหน่ง
2 คือจำนวนตัวอักษร

sub subSub1_()
Do While 1 = 1
   autECLSession.autECLPS.SendKeys "[pf5]"
   autECLSession.autECLPS.Wait 10000
if autECLSession.autECLPS.GetText(5,73,2) <= "75" then
else
if autECLSession.autECLPS.GetText(1,72,8) = "1" then
CreateObject("Wscript.Shell").Run("C:\1.ppt")
Exit Do
elseif autECLSession.autECLPS.GetText(1,72,8) = "2" then
CreateObject("Wscript.Shell").Run("C:\2.ppt")
Exit Do
End if
End if
Loop
end sub


การ Search "test", 1, 6, 21
test = ข้อความที่ต้องการให้ค้นหาในหน้าจอ
6,21 = ตำแหน่งภายในหน้าจอ

sub subSub2_()
Do While 1 = 1
if autECLSession.autECLPS.SearchText("test", 1, 6, 21) then
CreateObject("Wscript.Shell").Run("C:\test.ppt")
Exit Do
End if
   autECLSession.autECLPS.Wait 10000
Loop
end sub