iMacros的提取网址

Question

这个脚本是通过Youtube视频收集它们的URL意味着循环。

Option Explicit 

'initiate iMacros instance 
Dim iim1, iret 
set iim1 = CreateObject ("imacros") 
iret = iim1.iimInit() 

'navigate to youtube frontpage 
Dim macro 
macro = "CODE:" 
macro = macro + "VERSION BUILD=7601105  " + vbNewLine 
macro = macro + "TAB T=1  " + vbNewLine 
macro = macro + "TAB CLOSEALLOTHERS  " + vbNewLine 
macro = macro + "URL GOTO=http://www.youtube.com/  " + vbNewLine 

iret = iim1.iimPlay(macro) 

'loop through videos 
Dim counter 
counter = 0 
do while not iret < 0 
    counter = counter + 1 
    macro = "CODE:" 
    macro = macro + "TAG POS=R"+Cstr(counter)+" TYPE=IMG ATTR=CLASS:vimg120&&TITLE:*&&HREF:*&&NAME:*&&ALT:video&&SRC:* " + vbNewLine 
    macro = macro + "PROMPT Current<SP>URL:<SP>{{!URLCURRENT}}" + vbNewLine 
    macro = macro + "BACK" 
    iret = iim1.iimPlay(macro) 
loop 


'end 
msgbox "End. We'll close the iMacros browser and exit the VBS script." 

'close iMacros instance 
iret = iim1.iimExit() 

' exit script 
Wscript.Quit(

由于某种原因它似乎没有工作。 它返回：语法错误：未知命令：OPTION，线：1（错误代码：-910） 请帮助我。 谢谢。

编辑：看起来像我想通了这个脚本必须运行一个VBS脚本（File.vbs为例），而不是iMacros的浏览器中直接。

但我仍然有一个问题。 这个脚本是为了保存在上面的脚本中提取的网址：

SET !EXTRACT {{!URLCURRENT}} 
SAVEAS TYPE=EXTRACT FOLDER=myFolder FILE=myFile.csv 

我到什么地方插入这到底是什么？

Answer 1

尝试了这一点，让我知道，如果它的工作原理。我到目前为止还没有做过VBS，但这可以奏效。

Option Explicit 

'initiate iMacros instance 
Dim iim1, iret 
set iim1 = CreateObject ("imacros") 
iret = iim1.iimInit() 

'navigate to youtube frontpage 
Dim macro 
macro = "CODE:" 
macro = macro + "VERSION BUILD=7601105  " + vbNewLine 
macro = macro + "TAB T=1  " + vbNewLine 
macro = macro + "TAB CLOSEALLOTHERS  " + vbNewLine 
macro = macro + "URL GOTO=http://www.youtube.com/  " + vbNewLine 

iret = iim1.iimPlay(macro) 

'loop through videos 
Dim counter 
counter = 0 
do while not iret < 0 
    counter = counter + 1 
    macro = "CODE:" 
    macro = macro + "TAG POS=R"+Cstr(counter)+" TYPE=IMG ATTR=CLASS:vimg120&&TITLE:*&&HREF:*&&NAME:*&&ALT:video&&SRC:* " + vbNewLine 
    macro = macro + "PROMPT Current<SP>URL:<SP>{{!URLCURRENT}}" + vbNewLine 
macro = macro + "SET !EXTRACT {{!URLCURRENT}}" + vbNewLine 
macro = macro + "SAVEAS TYPE=EXTRACT FOLDER=myFolder FILE=myFile.csv" + vbNewLine 
    macro = macro + "BACK" 
    iret = iim1.iimPlay(macro) 
loop 


'end 
msgbox "End. We'll close the iMacros browser and exit the VBS script." 

'close iMacros instance 
iret = iim1.iimExit() 

' exit script 
Wscript.Quit()