Advertisement
Guest User

PALLETIDFIXTEN

a guest
May 20th, 2019
63
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 14.44 KB | None | 0 0
  1. [PCOMM SCRIPT HEADER]
  2. LANGUAGE=VBSCRIPT
  3. DESCRIPTION=
  4. [PCOMM SCRIPT SOURCE]
  5. OPTION EXPLICIT
  6. autECLSession.SetConnectionByName(ThisSessionName)
  7.  
  8. REM This line calls the macro subroutine
  9. subSub1_
  10.  
  11. sub subSub1_()
  12. autECLSession.autECLOIA.WaitForAppAvailable
  13.  
  14. autECLSession.autECLOIA.WaitForInputReady
  15. autECLSession.autECLPS.SendKeys "kf"
  16. autECLSession.autECLOIA.WaitForInputReady
  17. autECLSession.autECLPS.SendKeys "[tab]"
  18. autECLSession.autECLOIA.WaitForInputReady
  19. autECLSession.autECLPS.SendKeys "992"
  20. autECLSession.autECLOIA.WaitForInputReady
  21. autECLSession.autECLPS.SendKeys "[field+]"
  22. autECLSession.autECLOIA.WaitForInputReady
  23. autECLSession.autECLPS.SendKeys "[pf7]"
  24.  
  25. autECLSession.autECLPS.WaitForAttrib 11,39,"00","3c",3,10000
  26.  
  27. autECLSession.autECLPS.WaitForCursor 11,40,10000
  28.  
  29. autECLSession.autECLOIA.WaitForAppAvailable
  30.  
  31. autECLSession.autECLOIA.WaitForInputReady
  32. autECLSession.autECLPS.SendKeys "[right]"
  33. autECLSession.autECLOIA.WaitForInputReady
  34. autECLSession.autECLPS.SendKeys "[right]"
  35. autECLSession.autECLOIA.WaitForInputReady
  36. autECLSession.autECLPS.SendKeys "[right]"
  37. autECLSession.autECLOIA.WaitForInputReady
  38. autECLSession.autECLPS.SendKeys "[right]"
  39. autECLSession.autECLOIA.WaitForInputReady
  40. autECLSession.autECLPS.SendKeys "[right]"
  41. autECLSession.autECLOIA.WaitForInputReady
  42. autECLSession.autECLPS.SendKeys "[right]"
  43. autECLSession.autECLOIA.WaitForInputReady
  44. autECLSession.autECLPS.SendKeys "[right]"
  45. autECLSession.autECLOIA.WaitForInputReady
  46. autECLSession.autECLPS.SendKeys "[right]"
  47. autECLSession.autECLOIA.WaitForInputReady
  48. autECLSession.autECLPS.SendKeys "2"
  49. autECLSession.autECLOIA.WaitForInputReady
  50. autECLSession.autECLPS.SendKeys "kf"
  51. autECLSession.autECLOIA.WaitForInputReady
  52. autECLSession.autECLPS.SendKeys "[tab]"
  53. autECLSession.autECLOIA.WaitForInputReady
  54. autECLSession.autECLPS.SendKeys "992"
  55. autECLSession.autECLOIA.WaitForInputReady
  56. autECLSession.autECLPS.SendKeys "[field+]"
  57. autECLSession.autECLOIA.WaitForInputReady
  58. autECLSession.autECLPS.SendKeys "[pf7]"
  59.  
  60. autECLSession.autECLPS.WaitForAttrib 11,39,"00","3c",3,10000
  61.  
  62. autECLSession.autECLPS.WaitForCursor 11,40,10000
  63.  
  64. autECLSession.autECLOIA.WaitForAppAvailable
  65.  
  66. autECLSession.autECLOIA.WaitForInputReady
  67. autECLSession.autECLPS.SendKeys "[right]"
  68. autECLSession.autECLOIA.WaitForInputReady
  69. autECLSession.autECLPS.SendKeys "[right]"
  70. autECLSession.autECLOIA.WaitForInputReady
  71. autECLSession.autECLPS.SendKeys "[right]"
  72. autECLSession.autECLOIA.WaitForInputReady
  73. autECLSession.autECLPS.SendKeys "[right]"
  74. autECLSession.autECLOIA.WaitForInputReady
  75. autECLSession.autECLPS.SendKeys "[right]"
  76. autECLSession.autECLOIA.WaitForInputReady
  77. autECLSession.autECLPS.SendKeys "[right]"
  78. autECLSession.autECLOIA.WaitForInputReady
  79. autECLSession.autECLPS.SendKeys "[right]"
  80. autECLSession.autECLOIA.WaitForInputReady
  81. autECLSession.autECLPS.SendKeys "[right]"
  82. autECLSession.autECLOIA.WaitForInputReady
  83. autECLSession.autECLPS.SendKeys "3"
  84. autECLSession.autECLOIA.WaitForInputReady
  85. autECLSession.autECLPS.SendKeys "kf"
  86. autECLSession.autECLOIA.WaitForInputReady
  87. autECLSession.autECLPS.SendKeys "[tab]"
  88. autECLSession.autECLOIA.WaitForInputReady
  89. autECLSession.autECLPS.SendKeys "992"
  90. autECLSession.autECLOIA.WaitForInputReady
  91. autECLSession.autECLPS.SendKeys "[field+]"
  92. autECLSession.autECLOIA.WaitForInputReady
  93. autECLSession.autECLPS.SendKeys "[pf7]"
  94.  
  95. autECLSession.autECLPS.WaitForAttrib 11,39,"00","3c",3,10000
  96.  
  97. autECLSession.autECLPS.WaitForCursor 11,40,10000
  98.  
  99. autECLSession.autECLOIA.WaitForAppAvailable
  100.  
  101. autECLSession.autECLOIA.WaitForInputReady
  102. autECLSession.autECLPS.SendKeys "[right]"
  103. autECLSession.autECLOIA.WaitForInputReady
  104. autECLSession.autECLPS.SendKeys "[right]"
  105. autECLSession.autECLOIA.WaitForInputReady
  106. autECLSession.autECLPS.SendKeys "[right]"
  107. autECLSession.autECLOIA.WaitForInputReady
  108. autECLSession.autECLPS.SendKeys "[right]"
  109. autECLSession.autECLOIA.WaitForInputReady
  110. autECLSession.autECLPS.SendKeys "[right]"
  111. autECLSession.autECLOIA.WaitForInputReady
  112. autECLSession.autECLPS.SendKeys "[right]"
  113. autECLSession.autECLOIA.WaitForInputReady
  114. autECLSession.autECLPS.SendKeys "[right]"
  115. autECLSession.autECLOIA.WaitForInputReady
  116. autECLSession.autECLPS.SendKeys "[right]"
  117. autECLSession.autECLOIA.WaitForInputReady
  118. autECLSession.autECLPS.SendKeys "4"
  119. autECLSession.autECLOIA.WaitForInputReady
  120. autECLSession.autECLPS.SendKeys "kf"
  121. autECLSession.autECLOIA.WaitForInputReady
  122. autECLSession.autECLPS.SendKeys "[tab]"
  123. autECLSession.autECLOIA.WaitForInputReady
  124. autECLSession.autECLPS.SendKeys "992"
  125. autECLSession.autECLOIA.WaitForInputReady
  126. autECLSession.autECLPS.SendKeys "[field+]"
  127. autECLSession.autECLOIA.WaitForInputReady
  128. autECLSession.autECLPS.SendKeys "[pf7]"
  129.  
  130. autECLSession.autECLPS.WaitForAttrib 11,39,"00","3c",3,10000
  131.  
  132. autECLSession.autECLPS.WaitForCursor 11,40,10000
  133.  
  134. autECLSession.autECLOIA.WaitForAppAvailable
  135.  
  136. autECLSession.autECLOIA.WaitForInputReady
  137. autECLSession.autECLPS.SendKeys "[right]"
  138. autECLSession.autECLOIA.WaitForInputReady
  139. autECLSession.autECLPS.SendKeys "[right]"
  140. autECLSession.autECLOIA.WaitForInputReady
  141. autECLSession.autECLPS.SendKeys "[right]"
  142. autECLSession.autECLOIA.WaitForInputReady
  143. autECLSession.autECLPS.SendKeys "[right]"
  144. autECLSession.autECLOIA.WaitForInputReady
  145. autECLSession.autECLPS.SendKeys "[right]"
  146. autECLSession.autECLOIA.WaitForInputReady
  147. autECLSession.autECLPS.SendKeys "[right]"
  148. autECLSession.autECLOIA.WaitForInputReady
  149. autECLSession.autECLPS.SendKeys "[right]"
  150. autECLSession.autECLOIA.WaitForInputReady
  151. autECLSession.autECLPS.SendKeys "[right]"
  152. autECLSession.autECLOIA.WaitForInputReady
  153. autECLSession.autECLPS.SendKeys "5"
  154. autECLSession.autECLOIA.WaitForInputReady
  155. autECLSession.autECLPS.SendKeys "kf"
  156. autECLSession.autECLOIA.WaitForInputReady
  157. autECLSession.autECLPS.SendKeys "[tab]"
  158. autECLSession.autECLOIA.WaitForInputReady
  159. autECLSession.autECLPS.SendKeys "992"
  160. autECLSession.autECLOIA.WaitForInputReady
  161. autECLSession.autECLPS.SendKeys "[field+]"
  162. autECLSession.autECLOIA.WaitForInputReady
  163. autECLSession.autECLPS.SendKeys "[pf7]"
  164.  
  165. autECLSession.autECLPS.WaitForAttrib 11,39,"00","3c",3,10000
  166.  
  167. autECLSession.autECLPS.WaitForCursor 11,40,10000
  168.  
  169. autECLSession.autECLOIA.WaitForAppAvailable
  170.  
  171. autECLSession.autECLOIA.WaitForInputReady
  172. autECLSession.autECLPS.SendKeys "[right]"
  173. autECLSession.autECLOIA.WaitForInputReady
  174. autECLSession.autECLPS.SendKeys "[right]"
  175. autECLSession.autECLOIA.WaitForInputReady
  176. autECLSession.autECLPS.SendKeys "[right]"
  177. autECLSession.autECLOIA.WaitForInputReady
  178. autECLSession.autECLPS.SendKeys "[right]"
  179. autECLSession.autECLOIA.WaitForInputReady
  180. autECLSession.autECLPS.SendKeys "[right]"
  181. autECLSession.autECLOIA.WaitForInputReady
  182. autECLSession.autECLPS.SendKeys "[right]"
  183. autECLSession.autECLOIA.WaitForInputReady
  184. autECLSession.autECLPS.SendKeys "[right]"
  185. autECLSession.autECLOIA.WaitForInputReady
  186. autECLSession.autECLPS.SendKeys "[right]"
  187. autECLSession.autECLOIA.WaitForInputReady
  188. autECLSession.autECLPS.SendKeys "6"
  189. autECLSession.autECLOIA.WaitForInputReady
  190. autECLSession.autECLPS.SendKeys "kf"
  191. autECLSession.autECLOIA.WaitForInputReady
  192. autECLSession.autECLPS.SendKeys "[tab]"
  193. autECLSession.autECLOIA.WaitForInputReady
  194. autECLSession.autECLPS.SendKeys "992"
  195. autECLSession.autECLOIA.WaitForInputReady
  196. autECLSession.autECLPS.SendKeys "[field+]"
  197. autECLSession.autECLOIA.WaitForInputReady
  198. autECLSession.autECLPS.SendKeys "[pf7]"
  199.  
  200. autECLSession.autECLPS.WaitForAttrib 11,39,"00","3c",3,10000
  201.  
  202. autECLSession.autECLPS.WaitForCursor 11,40,10000
  203.  
  204. autECLSession.autECLOIA.WaitForAppAvailable
  205.  
  206. autECLSession.autECLOIA.WaitForInputReady
  207. autECLSession.autECLPS.SendKeys "[right]"
  208. autECLSession.autECLOIA.WaitForInputReady
  209. autECLSession.autECLPS.SendKeys "[right]"
  210. autECLSession.autECLOIA.WaitForInputReady
  211. autECLSession.autECLPS.SendKeys "[right]"
  212. autECLSession.autECLOIA.WaitForInputReady
  213. autECLSession.autECLPS.SendKeys "[right]"
  214. autECLSession.autECLOIA.WaitForInputReady
  215. autECLSession.autECLPS.SendKeys "[right]"
  216. autECLSession.autECLOIA.WaitForInputReady
  217. autECLSession.autECLPS.SendKeys "[right]"
  218. autECLSession.autECLOIA.WaitForInputReady
  219. autECLSession.autECLPS.SendKeys "[right]"
  220. autECLSession.autECLOIA.WaitForInputReady
  221. autECLSession.autECLPS.SendKeys "[right]"
  222. autECLSession.autECLOIA.WaitForInputReady
  223. autECLSession.autECLPS.SendKeys "[right]"
  224. autECLSession.autECLOIA.WaitForInputReady
  225. autECLSession.autECLPS.SendKeys "[left]"
  226. autECLSession.autECLOIA.WaitForInputReady
  227. autECLSession.autECLPS.SendKeys "7"
  228. autECLSession.autECLOIA.WaitForInputReady
  229. autECLSession.autECLPS.SendKeys "kf"
  230. autECLSession.autECLOIA.WaitForInputReady
  231. autECLSession.autECLPS.SendKeys "[tab]"
  232. autECLSession.autECLOIA.WaitForInputReady
  233. autECLSession.autECLPS.SendKeys "992"
  234. autECLSession.autECLOIA.WaitForInputReady
  235. autECLSession.autECLPS.SendKeys "[field+]"
  236. autECLSession.autECLOIA.WaitForInputReady
  237. autECLSession.autECLPS.SendKeys "[pf7]"
  238.  
  239. autECLSession.autECLPS.WaitForAttrib 11,39,"00","3c",3,10000
  240.  
  241. autECLSession.autECLPS.WaitForCursor 11,40,10000
  242.  
  243. autECLSession.autECLOIA.WaitForAppAvailable
  244.  
  245. autECLSession.autECLOIA.WaitForInputReady
  246. autECLSession.autECLPS.SendKeys "[right]"
  247. autECLSession.autECLOIA.WaitForInputReady
  248. autECLSession.autECLPS.SendKeys "[right]"
  249. autECLSession.autECLOIA.WaitForInputReady
  250. autECLSession.autECLPS.SendKeys "[right]"
  251. autECLSession.autECLOIA.WaitForInputReady
  252. autECLSession.autECLPS.SendKeys "[right]"
  253. autECLSession.autECLOIA.WaitForInputReady
  254. autECLSession.autECLPS.SendKeys "[right]"
  255. autECLSession.autECLOIA.WaitForInputReady
  256. autECLSession.autECLPS.SendKeys "[right]"
  257. autECLSession.autECLOIA.WaitForInputReady
  258. autECLSession.autECLPS.SendKeys "[right]"
  259. autECLSession.autECLOIA.WaitForInputReady
  260. autECLSession.autECLPS.SendKeys "[right]"
  261. autECLSession.autECLOIA.WaitForInputReady
  262. autECLSession.autECLPS.SendKeys "8"
  263. autECLSession.autECLOIA.WaitForInputReady
  264. autECLSession.autECLPS.SendKeys "kf"
  265. autECLSession.autECLOIA.WaitForInputReady
  266. autECLSession.autECLPS.SendKeys "[tab]"
  267. autECLSession.autECLOIA.WaitForInputReady
  268. autECLSession.autECLPS.SendKeys "992"
  269. autECLSession.autECLOIA.WaitForInputReady
  270. autECLSession.autECLPS.SendKeys "[field+]"
  271. autECLSession.autECLOIA.WaitForInputReady
  272. autECLSession.autECLPS.SendKeys "[pf7]"
  273.  
  274. autECLSession.autECLPS.WaitForAttrib 11,39,"00","3c",3,10000
  275.  
  276. autECLSession.autECLPS.WaitForCursor 11,40,10000
  277.  
  278. autECLSession.autECLOIA.WaitForAppAvailable
  279.  
  280. autECLSession.autECLOIA.WaitForInputReady
  281. autECLSession.autECLPS.SendKeys "[right]"
  282. autECLSession.autECLOIA.WaitForInputReady
  283. autECLSession.autECLPS.SendKeys "[right]"
  284. autECLSession.autECLOIA.WaitForInputReady
  285. autECLSession.autECLPS.SendKeys "[right]"
  286. autECLSession.autECLOIA.WaitForInputReady
  287. autECLSession.autECLPS.SendKeys "[right]"
  288. autECLSession.autECLOIA.WaitForInputReady
  289. autECLSession.autECLPS.SendKeys "[right]"
  290. autECLSession.autECLOIA.WaitForInputReady
  291. autECLSession.autECLPS.SendKeys "[right]"
  292. autECLSession.autECLOIA.WaitForInputReady
  293. autECLSession.autECLPS.SendKeys "[right]"
  294. autECLSession.autECLOIA.WaitForInputReady
  295. autECLSession.autECLPS.SendKeys "[right]"
  296. autECLSession.autECLOIA.WaitForInputReady
  297. autECLSession.autECLPS.SendKeys "9"
  298. autECLSession.autECLOIA.WaitForInputReady
  299. autECLSession.autECLPS.SendKeys "kf"
  300. autECLSession.autECLOIA.WaitForInputReady
  301. autECLSession.autECLPS.SendKeys "[tab]"
  302. autECLSession.autECLOIA.WaitForInputReady
  303. autECLSession.autECLPS.SendKeys "992"
  304. autECLSession.autECLOIA.WaitForInputReady
  305. autECLSession.autECLPS.SendKeys "[field+]"
  306. autECLSession.autECLOIA.WaitForInputReady
  307. autECLSession.autECLPS.SendKeys "[pf7]"
  308.  
  309. autECLSession.autECLPS.WaitForAttrib 11,39,"00","3c",3,10000
  310.  
  311. autECLSession.autECLPS.WaitForCursor 11,40,10000
  312.  
  313. autECLSession.autECLOIA.WaitForAppAvailable
  314.  
  315. autECLSession.autECLOIA.WaitForInputReady
  316. autECLSession.autECLPS.SendKeys "[right]"
  317. autECLSession.autECLOIA.WaitForInputReady
  318. autECLSession.autECLPS.SendKeys "[right]"
  319. autECLSession.autECLOIA.WaitForInputReady
  320. autECLSession.autECLPS.SendKeys "[right]"
  321. autECLSession.autECLOIA.WaitForInputReady
  322. autECLSession.autECLPS.SendKeys "[right]"
  323. autECLSession.autECLOIA.WaitForInputReady
  324. autECLSession.autECLPS.SendKeys "[right]"
  325. autECLSession.autECLOIA.WaitForInputReady
  326. autECLSession.autECLPS.SendKeys "[right]"
  327. autECLSession.autECLOIA.WaitForInputReady
  328. autECLSession.autECLPS.SendKeys "1"
  329. autECLSession.autECLOIA.WaitForInputReady
  330. autECLSession.autECLPS.SendKeys "0"
  331. autECLSession.autECLOIA.WaitForInputReady
  332. autECLSession.autECLPS.SendKeys "kf"
  333. autECLSession.autECLOIA.WaitForInputReady
  334. autECLSession.autECLPS.SendKeys "[tab]"
  335. autECLSession.autECLOIA.WaitForInputReady
  336. autECLSession.autECLPS.SendKeys "992"
  337. autECLSession.autECLOIA.WaitForInputReady
  338. autECLSession.autECLPS.SendKeys "[field+]"
  339. autECLSession.autECLOIA.WaitForInputReady
  340. autECLSession.autECLPS.SendKeys "[pf7]"
  341.  
  342. autECLSession.autECLPS.WaitForAttrib 11,39,"00","3c",3,10000
  343.  
  344. autECLSession.autECLPS.WaitForCursor 11,40,10000
  345.  
  346. autECLSession.autECLOIA.WaitForAppAvailable
  347.  
  348. autECLSession.autECLOIA.WaitForInputReady
  349. autECLSession.autECLPS.SendKeys "[right]"
  350. autECLSession.autECLOIA.WaitForInputReady
  351. autECLSession.autECLPS.SendKeys "[right]"
  352. autECLSession.autECLOIA.WaitForInputReady
  353. autECLSession.autECLPS.SendKeys "[right]"
  354. autECLSession.autECLOIA.WaitForInputReady
  355. autECLSession.autECLPS.SendKeys "[right]"
  356. autECLSession.autECLOIA.WaitForInputReady
  357. autECLSession.autECLPS.SendKeys "[right]"
  358. autECLSession.autECLOIA.WaitForInputReady
  359. autECLSession.autECLPS.SendKeys "[right]"
  360. autECLSession.autECLOIA.WaitForInputReady
  361. autECLSession.autECLPS.SendKeys "[right]"
  362. autECLSession.autECLOIA.WaitForInputReady
  363. autECLSession.autECLPS.SendKeys "[right]"
  364.  
  365. end sub
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement