In one of my application, when i create a macro, the application create the VB script, but i dont know how to loop this.. for example, i want run this for 30 times, at the moment, i run this for 30 times, can someone help me how to loop this.
[PCOMM SCRIPT HEADER]
LANGUAGE=VBSCRIPT
DESCRIPTION=
[PCOMM SCRIPT SOURCE]
OPTION EXPLICIT
autECLSession.SetConnectionByName(ThisSessionName)
REM This line calls the macro subroutine
subSub1_
sub subSub1_()
autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLPS.SendKeys "n"
autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLPS.SendKeys "[vt numpad 8]"
autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLPS.SendKeys "[vt numpad 3]"
autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLPS.SendKeys "[vt numpad 0]"
autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLPS.SendKeys "[vt numpad 1]"
autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLPS.SendKeys "[vt numpad 4]"
autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLPS.SendKeys "[vt numpad enter]"
autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLPS.SendKeys "twec"
autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLPS.SendKeys "[tab]"
autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLPS.SendKeys "[tab]"
autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLPS.SendKeys "[pf13]"
autECLSession.autECLPS.Wait 593
autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLPS.SendKeys "z"
autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLPS.SendKeys "[tab]"
autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLPS.SendKeys "[pf13]"
autECLSession.autECLPS.Wait 593
autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLPS.SendKeys "[newline]"
autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLPS.SendKeys "vqqoo"
autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLPS.SendKeys "[newline]"
autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLPS.SendKeys "q"
end sub
[PCOMM SCRIPT HEADER]
LANGUAGE=VBSCRIPT
DESCRIPTION=
[PCOMM SCRIPT SOURCE]
OPTION EXPLICIT
autECLSession.SetConnectionByName(ThisSessionName)
REM This line calls the macro subroutine
subSub1_
sub subSub1_()
autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLPS.SendKeys "n"
autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLPS.SendKeys "[vt numpad 8]"
autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLPS.SendKeys "[vt numpad 3]"
autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLPS.SendKeys "[vt numpad 0]"
autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLPS.SendKeys "[vt numpad 1]"
autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLPS.SendKeys "[vt numpad 4]"
autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLPS.SendKeys "[vt numpad enter]"
autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLPS.SendKeys "twec"
autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLPS.SendKeys "[tab]"
autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLPS.SendKeys "[tab]"
autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLPS.SendKeys "[pf13]"
autECLSession.autECLPS.Wait 593
autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLPS.SendKeys "z"
autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLPS.SendKeys "[tab]"
autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLPS.SendKeys "[pf13]"
autECLSession.autECLPS.Wait 593
autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLPS.SendKeys "[newline]"
autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLPS.SendKeys "vqqoo"
autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLPS.SendKeys "[newline]"
autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLPS.SendKeys "q"
end sub