2017年07月 / 06月≪ 12345678910111213141516171819202122232425262728293031≫08月

インフォメーション

FC2ブログで画像等を一括アップロードするソフトを地味に配布してます。
FC2ブログ用ファイルアップロードの最新版はこちら
(ベクター)FC2ブログ用ファイルアップロード

--.--.-- (--)

スポンサーサイト

上記の広告は1ヶ月以上更新のないブログに表示されています。
新しい記事を書く事で広告が消せます。


 |  --:--  |  スポンサー広告  |  Top↑

2008.02.18 (Mon)

楽天のメルマガ一括解除 - UWSC

楽天のメルマガって気がついたら結構登録しちゃってたりする。

流石にうざくなってきたな と思い、解除しようとメルマガ一覧のページへいくと

rakutencap.jpg




なげえええええええ!!!!!!!!!!!


なんなのこれ。楽天はふざけているのか?!

この中から、チェックの入ったメルマガのチェックをはずさなくてはいけない。
2、3個ならいいけど、何十個も登録しちゃってたりなんかするとやってられない。

しかもこんなにチェック項目があるのに、
「すべてのチェックをはずす」というようなボタンや、そのような一括処理を行うものがない。

つまり全て1つずつ手でチェックをはずしていくしかないのだ。

やってられっか!!!

そこまでしてメルマガを解除させたくないのか楽天は。


てことでUWSCで全てチェックを外します。

使い方はIEでこの「楽天のメルマガ一覧」というページを表示し、
下記のスクリプトをUWSCで動かします。

IE = Nothing

// 楽天のメルマガ画面を表示しているIEウィンドウを探す
Obj_Shell = CreateOleObj("Shell.Application")
// すべてのウィンドウ分ループ
for i = 0 to Obj_Shell.Windows.Count - 1
Obj = Obj_Shell.Windows.Item(i)

// IEのウィンドウなら
ifb Obj > 0 and pos("iexplore.exe",Obj.Fullname) > 0
//Windows.Item(i)がそのままIEオブジェクトとして使用できる
objIE = Obj
// IEがサイトを読み込み中なら読み込み終わるまで待つ
WHILE objIE.busy or objIE.readystate <> 4
SLEEP(1)
WEND

// ウィンドウタイトル
ifb POS("【楽天市場】楽天のメルマガ", objIE.LocationName) > 0
ifb POS("楽天のメルマガ一覧 ~楽天市場がお届けするメルマガの一覧~", objIE.document.body.innerText) > 0
// セットして
IE = objIE
// 抜ける
break
endif
endif
endif
next
SLEEP(0.1)

ifb IE = Nothing
msgbox("楽天のメルマガ一覧画面を表示したウィンドウが見つかりませんでした。")
exit
else
// ウィンドウが見つかった場

// ID取得
ID = HNDTOID(IE.HWND)
// アイコン状態なら戻す
if STATUS(ID, ST_ICON) then CTRLWIN(ID, NORMAL)
// アクティブにする
acw(ID, STATUS(ID, ST_X), STATUS(ID, ST_Y))

// チェックボックスを取得
chks = IE.document.getElementsByName("mid[]")
// チェックボックス分ループ
for i = 0 to chks.length - 1
// チェックが入っていたらはずす
if chks.Item(i).checked then chks.Item(i).checked = false
next
msgbox("完了")
endif


成功すればチェックが全部外れて「完了」というダイアログが出ます。
ダイアログが要らないなら[msgbox("完了")]の部分を消しちゃってください。

これはチェックを外すだけなので、「登録情報を変更する」ボタンは自分で押してください。


ちなみにこの長い画面キャプチャは
Capture STAFF - Light -
というソフトを使用しました。これは便利!


 |  18:07  |  UWSC  |  トラックバック(0)  |  コメント(0)  |  Top↑

Comment

コメントを投稿する

URL
コメント
パス  編集・削除するのに必要
非公開  管理者だけにコメントを表示
 

Trackback

この記事のトラックバックURL

この記事へのトラックバック

 | BLOGTOP | 
上記広告は1ヶ月以上更新のないブログに表示されています。新しい記事を書くことで広告を消せます。