I'm hoping someone could help me, I'm self taught writing macros, and am driving myself crazy with the following error "Disk Full Line Number 276 Stopping macro playback" My macro screen scrapes various values on the CSS screen, and writes those values to textpad. I have not been able to determine how the disk is full. There are times I run the macro and it fails after 60 records, I stop it, make no changes, rerun it and it will fail after 1200 records. Below is my code (I know it's not pretty, but it works until the memory fills)Speaking of which, I will be watching the task manager, and never see it run out of memory, etc. Thank you in advance for any help you can offer!
Sub Main()
Dim Sessions As Object
Dim System As Object
Set System = CreateObject("EXTRA.System")
If (System is Nothing) Then
Msgbox "Could not create the EXTRA System object. Stopping macro playback."
STOP
End If
Set Sessions = System.Sessions
If (Sessions is Nothing) Then
Msgbox "Could not create the Sessions collection object. Stopping macro playback."
STOP
End If
'--------------------------------------------------------------------------------
g_HostSettleTime = 109
OldSystemTimeout& = System.TimeoutValue
If (g_HostSettleTime > OldSystemTimeout) Then
System.TimeoutValue = g_HostSettleTime
End If
Dim Sess0 As Object
Set Sess0 =GetObject("C:\Program Files\EXTRA!\Sessions\Session1.edp")
If (Sess0 is Nothing) Then
Msgbox "Could not create the Session object. Stopping macro playback."
STOP
End If
If Not Sess0.Visible Then Sess0.Visible = TRUE
Sess0.Screen.WaitHostQuiet(g_HostSettleTime
Close #1
Close #2
Open "N:\OPS\COLLECTNS\Restricted\Management\JSchmidt\Macros\ROL500 Input.txt" For INPUT As #1
Open "N:\OPS\COLLECTNS\Restricted\Management\JSchmidt\Macros\ROL500 Output.txt" For OUTPUT As #2
Dim Sess1 as Object
Dim scr as Object
Do While Not EOF(1)
Input #1,acnt$
ACNT$ = LEFT$(ACNT$,16)
Sess0.Screen.Sendkeys("<Reset>")
Sess0.Screen.Sendkeys("<Clear>")
Sess0.Save
Sess0.Screen.WaitHostQuiet(g_HostSettleTime)
Sess0.Screen.WaitHostQuiet(g_HostSettleTime)
Sess0.Screen.Sendkeys("cis "& acnt$)
Sess0.Screen.Sendkeys("<Enter>")
Sess0.Screen.WaitHostQuiet(g_HostSettleTime)
Sess0.Screen.Sendkeys("css")
Sess0.Screen.Sendkeys("<Enter>")
Sess0.Screen.WaitHostQuiet(g_HostSettleTime)
Ret1$ = Sess0.Screen.Getstring(05,04,04)
Ret1a$ = Sess0.Screen.Getstring(05,26,05)
Ret1b$ = Sess0.Screen.Getstring(05,72,08)
Ret2$ = Sess0.Screen.Getstring(06,04,04)
Ret2a$ = Sess0.Screen.Getstring(06,26,05)
Ret2b$ = Sess0.Screen.Getstring(06,72,08)
Ret3$ = Sess0.Screen.Getstring(07,04,04)
Ret3a$ = Sess0.Screen.Getstring(07,26,05)
Ret3b$ = Sess0.Screen.Getstring(07,72,08)
Ret4$ = Sess0.Screen.Getstring(08,04,04)
Ret4a$ = Sess0.Screen.Getstring(08,26,05)
Ret4b$ = Sess0.Screen.Getstring(08,72,08)
Ret5$ = Sess0.Screen.Getstring(09,04,04)
Ret5a$ = Sess0.Screen.Getstring(09,26,05)
Ret5b$ = Sess0.Screen.Getstring(09,72,08)
Ret6$ = Sess0.Screen.Getstring(10,04,04)
Ret6a$ = Sess0.Screen.Getstring(10,26,05)
Ret6b$ = Sess0.Screen.Getstring(10,72,08)
Ret7$ = Sess0.Screen.Getstring(11,04,04)
Ret7a$ = Sess0.Screen.Getstring(11,26,05)
Ret7b$ = Sess0.Screen.Getstring(11,72,08)
Ret8$ = Sess0.Screen.Getstring(12,04,04)
Ret8a$ = Sess0.Screen.Getstring(12,26,05)
Ret8b$ = Sess0.Screen.Getstring(12,72,08)
Ret9$ = Sess0.Screen.Getstring(13,04,04)
Ret9a$ = Sess0.Screen.Getstring(13,26,05)
Ret9b$ = Sess0.Screen.Getstring(13,72,08)
Ret10$ = Sess0.Screen.Getstring(14,04,04)
Ret10a$ = Sess0.Screen.Getstring(14,26,05)
Ret10b$ = Sess0.Screen.Getstring(14,72,08)
Ret11$ = Sess0.Screen.Getstring(15,04,04)
Ret11a$ = Sess0.Screen.Getstring(15,26,05)
Ret11b$ = Sess0.Screen.Getstring(15,72,08)
Ret12$ = Sess0.Screen.Getstring(16,04,04)
Ret12a$ = Sess0.Screen.Getstring(16,26,05)
Ret12b$ = Sess0.Screen.Getstring(16,72,08)
Ret13$ = Sess0.Screen.Getstring(17,04,04)
Ret13a$ = Sess0.Screen.Getstring(17,26,05)
Ret13b$ = Sess0.Screen.Getstring(17,72,08)
Ret14$ = Sess0.Screen.Getstring(18,04,04)
Ret14a$ = Sess0.Screen.Getstring(18,26,05)
Ret14b$ = Sess0.Screen.Getstring(18,72,08)
Ret15$ = Sess0.Screen.Getstring(19,04,04)
Ret15a$ = Sess0.Screen.Getstring(19,26,05)
Ret15b$ = Sess0.Screen.Getstring(19,72,08)
Sess0.Screen.WaitHostQuiet(g_HostSettleTime)
Sess0.Screen.WaitHostQuiet(g_HostSettleTime)
Sess0.Screen.Sendkeys("<Enter>")
Sess0.Screen.WaitHostQuiet(g_HostSettleTime)
Sess0.Save
Ret16$ = Sess0.Screen.Getstring(05,04,04)
Ret16a$ = Sess0.Screen.Getstring(05,26,05)
Ret16b$ = Sess0.Screen.Getstring(05,72,08)
Ret17$ = Sess0.Screen.Getstring(06,04,04)
Ret17a$ = Sess0.Screen.Getstring(06,26,05)
Ret17b$ = Sess0.Screen.Getstring(06,72,08)
Ret18$ = Sess0.Screen.Getstring(07,04,04)
Ret18a$ = Sess0.Screen.Getstring(07,26,05)
Ret18b$ = Sess0.Screen.Getstring(07,72,08)
Ret19$ = Sess0.Screen.Getstring(08,04,04)
Ret19a$ = Sess0.Screen.Getstring(08,26,05)
Ret19b$ = Sess0.Screen.Getstring(08,72,08)
Ret20$ = Sess0.Screen.Getstring(09,04,04)
Ret20a$ = Sess0.Screen.Getstring(09,26,05)
Ret20b$ = Sess0.Screen.Getstring(09,72,08)
Ret21$ = Sess0.Screen.Getstring(10,04,04)
Ret21a$ = Sess0.Screen.Getstring(10,26,05)
Ret21b$ = Sess0.Screen.Getstring(10,72,08)
Ret22$ = Sess0.Screen.Getstring(11,04,04)
Ret22a$ = Sess0.Screen.Getstring(11,26,05)
Ret22b$ = Sess0.Screen.Getstring(11,72,08)
Ret23$ = Sess0.Screen.Getstring(12,04,04)
Ret23a$ = Sess0.Screen.Getstring(12,26,05)
Ret23b$ = Sess0.Screen.Getstring(12,72,08)
Ret24$ = Sess0.Screen.Getstring(13,04,04)
Ret24a$ = Sess0.Screen.Getstring(13,26,05)
Ret24b$ = Sess0.Screen.Getstring(13,72,08)
Ret25$ = Sess0.Screen.Getstring(14,04,04)
Ret25a$ = Sess0.Screen.Getstring(14,26,05)
Ret25b$ = Sess0.Screen.Getstring(14,72,08)
Ret26$ = Sess0.Screen.Getstring(15,04,04)
Ret26a$ = Sess0.Screen.Getstring(15,26,05)
Ret26b$ = Sess0.Screen.Getstring(15,72,08)
Ret27$ = Sess0.Screen.Getstring(16,04,04)
Ret27a$ = Sess0.Screen.Getstring(16,26,05)
Ret27b$ = Sess0.Screen.Getstring(16,72,08)
Ret28$ = Sess0.Screen.Getstring(17,04,04)
Ret28a$ = Sess0.Screen.Getstring(17,26,05)
Ret28b$ = Sess0.Screen.Getstring(17,72,08)
Ret29$ = Sess0.Screen.Getstring(18,04,04)
Ret29a$ = Sess0.Screen.Getstring(18,26,05)
Ret29b$ = Sess0.Screen.Getstring(18,72,08)
Ret30$ = Sess0.Screen.Getstring(19,04,04)
Ret30a$ = Sess0.Screen.Getstring(19,26,05)
Ret30b$ = Sess0.Screen.Getstring(19,72,08)
Sess0.Screen.WaitHostQuiet(g_HostSettleTime)
Sess0.Screen.WaitHostQuiet(g_HostSettleTime)
Sess0.Screen.Sendkeys("<Enter>")
Sess0.Screen.WaitHostQuiet(g_HostSettleTime)
Sess0.Save
Ret31$ = Sess0.Screen.Getstring(05,04,04)
Ret31a$ = Sess0.Screen.Getstring(05,26,05)
Ret31b$ = Sess0.Screen.Getstring(05,72,08)
Ret32$ = Sess0.Screen.Getstring(06,04,04)
Ret32a$ = Sess0.Screen.Getstring(06,26,05)
Ret32b$ = Sess0.Screen.Getstring(06,72,08)
Ret33$ = Sess0.Screen.Getstring(07,04,04)
Ret33a$ = Sess0.Screen.Getstring(07,26,05)
Ret33b$ = Sess0.Screen.Getstring(07,72,08)
Ret34$ = Sess0.Screen.Getstring(08,04,04)
Ret34a$ = Sess0.Screen.Getstring(08,26,05)
Ret34b$ = Sess0.Screen.Getstring(08,72,08)
Ret35$ = Sess0.Screen.Getstring(09,04,04)
Ret35a$ = Sess0.Screen.Getstring(09,26,05)
Ret35b$ = Sess0.Screen.Getstring(09,72,08)
Ret36$ = Sess0.Screen.Getstring(10,04,04)
Ret36a$ = Sess0.Screen.Getstring(10,26,05)
Ret36b$ = Sess0.Screen.Getstring(10,72,08)
Ret37$ = Sess0.Screen.Getstring(11,04,04)
Ret37a$ = Sess0.Screen.Getstring(11,26,05)
Ret37b$ = Sess0.Screen.Getstring(11,72,08)
Ret38$ = Sess0.Screen.Getstring(12,04,04)
Ret38a$ = Sess0.Screen.Getstring(12,26,05)
Ret38b$ = Sess0.Screen.Getstring(12,72,08)
Ret39$ = Sess0.Screen.Getstring(13,04,04)
Ret39a$ = Sess0.Screen.Getstring(13,26,05)
Ret39b$ = Sess0.Screen.Getstring(13,72,08)
Ret40$ = Sess0.Screen.Getstring(14,04,04)
Ret40a$ = Sess0.Screen.Getstring(14,26,05)
Ret40b$ = Sess0.Screen.Getstring(14,72,08)
Ret41$ = Sess0.Screen.Getstring(15,04,04)
Ret41a$ = Sess0.Screen.Getstring(15,26,05)
Ret41b$ = Sess0.Screen.Getstring(15,72,08)
Ret42$ = Sess0.Screen.Getstring(16,04,04)
Ret42a$ = Sess0.Screen.Getstring(16,26,05)
Ret42b$ = Sess0.Screen.Getstring(16,72,08)
Ret43$ = Sess0.Screen.Getstring(17,04,04)
Ret43a$ = Sess0.Screen.Getstring(17,26,05)
Ret43b$ = Sess0.Screen.Getstring(17,72,08)
Ret44$ = Sess0.Screen.Getstring(18,04,04)
Ret44a$ = Sess0.Screen.Getstring(18,26,05)
Ret44b$ = Sess0.Screen.Getstring(18,72,08)
Ret45$ = Sess0.Screen.Getstring(19,04,04)
Ret45a$ = Sess0.Screen.Getstring(19,26,05)
Ret45b$ = Sess0.Screen.Getstring(19,72,08)
Sess0.Screen.WaitHostQuiet(g_HostSettleTime)
Sess0.Screen.WaitHostQuiet(g_HostSettleTime)
Sess0.Save
WRITE #2,acnt$,Ret1$,Ret1a$,Ret1b$,Ret2$,Ret2a$,Ret2b$,Ret3$,Ret3a$,Ret3b$,Ret4$,Ret4a$,Ret4b$,Ret5$,Ret5a$,Ret5b$,Ret6$,Ret6a$,Ret6b$,Ret7$,Ret7a$,Ret7b$,Ret8$,Ret8a$,Ret8b$,Ret9$,Ret9a$,Ret9b$,Ret10$,Ret10a$,Ret10b$,Ret11$,Ret11a$,Ret11b$,Ret12$,Ret12a$,Ret12b$,Ret13$,Ret13a$,Ret13b$,Ret14$,Ret14a$,Ret14b$,Ret15$,Ret15a$,Ret15b$,Ret16$,Ret16a$,Ret16b$,Ret17$,Ret17a$,Ret17b$,Ret18$,Ret18a$,Ret18b$,Ret19$,Ret19a$,Ret19b$,Ret20$,Ret20a$,Ret20b$,Ret21$,Ret21a$,Ret21b$,Ret22$,Ret22a$,Ret22b$,Ret23$,Ret23a$,Ret23b$,Ret24$,Ret24a$,Ret24b$,Ret25$,Ret25a$,Ret25b$,Ret26$,Ret26a$,Ret26b$,Ret27$,Ret27a$,Ret27b$,Ret28$,Ret28a$,Ret28b$,Ret29$,Ret29a$,Ret29b$,Ret30$,Ret30a$,Ret30b$,Ret31$,Ret31a$,Ret31b$,Ret32$,Ret32a$,Ret32b$,Ret33$,Ret33a$,Ret33b$,Ret34$,Ret34a$,Ret34b$,Ret35$,Ret35a$,Ret35b$,Ret36$,Ret36a$,Ret36b$,Ret37$,Ret37a$,Ret37b$,Ret38$,Ret38a$,Ret38b$,Ret39$,Ret39a$,Ret39b$,Ret40$,Ret40a$,Ret40b$,Ret41$,Ret41a$,Ret41b$,Ret42$,Ret42a$,Ret42b$,Ret43$,Ret43a$,Ret43b$,Ret44$,Ret44a$,Ret44b$,Ret45$,Ret45a$,Ret45b$
Sess0.Screen.WaitHostQuiet(g_HostSettleTime)
Sess0.Screen.WaitHostQuiet(g_HostSettleTime)
Sess0.Screen.WaitHostQuiet(g_HostSettleTime)
Sess0.Screen.WaitHostQuiet(g_HostSettleTime)
Sess0.Screen.WaitHostQuiet(g_HostSettleTime)
Sess0.Screen.WaitHostQuiet(g_HostSettleTime)
Sess0.Screen.WaitHostQuiet(g_HostSettleTime)
Sess0.Screen.WaitHostQuiet(g_HostSettleTime)
XXX:
LOOP
CLOSE #1
msgbox "Your macro is complete, have a nice day."
End Sub
Sub Main()
Dim Sessions As Object
Dim System As Object
Set System = CreateObject("EXTRA.System")
If (System is Nothing) Then
Msgbox "Could not create the EXTRA System object. Stopping macro playback."
STOP
End If
Set Sessions = System.Sessions
If (Sessions is Nothing) Then
Msgbox "Could not create the Sessions collection object. Stopping macro playback."
STOP
End If
'--------------------------------------------------------------------------------
g_HostSettleTime = 109
OldSystemTimeout& = System.TimeoutValue
If (g_HostSettleTime > OldSystemTimeout) Then
System.TimeoutValue = g_HostSettleTime
End If
Dim Sess0 As Object
Set Sess0 =GetObject("C:\Program Files\EXTRA!\Sessions\Session1.edp")
If (Sess0 is Nothing) Then
Msgbox "Could not create the Session object. Stopping macro playback."
STOP
End If
If Not Sess0.Visible Then Sess0.Visible = TRUE
Sess0.Screen.WaitHostQuiet(g_HostSettleTime
Close #1
Close #2
Open "N:\OPS\COLLECTNS\Restricted\Management\JSchmidt\Macros\ROL500 Input.txt" For INPUT As #1
Open "N:\OPS\COLLECTNS\Restricted\Management\JSchmidt\Macros\ROL500 Output.txt" For OUTPUT As #2
Dim Sess1 as Object
Dim scr as Object
Do While Not EOF(1)
Input #1,acnt$
ACNT$ = LEFT$(ACNT$,16)
Sess0.Screen.Sendkeys("<Reset>")
Sess0.Screen.Sendkeys("<Clear>")
Sess0.Save
Sess0.Screen.WaitHostQuiet(g_HostSettleTime)
Sess0.Screen.WaitHostQuiet(g_HostSettleTime)
Sess0.Screen.Sendkeys("cis "& acnt$)
Sess0.Screen.Sendkeys("<Enter>")
Sess0.Screen.WaitHostQuiet(g_HostSettleTime)
Sess0.Screen.Sendkeys("css")
Sess0.Screen.Sendkeys("<Enter>")
Sess0.Screen.WaitHostQuiet(g_HostSettleTime)
Ret1$ = Sess0.Screen.Getstring(05,04,04)
Ret1a$ = Sess0.Screen.Getstring(05,26,05)
Ret1b$ = Sess0.Screen.Getstring(05,72,08)
Ret2$ = Sess0.Screen.Getstring(06,04,04)
Ret2a$ = Sess0.Screen.Getstring(06,26,05)
Ret2b$ = Sess0.Screen.Getstring(06,72,08)
Ret3$ = Sess0.Screen.Getstring(07,04,04)
Ret3a$ = Sess0.Screen.Getstring(07,26,05)
Ret3b$ = Sess0.Screen.Getstring(07,72,08)
Ret4$ = Sess0.Screen.Getstring(08,04,04)
Ret4a$ = Sess0.Screen.Getstring(08,26,05)
Ret4b$ = Sess0.Screen.Getstring(08,72,08)
Ret5$ = Sess0.Screen.Getstring(09,04,04)
Ret5a$ = Sess0.Screen.Getstring(09,26,05)
Ret5b$ = Sess0.Screen.Getstring(09,72,08)
Ret6$ = Sess0.Screen.Getstring(10,04,04)
Ret6a$ = Sess0.Screen.Getstring(10,26,05)
Ret6b$ = Sess0.Screen.Getstring(10,72,08)
Ret7$ = Sess0.Screen.Getstring(11,04,04)
Ret7a$ = Sess0.Screen.Getstring(11,26,05)
Ret7b$ = Sess0.Screen.Getstring(11,72,08)
Ret8$ = Sess0.Screen.Getstring(12,04,04)
Ret8a$ = Sess0.Screen.Getstring(12,26,05)
Ret8b$ = Sess0.Screen.Getstring(12,72,08)
Ret9$ = Sess0.Screen.Getstring(13,04,04)
Ret9a$ = Sess0.Screen.Getstring(13,26,05)
Ret9b$ = Sess0.Screen.Getstring(13,72,08)
Ret10$ = Sess0.Screen.Getstring(14,04,04)
Ret10a$ = Sess0.Screen.Getstring(14,26,05)
Ret10b$ = Sess0.Screen.Getstring(14,72,08)
Ret11$ = Sess0.Screen.Getstring(15,04,04)
Ret11a$ = Sess0.Screen.Getstring(15,26,05)
Ret11b$ = Sess0.Screen.Getstring(15,72,08)
Ret12$ = Sess0.Screen.Getstring(16,04,04)
Ret12a$ = Sess0.Screen.Getstring(16,26,05)
Ret12b$ = Sess0.Screen.Getstring(16,72,08)
Ret13$ = Sess0.Screen.Getstring(17,04,04)
Ret13a$ = Sess0.Screen.Getstring(17,26,05)
Ret13b$ = Sess0.Screen.Getstring(17,72,08)
Ret14$ = Sess0.Screen.Getstring(18,04,04)
Ret14a$ = Sess0.Screen.Getstring(18,26,05)
Ret14b$ = Sess0.Screen.Getstring(18,72,08)
Ret15$ = Sess0.Screen.Getstring(19,04,04)
Ret15a$ = Sess0.Screen.Getstring(19,26,05)
Ret15b$ = Sess0.Screen.Getstring(19,72,08)
Sess0.Screen.WaitHostQuiet(g_HostSettleTime)
Sess0.Screen.WaitHostQuiet(g_HostSettleTime)
Sess0.Screen.Sendkeys("<Enter>")
Sess0.Screen.WaitHostQuiet(g_HostSettleTime)
Sess0.Save
Ret16$ = Sess0.Screen.Getstring(05,04,04)
Ret16a$ = Sess0.Screen.Getstring(05,26,05)
Ret16b$ = Sess0.Screen.Getstring(05,72,08)
Ret17$ = Sess0.Screen.Getstring(06,04,04)
Ret17a$ = Sess0.Screen.Getstring(06,26,05)
Ret17b$ = Sess0.Screen.Getstring(06,72,08)
Ret18$ = Sess0.Screen.Getstring(07,04,04)
Ret18a$ = Sess0.Screen.Getstring(07,26,05)
Ret18b$ = Sess0.Screen.Getstring(07,72,08)
Ret19$ = Sess0.Screen.Getstring(08,04,04)
Ret19a$ = Sess0.Screen.Getstring(08,26,05)
Ret19b$ = Sess0.Screen.Getstring(08,72,08)
Ret20$ = Sess0.Screen.Getstring(09,04,04)
Ret20a$ = Sess0.Screen.Getstring(09,26,05)
Ret20b$ = Sess0.Screen.Getstring(09,72,08)
Ret21$ = Sess0.Screen.Getstring(10,04,04)
Ret21a$ = Sess0.Screen.Getstring(10,26,05)
Ret21b$ = Sess0.Screen.Getstring(10,72,08)
Ret22$ = Sess0.Screen.Getstring(11,04,04)
Ret22a$ = Sess0.Screen.Getstring(11,26,05)
Ret22b$ = Sess0.Screen.Getstring(11,72,08)
Ret23$ = Sess0.Screen.Getstring(12,04,04)
Ret23a$ = Sess0.Screen.Getstring(12,26,05)
Ret23b$ = Sess0.Screen.Getstring(12,72,08)
Ret24$ = Sess0.Screen.Getstring(13,04,04)
Ret24a$ = Sess0.Screen.Getstring(13,26,05)
Ret24b$ = Sess0.Screen.Getstring(13,72,08)
Ret25$ = Sess0.Screen.Getstring(14,04,04)
Ret25a$ = Sess0.Screen.Getstring(14,26,05)
Ret25b$ = Sess0.Screen.Getstring(14,72,08)
Ret26$ = Sess0.Screen.Getstring(15,04,04)
Ret26a$ = Sess0.Screen.Getstring(15,26,05)
Ret26b$ = Sess0.Screen.Getstring(15,72,08)
Ret27$ = Sess0.Screen.Getstring(16,04,04)
Ret27a$ = Sess0.Screen.Getstring(16,26,05)
Ret27b$ = Sess0.Screen.Getstring(16,72,08)
Ret28$ = Sess0.Screen.Getstring(17,04,04)
Ret28a$ = Sess0.Screen.Getstring(17,26,05)
Ret28b$ = Sess0.Screen.Getstring(17,72,08)
Ret29$ = Sess0.Screen.Getstring(18,04,04)
Ret29a$ = Sess0.Screen.Getstring(18,26,05)
Ret29b$ = Sess0.Screen.Getstring(18,72,08)
Ret30$ = Sess0.Screen.Getstring(19,04,04)
Ret30a$ = Sess0.Screen.Getstring(19,26,05)
Ret30b$ = Sess0.Screen.Getstring(19,72,08)
Sess0.Screen.WaitHostQuiet(g_HostSettleTime)
Sess0.Screen.WaitHostQuiet(g_HostSettleTime)
Sess0.Screen.Sendkeys("<Enter>")
Sess0.Screen.WaitHostQuiet(g_HostSettleTime)
Sess0.Save
Ret31$ = Sess0.Screen.Getstring(05,04,04)
Ret31a$ = Sess0.Screen.Getstring(05,26,05)
Ret31b$ = Sess0.Screen.Getstring(05,72,08)
Ret32$ = Sess0.Screen.Getstring(06,04,04)
Ret32a$ = Sess0.Screen.Getstring(06,26,05)
Ret32b$ = Sess0.Screen.Getstring(06,72,08)
Ret33$ = Sess0.Screen.Getstring(07,04,04)
Ret33a$ = Sess0.Screen.Getstring(07,26,05)
Ret33b$ = Sess0.Screen.Getstring(07,72,08)
Ret34$ = Sess0.Screen.Getstring(08,04,04)
Ret34a$ = Sess0.Screen.Getstring(08,26,05)
Ret34b$ = Sess0.Screen.Getstring(08,72,08)
Ret35$ = Sess0.Screen.Getstring(09,04,04)
Ret35a$ = Sess0.Screen.Getstring(09,26,05)
Ret35b$ = Sess0.Screen.Getstring(09,72,08)
Ret36$ = Sess0.Screen.Getstring(10,04,04)
Ret36a$ = Sess0.Screen.Getstring(10,26,05)
Ret36b$ = Sess0.Screen.Getstring(10,72,08)
Ret37$ = Sess0.Screen.Getstring(11,04,04)
Ret37a$ = Sess0.Screen.Getstring(11,26,05)
Ret37b$ = Sess0.Screen.Getstring(11,72,08)
Ret38$ = Sess0.Screen.Getstring(12,04,04)
Ret38a$ = Sess0.Screen.Getstring(12,26,05)
Ret38b$ = Sess0.Screen.Getstring(12,72,08)
Ret39$ = Sess0.Screen.Getstring(13,04,04)
Ret39a$ = Sess0.Screen.Getstring(13,26,05)
Ret39b$ = Sess0.Screen.Getstring(13,72,08)
Ret40$ = Sess0.Screen.Getstring(14,04,04)
Ret40a$ = Sess0.Screen.Getstring(14,26,05)
Ret40b$ = Sess0.Screen.Getstring(14,72,08)
Ret41$ = Sess0.Screen.Getstring(15,04,04)
Ret41a$ = Sess0.Screen.Getstring(15,26,05)
Ret41b$ = Sess0.Screen.Getstring(15,72,08)
Ret42$ = Sess0.Screen.Getstring(16,04,04)
Ret42a$ = Sess0.Screen.Getstring(16,26,05)
Ret42b$ = Sess0.Screen.Getstring(16,72,08)
Ret43$ = Sess0.Screen.Getstring(17,04,04)
Ret43a$ = Sess0.Screen.Getstring(17,26,05)
Ret43b$ = Sess0.Screen.Getstring(17,72,08)
Ret44$ = Sess0.Screen.Getstring(18,04,04)
Ret44a$ = Sess0.Screen.Getstring(18,26,05)
Ret44b$ = Sess0.Screen.Getstring(18,72,08)
Ret45$ = Sess0.Screen.Getstring(19,04,04)
Ret45a$ = Sess0.Screen.Getstring(19,26,05)
Ret45b$ = Sess0.Screen.Getstring(19,72,08)
Sess0.Screen.WaitHostQuiet(g_HostSettleTime)
Sess0.Screen.WaitHostQuiet(g_HostSettleTime)
Sess0.Save
WRITE #2,acnt$,Ret1$,Ret1a$,Ret1b$,Ret2$,Ret2a$,Ret2b$,Ret3$,Ret3a$,Ret3b$,Ret4$,Ret4a$,Ret4b$,Ret5$,Ret5a$,Ret5b$,Ret6$,Ret6a$,Ret6b$,Ret7$,Ret7a$,Ret7b$,Ret8$,Ret8a$,Ret8b$,Ret9$,Ret9a$,Ret9b$,Ret10$,Ret10a$,Ret10b$,Ret11$,Ret11a$,Ret11b$,Ret12$,Ret12a$,Ret12b$,Ret13$,Ret13a$,Ret13b$,Ret14$,Ret14a$,Ret14b$,Ret15$,Ret15a$,Ret15b$,Ret16$,Ret16a$,Ret16b$,Ret17$,Ret17a$,Ret17b$,Ret18$,Ret18a$,Ret18b$,Ret19$,Ret19a$,Ret19b$,Ret20$,Ret20a$,Ret20b$,Ret21$,Ret21a$,Ret21b$,Ret22$,Ret22a$,Ret22b$,Ret23$,Ret23a$,Ret23b$,Ret24$,Ret24a$,Ret24b$,Ret25$,Ret25a$,Ret25b$,Ret26$,Ret26a$,Ret26b$,Ret27$,Ret27a$,Ret27b$,Ret28$,Ret28a$,Ret28b$,Ret29$,Ret29a$,Ret29b$,Ret30$,Ret30a$,Ret30b$,Ret31$,Ret31a$,Ret31b$,Ret32$,Ret32a$,Ret32b$,Ret33$,Ret33a$,Ret33b$,Ret34$,Ret34a$,Ret34b$,Ret35$,Ret35a$,Ret35b$,Ret36$,Ret36a$,Ret36b$,Ret37$,Ret37a$,Ret37b$,Ret38$,Ret38a$,Ret38b$,Ret39$,Ret39a$,Ret39b$,Ret40$,Ret40a$,Ret40b$,Ret41$,Ret41a$,Ret41b$,Ret42$,Ret42a$,Ret42b$,Ret43$,Ret43a$,Ret43b$,Ret44$,Ret44a$,Ret44b$,Ret45$,Ret45a$,Ret45b$
Sess0.Screen.WaitHostQuiet(g_HostSettleTime)
Sess0.Screen.WaitHostQuiet(g_HostSettleTime)
Sess0.Screen.WaitHostQuiet(g_HostSettleTime)
Sess0.Screen.WaitHostQuiet(g_HostSettleTime)
Sess0.Screen.WaitHostQuiet(g_HostSettleTime)
Sess0.Screen.WaitHostQuiet(g_HostSettleTime)
Sess0.Screen.WaitHostQuiet(g_HostSettleTime)
Sess0.Screen.WaitHostQuiet(g_HostSettleTime)
XXX:
LOOP
CLOSE #1
msgbox "Your macro is complete, have a nice day."
End Sub