VBScript : 手書きブログAPIで画像ダウンロード

Google Twitter OneDrive jQuery Three.js logicalerror 更新履歴 データベース VBScript   種別毎に最大50ダウンロードします API としては、まだまだ使い道がはっきりしないものですが、種別毎に最大50枚の URL を取得できる ので最近の画像をダウンロードするという目的にならば使えるとと思います。上書き操作ですから、バック アップとしてここ最近の更新したものをダウンロードするのであれば、手書きブログ側でいったん下書き にして公開すれば最新でダウンロードできます。 Call ImgDoenload(1,"日記") は、最初の引数が種別で、二つ目はダウンロードするディレクトリです。 無ければ作成します。 API の都合で、API を一度呼ぶと次は60秒後にするよう pipa が取りきめているので、Popup で 停止しています。( 60秒経つと、自動的に閉じるので OK はクリックしないで下さい api_img_download.vbs 行番号付きテキストエリアでソースを表示します copy このままの表示で印刷しますテキストとしてダウンロードします 001.' *********************************************************** 002.' API を取得して、ユーザー番号とをそれぞれ設定して下さい 003.' 004.' ※ 仕様なので、タイプ毎に際出す50しか画像を取得できません 005.' ※ それ以上が必要な場合は、タグで分類するしかありませんが 006.' ※ ソースコードを多少変更する必要があります 007.' *********************************************************** 008.strAPI = "APIキー" 009.strUSER = "ユーザー番号" 010.  011.  012.' *********************************************************** 013.' ( 連続実行を想定しているので、クライアント用オブジェクト ) 014.' *********************************************************** 015.Set objHTTP = Wscript.CreateObject("MSXML2.XMLHTTP") 016.Set objHTTPDownload = Wscript.CreateObject("MSXML2.XMLHTTP") 017.' *********************************************************** 018.' 画像保存用 019.' *********************************************************** 020.Set Stream = Wscript.CreateObject("ADODB.Stream") 021.' *********************************************************** 022.' Popup wait 用 023.' *********************************************************** 024.Set WshShell = WScript.CreateObject("WScript.Shell") 025.' *********************************************************** 026.' フォルダ作成 用 027.' *********************************************************** 028.Set Fso = CreateObject( "Scripting.FileSystemObject" ) 029.  030.  031.' *********************************************************** 032.' ダウンロード 033.' *********************************************************** 034.Call ImgDoenload(1,"日記") 035.Call Wait60("1/6") 036.  037.Call ImgDoenload(2,"イラスト") 038.Call Wait60("2/6") 039.  040.Call ImgDoenload(3,"企画") 041.Call Wait60("3/6") 042.  043.Call ImgDoenload(4,"告知") 044.Call Wait60("4/6") 045.  046.Call ImgDoenload(5,"漫画") 047.Call Wait60("5/6") 048.  049.Call ImgDoenload(99,"その他") 050.  051.Wscript.Echo "処理が終了しました" 052.  053.  054.' *********************************************************** 055.' 関数 056.' *********************************************************** 057.Function Wait60(message) 058.  059.    Call WshShell.Popup(message & " : 次のAPI実行まで60秒間お待ち下さい(OKはクリックしないで下さい)",60) 060.  061.End Function 062.  063.Function ImgDoenload( strNo, DirPath ) 064.  065.    strUrl = "http://tegaki.pipa.jp/GetBlogList.jsp?AK="&strAPI&"&UD="&strUSER&"&NM=50&TD="&strNo 066.  067.    Call objHTTP.open("GET",strUrl,False) 068.    Call objHTTP.send( ) 069.    Set xml = objHTTP.responseXML 070.  071.    Set objList = xml.getElementsByTagName("file") 072.    length = objList.length 073.  074.    if length <> 0 then 075.        if not Fso.FolderExists( DirPath ) then 076.            Fso.CreateFolder(DirPath) 077.        end if 078.    end if 079.  080.    For I = 0 to length - 1 081.  082.        ' API 内の サムネイルの URL 083.        strUrlPath1 = objList(I).firstChild.nodeValue 084.        ' 大きい画像の URL 085.        strUrlPath2 = Replace(strUrlPath1, "_S.jpg" ,"") 086.  087.        ' 保存ファイル名 088.        aPath = Split(strUrlPath2,"/") 089.        strLocalName = aPath(UBound(aPath)) 090.        aPath = Split(strUrlPath1,"/") 091.        strLocalNameS = aPath(UBound(aPath)) 092.  093.        Call objHTTPDownload.Open("GET", strUrlPath2, False ) 094.        objHTTPDownload.Send 095.  096.        Stream.Open 097.        Stream.Type = 1 ' バイナリ 098.        Stream.Write objHTTPDownload.responseBody 099.        Stream.SaveToFile DirPath & "\" & strLocalName, 2 100.        Stream.Close 101.  102.        Wscript.Sleep 10 103.  104.        Call objHTTPDownload.Open("GET", strUrlPath1, False ) 105.        objHTTPDownload.Send 106.  107.        Stream.Open 108.        Stream.Type = 1 ' バイナリ 109.        Stream.Write objHTTPDownload.responseBody 110.        Stream.SaveToFile DirPath & "\" & strLocalNameS, 2 111.        Stream.Close 112.  113.        Wscript.Sleep 10 114.  115.    Next 116.  117.End Function

---

   SQLの窓    create:2010/05/23  update:2018/02/18   管理者用(要ログイン)

---