goo ブログの画像ファイルアドレスを一括取得

goo ブログの画像ファイルアドレスを一括取得

' gooimglist.vbs とでも名前をつけて保存してちょ ' 保存したファイルをクリックして実行 ' コマンドラインからは cscript goo.vbs って打てる ' JPG ファイルのみアップロードします ' ファイル名が重なった場合はどーなるかわかんね ' ファイル名に日本語が含まれている場合は通らないかも（相手がEUCなので） ' EUC の変換まではめんどくさいのでやってない ' 書き換える部分 ' goo のユーザーIDとパスワード strUser = "書き換えてね" strPassword = "書き換えてね" ' 取得する画像ファイルの数 NumImages = 30 ' ファイルリストを作成する場合は、 ' cscript gooimglist.vbs > gooimg.csv ' みたいに呼び出さないといけません ' ログイン処理 Set ie = WScript.CreateObject("InternetExplorer.Application", "IE_") ie.Visible = True ie.Navigate "http://profile.mail.goo.ne.jp/func/Login?site=www.goo.ne.jp&success=http%3a%2f%2fblog%2egoo%2ene%2ejp%2fadmin.php", 14 While ie.busy Wend While (ie.Document.readyState <> "complete") Wend For Each Elem In ie.document.Forms("f1").elements If Elem.name = "uname" Then Elem.value = strUser ElseIf Elem.name = "pass" Then Elem.value = strPassword ElseIf Elem.name = "auto" Then Elem.checked = True End If Next ie.document.Forms("f1").submit While ie.busy Wend While (ie.Document.readyState <> "complete") Wend ' 画像フォルダ ie.Navigate "http://blog.goo.ne.jp/admin.php?fid=imgmanage&pageno=0&dispnum=" & NumImages, 14 While ie.busy Wend While (ie.Document.readyState <> "complete") Wend For Each frm In ie.document.Forms If frm.name = "useimg" Then ImgURL = "" LinkURL = "" For Each Elem In ie.document.links If InStr(Elem.href, frm.elements("iid").value) > 0 Then LinkURL = Elem.href Exit For End If Next For Each Elem In ie.document.images If InStr(Elem.src, frm.elements("iid").value) > 0 Then If Elem.filesize > 0 Then ImgURL = Elem.src Exit For End If End If Next If (ImgURL <> "") AND (LinkURL <> "") Then WScript.Echo ImgURL & "," & LinkURL End If End If Next ie.Quit Set ie = Nothing