すべてのカテゴリ

以下のブログでwellnoteがサービス終了するため、ダウンロードできるツールを作ったと書きました。色々と作り込んで、データを一括でダウンロードしてブラウザで参照できるようにしました。それまでに、サービス終了のタイミングが2022年12月から2023年3月になったり、公式が一括ダウンロードツールを提供するというアナウンスがあったり、mixiが運営している「みてね」がwellnoteの受け皿になるという発表もありました。もちろん、「みてね」へ移行するのが簡単なんだろうとは思うものの、「みてね」へ移行してもデータを救出ができなくなる可能性はあります。何より、作り始めたので最後まで作ってみたという感じです。写真だけでなく、動画、コメント、スタンプも移行できます。また、静的HTMLファイルなので、ホスティングさえしちゃえばインターネットを使ってパソコンでもスマホでも参照できます。我ながら、いい感じの出来になったと思います。wellnoteのインターフェイス仕様が変更にならないことを祈るばかりです。

Option Explicit Option Base 0 ' Private Declare PtrSafe Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" _     (ByVal pCaller As Long, ByVal pszURL As String, _      ByVal pszFileName As String, ByVal dwReserved As Long, _      ByVal plpfnCB As Long) As Long Public Sub 一括画像データをダウンロードし表示マクロ()     'ダウンロードＵＲＬ(作者のココナラブログ一覧)     Const DLBSURL = "https://coconala.com/blogs/1197395"     'ダウンロード格納ファイル名     Const DLTMPFN = "Temp.txt"     '対象画像拡張子     Const DLFEXTN = ".png"     '画像取出しキーワード     Const DLFKEY1 = "<img src="""     Const DLFKEY2 = DLFEXTN & """"     '     Const DLPCFNH = "PIC"     'ダウンロードエラーメッセージ     Const DLEMSG1 = "ダウンロードが出来ませんでした!!" & _                     v