ハーソナルフォトの削除

おはようございます。

そのうちに、一括で削除出来るようになるかと思いますが、写真を削除するのは結構大変かと思います。
編集する、削除する、確認する　と、３回操作しないといけないので、その３回を肩代わりしてもらって、SHIFTキー１回で削除する方法です。

UWSCというソフトウェアを使います。
UWSCで検索すれば、出てくると思います。
Internet Explorer用です。他のブラウザでは、動作しません。
あるいは、Internet Explorerでも、場合によって動作しない場合があります。
なぜか理由をつかんでいませんので、申し訳ありませんが動作しないときは、ご勘弁ください。

//SHIFTキーで写真を削除する。
//趣味人倶楽部ー写真詳細のページが開いていること

While True
// Escapeキーでスクリプト停止
If GetKeyState(VK_ESC) Then exit
//SHIFTキーで開始
Ifb GetKeyState(VK_SHIFT)
id = GetID("趣味人倶楽部 - 写真詳細 - Windows Internet Explorer", "IEFrame", -1)
Sleep(1)
ClkItem(id, "編集", CLK_ACC,True,2)

id = GetID("趣味人倶楽部 - 写真を編集する - Windows Internet Explorer", "IEFrame", -1)
Sleep(1)
ClkItem(id, "写真を削除する", CLK_ACC)

id = GetID("趣味人倶楽部 - 写真を削除する - Windows Internet Explorer", "IEFrame", -1)
Sleep(1)
ClkItem(id, "　削除する　", CLK_ACC)

id = GetID("趣味人倶楽部 - 写真を削除する - Windows Internet Explorer", "IEFrame", -1)
Sleep(1)
CLKITEM(id, "戻る", CLK_ACC)
Sleep(2)
CLKITEM(id, "戻る", CLK_ACC)
Sleep(2)
CLKITEM(id, "戻る", CLK_ACC)
Sleep(2)
EndIf
WEnd


補足的なことを日記に書いています。
気が向いたら、読んでみてください。

私も古いアルバムはその都度削除しています
古いのはどおせ誰も見ないし（笑）日記に2-3枚は残りますし・・

ところが半年か1年前にアルバムのシステム（プログラム）が変更されてからアルバムに投稿すると同時にパーソナルフォトにもアップされるようになりました

アルバムは一括削除するのですがマイフォトは1枚1枚削除せざるを得ません
システム変更後でも私も2000枚近くあるでしょう
最初はアルバムを消すごとに削除していましたが間もなく諦めてしまいました（笑）

残念ながら、一括での削除はできませんね。
一枚ずつ削除するしかないと思います。

ただ、アルバムとリンクさせているのなら、そのアルバムを削除していけば消えると思いますが、パーソナルフォトだけなら一枚ずつになるでしょうね。
（私はやったことがなので分かりませんが）

其の侭にしていてもご自身のPCの負担にはなりませんので、問題ないと思いますが。

一番早い方法は退会することです。
そうすればすべて消えます。
あっ、これは冗談です（笑）