integrating VBS into macro
in [VbScript]
|
From: ayeFayze on 4 Jun 2008 16:34 IBM says this is Visual Basic Script. I am bewildered. Is there a way to modify this to change 'ct6AP95001' from a list or an array, where this script will run and go to the next series number? My thanks for any consideration. Macro as follows: [PCOMM SCRIPT HEADER] LANGUAGE=VBSCRIPT DESCRIPTION=(Add-change-complete)VBS RBoM 010-1416 [PCOMM SCRIPT SOURCE] OPTION EXPLICIT autECLSession.SetConnectionByName(ThisSessionName) REM This line calls the macro subroutine sub subSub1_() sub subSub1_() autECLSession.autECLOIA.WaitForAppAvailable autECLSession.autECLOIA.WaitForInputReady autECLSession.autECLPS.SendKeys "ct6AP95001" autECLSession.autECLOIA.WaitForInputReady autECLSession.autECLPS.SendKeys "[field+]" autECLSession.autECLOIA.WaitForInputReady autECLSession.autECLPS.SendKeys "[field+]" autECLSession.autECLOIA.WaitForInputReady autECLSession.autECLPS.SendKeys "0101416" autECLSession.autECLOIA.WaitForInputReady autECLSession.autECLPS.SendKeys "[pf6]" autECLSession.autECLPS.WaitForAttrib 3,9,"00","3c",3,10000 autECLSession.autECLPS.WaitForCursor 3,10,10000 autECLSession.autECLOIA.WaitForAppAvailable autECLSession.autECLOIA.WaitForInputReady autECLSession.autECLPS.SendKeys "[tab]" autECLSession.autECLOIA.WaitForInputReady autECLSession.autECLPS.SendKeys "[tab]" autECLSession.autECLOIA.WaitForInputReady autECLSession.autECLPS.SendKeys "[tab]" autECLSession.autECLOIA.WaitForInputReady autECLSession.autECLPS.SendKeys "[tab]" autECLSession.autECLOIA.WaitForInputReady autECLSession.autECLPS.SendKeys "[tab]" autECLSession.autECLOIA.WaitForInputReady autECLSession.autECLPS.SendKeys "[tab]" autECLSession.autECLOIA.WaitForInputReady autECLSession.autECLPS.SendKeys "[tab]" autECLSession.autECLOIA.WaitForInputReady autECLSession.autECLPS.SendKeys "[tab]" autECLSession.autECLOIA.WaitForInputReady autECLSession.autECLPS.SendKeys "[tab]" autECLSession.autECLOIA.WaitForInputReady autECLSession.autECLPS.SendKeys "[tab]" autECLSession.autECLOIA.WaitForInputReady autECLSession.autECLPS.SendKeys "[tab]" autECLSession.autECLOIA.WaitForInputReady autECLSession.autECLPS.SendKeys "[tab]" autECLSession.autECLOIA.WaitForInputReady autECLSession.autECLPS.SendKeys "[tab]" autECLSession.autECLOIA.WaitForInputReady autECLSession.autECLPS.SendKeys "[tab]" autECLSession.autECLOIA.WaitForInputReady autECLSession.autECLPS.SendKeys "[tab]" autECLSession.autECLOIA.WaitForInputReady autECLSession.autECLPS.SendKeys "[tab]" autECLSession.autECLOIA.WaitForInputReady autECLSession.autECLPS.SendKeys "[tab]" autECLSession.autECLOIA.WaitForInputReady autECLSession.autECLPS.SendKeys "[tab]" autECLSession.autECLOIA.WaitForInputReady autECLSession.autECLPS.SendKeys "[tab]" autECLSession.autECLOIA.WaitForInputReady autECLSession.autECLPS.SendKeys "[tab]" autECLSession.autECLOIA.WaitForInputReady autECLSession.autECLPS.SendKeys ".8" autECLSession.autECLOIA.WaitForInputReady autECLSession.autECLPS.SendKeys "[field+]" autECLSession.autECLOIA.WaitForInputReady autECLSession.autECLPS.SendKeys "[tab]" autECLSession.autECLOIA.WaitForInputReady autECLSession.autECLPS.SendKeys "[tab]" autECLSession.autECLOIA.WaitForInputReady autECLSession.autECLPS.SendKeys "sjl" autECLSession.autECLOIA.WaitForInputReady autECLSession.autECLPS.SendKeys "[tab]" autECLSession.autECLOIA.WaitForInputReady autECLSession.autECLPS.SendKeys "[tab]" autECLSession.autECLOIA.WaitForInputReady autECLSession.autECLPS.SendKeys "[tab]" autECLSession.autECLOIA.WaitForInputReady autECLSession.autECLPS.SendKeys "[tab]" autECLSession.autECLOIA.WaitForInputReady autECLSession.autECLPS.SendKeys "[tab]" autECLSession.autECLOIA.WaitForInputReady autECLSession.autECLPS.SendKeys "[tab]" autECLSession.autECLOIA.WaitForInputReady autECLSession.autECLPS.SendKeys "[tab]" autECLSession.autECLOIA.WaitForInputReady autECLSession.autECLPS.SendKeys "[tab]" autECLSession.autECLOIA.WaitForInputReady autECLSession.autECLPS.SendKeys "e" autECLSession.autECLOIA.WaitForInputReady autECLSession.autECLPS.SendKeys "[tab]" autECLSession.autECLOIA.WaitForInputReady autECLSession.autECLPS.SendKeys "[tab]" autECLSession.autECLOIA.WaitForInputReady autECLSession.autECLPS.SendKeys "f" autECLSession.autECLOIA.WaitForInputReady autECLSession.autECLPS.SendKeys "[enter]" autECLSession.autECLPS.WaitForAttrib 5,16,"00","3c",3,10000 autECLSession.autECLOIA.WaitForAppAvailable autECLSession.autECLOIA.WaitForInputReady autECLSession.autECLPS.SendKeys "[enter]" autECLSession.autECLPS.WaitForAttrib 5,16,"00","3c",3,10000 autECLSession.autECLOIA.WaitForAppAvailable autECLSession.autECLOIA.WaitForInputReady autECLSession.autECLPS.SendKeys "[enter]" autECLSession.autECLOIA.WaitForInputReady autECLSession.autECLPS.SendKeys "[pf7]" autECLSession.autECLPS.WaitForAttrib 7,1,"00","3c",3,10000 autECLSession.autECLPS.WaitForCursor 7,2,10000 autECLSession.autECLOIA.WaitForAppAvailable autECLSession.autECLOIA.WaitForInputReady autECLSession.autECLPS.SendKeys "s" autECLSession.autECLOIA.WaitForInputReady autECLSession.autECLPS.SendKeys "[enter]" autECLSession.autECLPS.WaitForAttrib 5,16,"00","3c",3,10000 autECLSession.autECLPS.WaitForCursor 5,17,10000 autECLSession.autECLOIA.WaitForAppAvailable autECLSession.autECLOIA.WaitForInputReady autECLSession.autECLPS.SendKeys "[tab]" autECLSession.autECLOIA.WaitForInputReady autECLSession.autECLPS.SendKeys "[tab]" autECLSession.autECLOIA.WaitForInputReady autECLSession.autECLPS.SendKeys "[tab]" autECLSession.autECLOIA.WaitForInputReady autECLSession.autECLPS.SendKeys "2" autECLSession.autECLOIA.WaitForInputReady autECLSession.autECLPS.SendKeys "[field+]" autECLSession.autECLOIA.WaitForInputReady autECLSession.autECLPS.SendKeys "[tab]" autECLSession.autECLOIA.WaitForInputReady autECLSession.autECLPS.SendKeys ".8" autECLSession.autECLOIA.WaitForInputReady autECLSession.autECLPS.SendKeys "[field+]" autECLSession.autECLOIA.WaitForInputReady autECLSession.autECLPS.SendKeys "[tab]" autECLSession.autECLOIA.WaitForInputReady autECLSession.autECLPS.SendKeys "1sjl" autECLSession.autECLOIA.WaitForInputReady autECLSession.autECLPS.SendKeys "[tab]" autECLSession.autECLOIA.WaitForInputReady autECLSession.autECLPS.SendKeys "[tab]" autECLSession.autECLOIA.WaitForInputReady autECLSession.autECLPS.SendKeys "[tab]" autECLSession.autECLOIA.WaitForInputReady autECLSession.autECLPS.SendKeys "[tab]" autECLSession.autECLOIA.WaitForInputReady autECLSession.autECLPS.SendKeys "[tab]" autECLSession.autECLOIA.WaitForInputReady autECLSession.autECLPS.SendKeys "[tab]" autECLSession.autECLOIA.WaitForInputReady autECLSession.autECLPS.SendKeys "40.00" autECLSession.autECLOIA.WaitForInputReady autECLSession.autECLPS.SendKeys "[field+]" autECLSession.autECLOIA.WaitForInputReady autECLSession.autECLPS.SendKeys "e" autECLSession.autECLOIA.WaitForInputReady autECLSession.autECLPS.SendKeys "[tab]" autECLSession.autECLOIA.WaitForInputReady autECLSession.autECLPS.SendKeys "[field+]" autECLSession.autECLOIA.WaitForInputReady autECLSession.autECLPS.SendKeys "f" autECLSession.autECLOIA.WaitForInputReady autECLSession.autECLPS.SendKeys "[enter]" autECLSession.autECLPS.WaitForAttrib 5,16,"00","3c",3,10000 autECLSession.autECLOIA.WaitForAppAvailable autECLSession.autECLOIA.WaitForInputReady autECLSession.autECLPS.SendKeys "[enter]" autECLSession.autECLPS.WaitForAttrib 7,20,"00","3c",3,10000 autECLSession.autECLOIA.WaitForAppAvailable autECLSession.autECLOIA.WaitForInputReady autECLSession.autECLPS.SendKeys "[pf7]" autECLSession.autECLPS.WaitForAttrib 7,1,"00","3c",3,10000 autECLSession.autECLPS.WaitForCursor 7,2,10000 autECLSession.autECLOIA.WaitForAppAvailable autECLSession.autECLOIA.WaitForInputReady autECLSession.autECLPS.SendKeys "s" autECLSession.autECLOIA.WaitForInputReady autECLSession.autECLPS.SendKeys "[pf9]" autECLSession.autECLPS.WaitForAttrib 4,3,"00","3c",3,10000 autECLSession.autECLPS.WaitForCursor 4,4,10000 autECLSession.autECLOIA.WaitForAppAvailable autECLSession.autECLOIA.WaitForInputReady autECLSession.autECLPS.SendKeys "[down]" autECLSession.autECLOIA.WaitForInputReady autECLSession.autECLPS.SendKeys "[down]" autECLSession.autECLOIA.WaitForInputReady autECLSession.autECLPS.SendKeys "[down]" autECLSession.autECLOIA.WaitForInputReady autECLSession.autECLPS.SendKeys "[down]" autECLSession.autECLOIA.WaitForInputReady autECLSession.autECLPS.SendKeys "[down]" autECLSession.autECLOIA.WaitForInputReady autECLSession.autECLPS.SendKeys "[down]" autECLSession.autECLOIA.WaitForInputReady autECLSession.autECLPS.SendKeys "[down]" autECLSession.autECLOIA.WaitForInputReady autECLSession.autECLPS.SendKeys "[down]" autECLSession.autECLOIA.WaitForInputReady autECLSession.autECLPS.SendKeys "[down]" autECLSession.autECLOIA.WaitForInputReady autECLSession.autECLPS.SendKeys "[down]" autECLSession.autECLOIA.WaitForInputReady autECLSession.autECLPS.SendKeys "[down]" autECLSession.autECLOIA.WaitForInputReady autECLSession.autECLPS.SendKeys "[down]" autECLSession.autECLOIA.WaitForInputReady autECLSession.autECLPS.SendKeys "[down]" autECLSession.autECLOIA.WaitForInputReady autECLSession.autECLPS.SendKeys "1416" autECLSession.autECLOIA.WaitForInputReady autECLSession.autECLPS.SendKeys "[tab]" autECLSession.autECLOIA.WaitForInputReady autECLSession.autECLPS.SendKeys "[tab]" autECLSession.autECLOIA.WaitForInputReady autECLSession.autECLPS.SendKeys "y6AP95001" autECLSession.autECLOIA.WaitForInputReady autECLSession.autECLPS.SendKeys "[field+]" autECLSession.autECLOIA.WaitForInputReady autECLSession.autECLPS.SendKeys "[tab]" autECLSession.autECLOIA.WaitForInputReady autECLSession.autECLPS.SendKeys "mcfT232T46772" autECLSession.autECLOIA.WaitForInputReady autECLSession.autECLPS.SendKeys "[tab]" autECLSession.autECLOIA.WaitForInputReady autECLSession.autECLPS.SendKeys "O" autECLSession.autECLOIA.WaitForInputReady autECLSession.autECLPS.SendKeys "[pf14]" autECLSession.autECLPS.WaitForAttrib 2,40,"00","3c",3,10000 autECLSession.autECLPS.WaitForCursor 2,41,10000 autECLSession.autECLOIA.WaitForAppAvailable autECLSession.autECLOIA.WaitForInputReady autECLSession.autECLPS.SendKeys "[tab]" autECLSession.autECLOIA.WaitForInputReady autECLSession.autECLPS.SendKeys "ct6AP95001" autECLSession.autECLOIA.WaitForInputReady autECLSession.autECLPS.SendKeys "[pf6]" autECLSession.autECLPS.WaitForAttrib 5,36,"00","3c",3,10000 autECLSession.autECLPS.WaitForCursor 5,37,10000 autECLSession.autECLOIA.WaitForAppAvailable autECLSession.autECLOIA.WaitForInputReady autECLSession.autECLPS.SendKeys "[tab]" autECLSession.autECLOIA.WaitForInputReady autECLSession.autECLPS.SendKeys "[tab]" autECLSession.autECLOIA.WaitForInputReady autECLSession.autECLPS.SendKeys "6AP95001" autECLSession.autECLOIA.WaitForInputReady autECLSession.autECLPS.SendKeys "[backspace]" autECLSession.autECLOIA.WaitForInputReady autECLSession.autECLPS.SendKeys "[backspace]" autECLSession.autECLOIA.WaitForInputReady autECLSession.autECLPS.SendKeys "[backspace]" autECLSession.autECLOIA.WaitForInputReady autECLSession.autECLPS.SendKeys "999" autECLSession.autECLOIA.WaitForInputReady autECLSession.autECLPS.SendKeys "[tab]" autECLSession.autECLOIA.WaitForInputReady autECLSession.autECLPS.SendKeys "[tab]" autECLSession.autECLOIA.WaitForInputReady autECLSession.autECLPS.SendKeys "[tab]" autECLSession.autECLOIA.WaitForInputReady autECLSession.autECLPS.SendKeys "[tab]" autECLSession.autECLOIA.WaitForInputReady autECLSession.autECLPS.SendKeys "[tab]" autECLSession.autECLOIA.WaitForInputReady autECLSession.autECLPS.SendKeys "[tab]" autECLSession.autECLOIA.WaitForInputReady autECLSession.autECLPS.SendKeys "[tab]" autECLSession.autECLOIA.WaitForInputReady autECLSession.autECLPS.SendKeys "[tab]" autECLSession.autECLOIA.WaitForInputReady autECLSession.autECLPS.SendKeys "n" autECLSession.autECLOIA.WaitForInputReady autECLSession.autECLPS.SendKeys "[enter]" autECLSession.autECLPS.WaitForAttrib 2,40,"00","3c",3,10000 autECLSession.autECLPS.WaitForCursor 2,41,10000 autECLSession.autECLOIA.WaitForAppAvailable autECLSession.autECLOIA.WaitForInputReady autECLSession.autECLPS.SendKeys "[tab]" autECLSession.autECLOIA.WaitForInputReady autECLSession.autECLPS.SendKeys "[tab]" autECLSession.autECLOIA.WaitForInputReady autECLSession.autECLPS.SendKeys "[tab]" autECLSession.autECLOIA.WaitForInputReady autECLSession.autECLPS.SendKeys "[tab]" autECLSession.autECLOIA.WaitForInputReady autECLSession.autECLPS.SendKeys "[tab]" autECLSession.autECLOIA.WaitForInputReady autECLSession.autECLPS.SendKeys "[tab]" autECLSession.autECLOIA.WaitForInputReady autECLSession.autECLPS.SendKeys "[tab]" autECLSession.autECLOIA.WaitForInputReady autECLSession.autECLPS.SendKeys "[tab]" autECLSession.autECLOIA.WaitForInputReady autECLSession.autECLPS.SendKeys "[tab]" autECLSession.autECLOIA.WaitForInputReady autECLSession.autECLPS.SendKeys "s" autECLSession.autECLOIA.WaitForInputReady autECLSession.autECLPS.SendKeys "[enter]" autECLSession.autECLPS.WaitForAttrib 4,3,"00","3c",3,10000 autECLSession.autECLOIA.WaitForAppAvailable autECLSession.autECLOIA.WaitForInputReady autECLSession.autECLPS.SendKeys "[pf6]" autECLSession.autECLPS.WaitForAttrib 3,19,"00","3c",3,10000 autECLSession.autECLPS.WaitForCursor 3,20,10000 autECLSession.autECLOIA.WaitForAppAvailable autECLSession.autECLOIA.WaitForInputReady autECLSession.autECLPS.SendKeys "[tab]" autECLSession.autECLOIA.WaitForInputReady autECLSession.autECLPS.SendKeys "[tab]" autECLSession.autECLOIA.WaitForInputReady autECLSession.autECLPS.SendKeys "[tab]" autECLSession.autECLOIA.WaitForInputReady autECLSession.autECLPS.SendKeys "1" autECLSession.autECLOIA.WaitForInputReady autECLSession.autECLPS.SendKeys "[field+]" autECLSession.autECLOIA.WaitForInputReady autECLSession.autECLPS.SendKeys "T232T46772" autECLSession.autECLOIA.WaitForInputReady autECLSession.autECLPS.SendKeys "[field+]" autECLSession.autECLOIA.WaitForInputReady autECLSession.autECLPS.SendKeys "y" autECLSession.autECLOIA.WaitForInputReady autECLSession.autECLPS.SendKeys "[tab]" autECLSession.autECLOIA.WaitForInputReady autECLSession.autECLPS.SendKeys "[tab]" autECLSession.autECLOIA.WaitForInputReady autECLSession.autECLPS.SendKeys "[tab]" autECLSession.autECLOIA.WaitForInputReady autECLSession.autECLPS.SendKeys "mcf" autECLSession.autECLOIA.WaitForInputReady autECLSession.autECLPS.SendKeys "[enter]" autECLSession.autECLPS.WaitForAttrib 4,3,"00","3c",3,10000 autECLSession.autECLOIA.WaitForAppAvailable autECLSession.autECLOIA.WaitForInputReady autECLSession.autECLPS.SendKeys "[enter]" autECLSession.autECLPS.WaitForAttrib 4,3,"00","3c",3,10000 autECLSession.autECLOIA.WaitForAppAvailable autECLSession.autECLOIA.WaitForInputReady autECLSession.autECLPS.SendKeys "[pf2]" autECLSession.autECLPS.WaitForAttrib 7,1,"00","3c",3,10000 autECLSession.autECLOIA.WaitForAppAvailable autECLSession.autECLOIA.WaitForInputReady autECLSession.autECLPS.SendKeys "[pf2]" autECLSession.autECLPS.WaitForAttrib 7,20,"00","3c",3,10000 autECLSession.autECLPS.WaitForCursor 7,21,10000 autECLSession.autECLOIA.WaitForAppAvailable autECLSession.autECLOIA.WaitForInputReady autECLSession.autECLPS.SendKeys "[field+]" autECLSession.autECLOIA.WaitForInputReady autECLSession.autECLPS.SendKeys "[field+]" autECLSession.autECLOIA.WaitForInputReady autECLSession.autECLPS.SendKeys "[field+]" autECLSession.autECLOIA.WaitForInputReady autECLSession.autECLPS.SendKeys "[up]" autECLSession.autECLOIA.WaitForInputReady autECLSession.autECLPS.SendKeys "[up]" autECLSession.autECLOIA.WaitForInputReady autECLSession.autECLPS.SendKeys "[up]" end sub
|
Pages: 1 Prev: Cannot locate recource error Next: Using VBS to install MS Loopback Adapter |