I am a rocky in programing (a week for this script
)I use that for update records. They are in pages of 30
- Code: Select all
Option Explicit
Dim tanun '# total of records
Dim panun '#total records for page
Dim counter
Dim tanunloop 'split group of three for to minimize the problem that affects my lack of knowledge. sicion , sicion2, sicion3 too
Dim sicion ' 1 Positon of the record in the page
Dim sicion2 ' 2 Positon of the record in the page
Dim sicion3 ' 3 Positon of the record in the page
Dim pagina
Dim tiempo
tanun = 153 ''total records
tiempo = 300 'time for waiting
panun =30 'records x page
pagina = (tanun \ panun)+1 'total pages of 30 records
counter = 0 'move loop
sicion = tanun mod panun 'tells me the position of the last record, of 30 probable positions, on the last page (45 records; - 30 first page will be position 15)
sicion3 = sicion - 2 'Position for antepenultimate record
sicion2 = sicion - 1 'Posición for penultimate record
tanunloop = tanun \ 3 'number to records to update before re loging
Dim iim1,iret
Set iim1 = CreateObject("iMacros")
iret = iim1.iimOpen("", False) 'connect to open iMacros browser window
Dim macro
macro = macro + "TAB T=1" + vbNewLine
macro = macro + "SET !ERRORIGNORE YES" + vbNewLine
macro = macro + "URL GOTO=http://www.mysite.com/renew/?logout" + vbNewLine
macro = macro + "TAG POS=1 TYPE=INPUT:TEXT FORM=NAME:NoFormName ATTR=ID:email CONTENT=me8@gmail.com" + vbNewLine
macro = macro + "SET !ENCRYPTION NO" + vbNewLine
macro = macro + "TAG POS=1 TYPE=INPUT:PASSWORD FORM=NAME:NoFormName ATTR=ID:contra CONTENT=xxxx" + vbNewLine
macro = macro + "TAG POS=1 TYPE=INPUT:SUBMIT FORM=NAME:NoFormName ATTR=CLASS:submit<SP>btnSend" + vbNewLine
macro = macro + "URL GOTO=http://www.mysite.com/renew/?pagina={{pagina}}" + vbNewLine
macro = macro + "TAG POS={{sicion}} TYPE=A ATTR=TXT:Renovar" + vbNewLine
macro = macro + "FRAME F=1" + vbNewLine
macro = macro + "ONDIALOG POS=1 BUTTON=OK CONTENT=" + vbNewLine
macro = macro + "TAG POS=1 TYPE=A ATTR=ID:lren" + vbNewLine
macro = macro + "WAIT SECONDS={{tiempo}}" + vbNewLine
macro = macro + "TAG POS=1 TYPE=INPUT:SUBMIT FORM=NAME:NoFormName ATTR=CLASS:submit<SP>btnSend" + vbNewLine
macro = macro + "TAG POS={{sicion2}} TYPE=A ATTR=TXT:Renovar" + vbNewLine
macro = macro + "FRAME F=1" + vbNewLine
macro = macro + "ONDIALOG POS=1 BUTTON=OK CONTENT=" + vbNewLine
macro = macro + "TAG POS=1 TYPE=A ATTR=ID:lren" + vbNewLine
macro = macro + "WAIT SECONDS={{tiempo}}" + vbNewLine
macro = macro + "TAG POS=1 TYPE=INPUT:SUBMIT FORM=NAME:NoFormName ATTR=CLASS:submit<SP>btnSend" + vbNewLine
macro = macro + "TAG POS={{sicion3}} TYPE=A ATTR=TXT:Renovar" + vbNewLine
macro = macro + "FRAME F=1" + vbNewLine
macro = macro + "ONDIALOG POS=1 BUTTON=OK CONTENT=" + vbNewLine
macro = macro + "TAG POS=1 TYPE=A ATTR=ID:lren" + vbNewLine
macro = macro + "WAIT SECONDS={{tiempo}}" + vbNewLine
Do Until counter = tanunloop
iim1.iimSet "sicion", sicion
iim1.iimSet "sicion2", sicion2
iim1.iimSet "sicion3", sicion3
iim1.iimSet "pagina", pagina
iim1.iimSet "tiempo", tiempo
iret = iim1.iimPlayCode(macro)
counter=counter+1
Loop
it works GREAT, but... I want improve it
If a record can't be update it always remain in the bottom position (sicion3) and only can work sicion2 and sicion but "wait seconds' works losing time.
When a record can't be update browser send a javascrpt alert.
I would like... If browser sends an alert don't 'wait seconds' and +1 to sicion variable
Thanks in advance folks.
I am a silly sure that you could do it with 30% less of code
"Hekp me obi wan kenobis you're my last hope"
(Read my Sig...)