|
|
|
|
Strumenti |
20-10-2017, 22:30 | #1 |
Senior Member
Iscritto dal: Sep 2003
Città: Modena
Messaggi: 4122
|
problema con imacro e vbs
Ciao a tutti,
sto cercando di imparare ad usare imacro al fine di poter fare del webscraping. Tuttavia, tutti gli esempi che ho trovato nella pagina online non funzionano, perchè ottengo un errore alla seguente linea: Set iim1 = CreateObject("iMacros") ed otengo l'errore 800A01AD Lo script che sto cercando di far girare è il seguente, preso direttamente dal sito del produttore. Codice:
Option Explicit Dim iim1,iret Set iim1 = CreateObject("iMacros") iret = iim1.iimOpen("", False) 'connect to open iMacros browser window Dim macro macro = macro & "VERSION BUILD=6110122 " & vbNewLine macro = macro & "TAB T=1" & vbNewLine macro = macro & "TAB CLOSEALLOTHERS" & vbNewLine macro = macro & "SET !TIMEOUT 6" & vbNewLine macro = macro & "TAG POS={{counter}} TYPE=TD ATTR=TXT:*Date<SP>Posted:*days" & vbNewLine macro = macro & "TAG POS=R1 TYPE=TD ATTR=TXT:* EXTRACT=TXT" & vbNewLine macro = macro & "TAG POS=R1 TYPE=TD ATTR=TXT:*Bath* EXTRACT=TXT" & vbNewLine macro = macro & "TAG POS=R2 TYPE=TD ATTR=TXT:* EXTRACT=TXT " & vbNewLine macro = macro & "TAG POS=R1 TYPE=TD ATTR=TXT:$* EXTRACT=TXT" Dim counter counter = 1 Do While Not (iret < 0) iim1.iimSet "counter", counter iret = iim1.iimPlayCode(macro) msgbox (iim1.iimGetExtract()) counter = counter + 3 If (iret < 0) Then 'end of list reached -> next page iret = iim1.iimPlayCode("TAG POS=1 TYPE=A ATTR=TXT:Next") counter = 1 End If Loop
__________________
ho concluso felicemente con: masterGR, piantax, aragorn85, battalion75, lukas785, cagnulein, CaFFeiNe, josty,kabira85 e tanti altri |
22-10-2017, 11:07 | #2 |
Senior Member
Iscritto dal: Sep 2003
Città: Modena
Messaggi: 4122
|
up!
__________________
ho concluso felicemente con: masterGR, piantax, aragorn85, battalion75, lukas785, cagnulein, CaFFeiNe, josty,kabira85 e tanti altri |
Strumenti | |
|
|
Tutti gli orari sono GMT +1. Ora sono le: 14:14.