Too much RAM....

[IzK666]

oks.
It's the macro.

Code:

Copy      Help

Acc accion
Htm OI
str filedate="20060920"

str valueA = "1"
str valueB = "1"
str filename
int Counter=val(valueB)
Counter = Counter - 1


;error
LogIn ;; Call a macro to log into the web.
;;;A bit explanation of the macro: Close all "Internet explorer", loads the web in a new internet explorer window and do login

;SolicitudNoTerminada
OI=htm("A" "---" "" win(" Internet Explorer" "IEFrame") "1/1" 9 0x21 180)
err
,goto error
;;;if whe can find this item, the web is reloaded.

OI.Click
OI=htm("TD" "---" "" win(" Internet Explorer" "IEFrame") "1/2" 11 0x1 180)
if(!OI) goto error
;;;the same
1

;;;The filename depends of the valueA. Each valueA, requires a new file
filename = "C:\txts\"
filename + filedate
filename + " - N"
filename + valueA
filename + ".txt"

;;;Now begin the loop process
;Scanning

;;;Setting the current values, and load the web
OI=htm("INPUT" "---" "" win(" Internet Explorer" "IEFrame") "1/2" 4 0x221 180)
OI.SetText(valueA)
OI=htm("INPUT" "---" "" win(" Internet Explorer" "IEFrame") "1/2" 7 0x221 180)
OI.SetText(valueB)
OI=htm("INPUT" "---" "" win(" Internet Explorer" "IEFrame") "1/2" 9 0x421 180)
OI.Click
;;;End of settings

_s="---"
_s + valueA
_s + "/"
_s + valueB

OI=htm("TD" _s "" win(" Internet Explorer" "IEFrame") "1/2" 11 0x21 180)
err
,goto SolicitudNoTerminada
;;;if the web is not loaded in 180s, whe redone all the process....

OI.SetFocus
OI.Click

0.25

;COPYCLIP
_s.all
key CeCc
1
_s.getclip
err
,goto COPYCLIP
;;;Sometimes I have received an error when copying the data into the clipboard.
;;;For this reason, I needed to put this loop.

_s.setfile(filename -1 -1 1) ;; Insert data into file
_s.all
valueB=val(valueB)+1
if (val(valueB) > 1000)
,valueB = "1"
,valueA = val(valueA)+1
,filename = "C:\txts\"
,filename + filedate
,filename + " - N"
,filename + valueA
,filename + ".txt"
,if (val(valueA) > 5)
,,goto END
,goto error ;; This was a new try to correct the problem, loading the web again, without any result
goto Scanning

;END
run "D:\WINNT\system32\net.exe" "send 192.168.1.2 Fin de la macro" "" "" 16
;;;Send a message to other computer in the LAN, when all is done.