このスクリプトは、URLを収集するYoutubeビデオをループすることを目的としています。
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(
どういうわけかうまくいかないようです。これを返します:SyntaxError:不明なコマンド:OPTION、行:1(エラーコード:-910)助けてください。ありがとう。
編集:このスクリプトはVBSスクリプト(たとえばFile.vbs)として実行する必要があり、Imacrosブラウザー内で直接実行する必要はないことがわかったようです。
しかし、私はまだ問題を抱えています。このスクリプトは、上記のスクリプトで抽出されたURLを保存するためのものです。
SET !EXTRACT {{!URLCURRENT}}
SAVEAS TYPE=EXTRACT FOLDER=myFolder FILE=myFile.csv
これを正確にどこに挿入しますか?