アメブロ版画像アップツール －親孝行Ｖｅｒ－

先日帰省したときに、うちのオカンじゃなかった母が、ブログをやっている事が判明しました。オカンは、もうすぐ60歳なのに、なかなかやるものです。で、写真のアップの仕方が、わからないそうなので例によって画像アップツールを作ってみました。
今回のは、アメブロ専用です。で、おばさんにも簡単に操作できるように親切設計です。主な特徴は、

　・簡易ログイン判定による自動ログイン
　・作業フォルダ自動作成（マイドキュメント内）
　・写真の自動リサイズ
　・老眼鏡いらず（字が大きい）

こんな感じです。今回は、パソコンが苦手な人でも使えるように作業内容を極力自動化してあります。写真をコピーしてサイズを入力すれば、あとはクリックしていくだけで完了です。試しに写真を10枚ほどアップしてみましたが、30秒ほどで終了。手作業とは、比較にならないほど高速で処理できますね。
今回は、単純に写真をアップするだけ。アメブロは、けっこう高機能なのでタイトルつけたりするのは、かなり面倒だったので省略です。

行き当たりばったりで作ったので、かなり無茶苦茶。自分でも、何がどうなっているのか良くわかりません。あと自分用なので例外処理とかはしていない。めんどくさいからね。万が一、使ってみようかと思う人がいる場合は、自己責任で・・・。

近々、帰省予定なのでその時にでもインストールしてあげようと思います。

インストール
　１．なでしこをインストールしておく
　２．なでしこエディタにソースをコピー
　３．最初のほうにあるＩＤとパスワードを自分のものに変更
　４．好きな場所に保存

ソース
read more をクリック・・・

��変数
読み込み確認＝オフ
��Ｄ="ＩＤを書くところ"　＃自分のＩＤを入力
��ＡＳ="パスワードを書くところ"　＃自分のパスワードを入力
写真サイズ=300　＃写真のサイズ初期値
元画像パス＝｢｛マイドキュメント｝ameblo\元画像\｣
修正画像パス＝｢｛マイドキュメント｝ameblo\修正画像\｣
終了確認＝はい
画像一覧＝｢｣
��フォルダの存在確認、作成処理
��｛マイドキュメント｝ameblo｣のフォルダ存在
もし、それがいいえならば
　｢｛マイドキュメント｝ameblo｣にフォルダ作成
　
元画像パスのフォルダ存在
もし、それがいいえならば
　元画像パスにフォルダ作成
修正画像パスのフォルダ存在
もし、それがいいえならば
　修正画像パスにフォルダ作成
��画面作成
母艦は、「Ameba 画像管理ツール」
母艦のW=1000
母艦のH=600
表示画面とはブラウザ
　その親部品は、母艦
　そのレイアウトは、全体
そのURL="http://www.ameba.jp/"
0.1秒待つ
表示画面の文書完了した時は～
　読み込み確認＝オン
写真イメージとは、イメージ
　その可視は、オフ　
　
ダイアログ初期値=写真サイズ
ダイアログ詳細=｢文字サイズ=20｣
��トップページの読み込み
��読み込み確認＝オフ）の間
　0.1秒待つ
読み込み確認＝オフ
��ログイン確認
もし（表示画面のテキストの文字数）＜15000ならば
　0.1秒待つ
　タブ＆タブ＆タブをキー送信
　0.1秒待つ
　ＩＤをキー送信
　0.1秒待つ
　タブをキー送信
　0.1秒待つ
　ＰＡＳをキー送信
　0.1秒待つ
　タブをキー送信
　｢ ｣をキー送信　　
　２秒待つ
違えば
　２秒待つ
��写真の準備
表示画面のURL="http://upphoto.ameba.jp/ucs/photo/upload.do"
��最初に写真を準備しましょう。{改行}これから開くフォルダに{改行}使いたい写真をコピーしてね。｣と言う。
元画像パスを起動
母艦のアクティブ時は～
　もし、（終了確認＝はい）ならば
　 ｢画像のコピーは、終わりましたか？｣で二択
　 もし、それがはいならば
　 終了確認＝いいえ
　 ｢じゃあ、次は写真をリサイズ（縮小）します。｛改行｝写真のサイズは、いくつにする？｣と尋ねる。
　 もし、それが｢｣ならば、
　 　終了確認＝はい
　 　｢写真のコピーが、終わったら教えて｣と言う
　 　元画像パスを起動
　 違えば、
　　　　　　写真サイズは、それ
　 　　｢写真を｛写真サイズ｝でリサイズします。｣と言う。
　　　　　　写真サイズは、それ
　　　　　　元画像パス＆｢*.jpg;*.jpeg;*.gif;*.png｣のファイル列挙
　　　　　　反復
　　　　　　　写真イメージの画像は、｢｛元画像パス｝\｣&対象
　　　　　　　写真イメージを写真サイズ,写真サイズで画像比率変えずリサイズ。
　　　　　　　写真イメージを「｛修正画像パス｝\NBS｛今日の"/"を""に置換｝」＆対象へ画像保存。
　　　　　　｢これから写真をアップします。｛改行｝だからパソコンに触っちゃ駄目！｣と言う
　　　　　　画像一覧=修正画像パス＆｢*.jpg;*.jpeg;*.gif;*.png｣の全ファイル列挙
　　　　　　
　　　　　　（INT（画像一覧の配列要素数/6）+1）回
　　　　　　　表示画面のURL="http://upphoto.ameba.jp/ucs/photo/upload.do"
　　　　　　　読み込み確認＝オフ
　　　　　　　（読み込み確認＝オフ）の間
　　　　　　　　0.1秒待つ
　　　　　　　2秒待つ
　　　　　　　表示画面に注目
　　　　　　　6回
　　　　　　　　タブをキー送信
　　　　　　　　画像一覧￥0をコピー
　　　　　　　　0.１秒待つ
　　　　　　 タブをキー送信
　　　　　　 0.1秒待つ
　　　　　　 「^v」をキー送信
　　　　　　 画像一覧の0を配列削除
　　　　　　 0.1秒待つ
　　　　　　　タブをキー送信
　　　　　　　0.1秒待つ
　　　　　　　｢ ｣をキー送信
　　　　　　　読み込み確認＝オフ
　　　　　　　（読み込み確認＝オフ）の間
　　　　　　　　0.1秒待つ
　　　　　　　表示画面のURL="http://www.ameba.jp/"
　　　　　　　1秒待つ
　　　　　　表示画面のURL="http://ucsphoto.ameba.jp/ucs/photo/edit.do"
　　　　　　｢写真のアップが終わりました。｛改行｝作業に使ったフォルダを削除します。｣と言う
　　　　　　｢｛マイドキュメント｝ameblo\｣のフォルダ削除
　 違えば
　 　戻る