自動化ツールUWSCで、MyDocomoログインを自動化する。

Tweet

久しぶりに、コンピュータ関係のネタを。でもやっぱり携帯がらみなんだな。

携帯の契約数が多くなると、各社のwebサイトでログインして料金明細・オプション契約を見たりするのが面倒になりませんか？

そこで、自動化してみました。

単品で、MydocomoだけだけどIE9+Windows7の環境で上手くいったのでレポート。

やり方

１．まずはUWSCというツールをダウンロードしてください。

ググれば一発で出ますが、ものぐさ太郎に；http://www.uwsc.info/

フリー版でよろしいです。

２．次に、メモ帳を開いて次のソースをコピーペーストしてください。

MDCM_UIMと、MDCM_PWDに書かれている＊は、自分の持っているドコモIDとパスワードをテキストでベタ書きしてください。セキュリティとかは一切考慮していません。

できたら、UWSCをダウンロードして展開したフォルダに、dcm_al.uwsとでも名前を付けて保存してください。

(ソースここから)

// https://www.mydocomo.com/dcm/dfw/web/pub2/r/sys/icewall/authlogin_top.html
// docomo id auto logon
//Special Thanks to http://excel20080504.web.fc2.com/uwsc/U5.htm

//　インターネットエクスプローラを起動（コピーペイストで利用）

IE = CREATEOLEOBJ("InternetExplorer.Application")
IE.visible = True
IE.navigate("https://www.mydocomo.com/dcm/dfw/web/pub2/r/sys/icewall/authlogin_top.html")
IE.visible = True
REPEAT
SLEEP(0.1)
UNTIL !IE.busy AND IE.readystate=4

IE.document.forms[0].MDCM_UID.value = "090********"
IE.document.forms[0].MDCM_PWD.value = "***********"

SLEEP(0.05)
id = GETID("「My docomo」「docomo Online Shop」ログイン | My docomo（マイドコモ） | NTTドコ

モ – Internet Explorer, optimized for Bing and MSN", "IEFrame", -1)

//clkitem(ID,"ログイン",CLK_ACC)
CTRLWIN(id, MAX)
CLKITEM(id, "閉じる", CLK_ACC)
KBD(VK_TAB,DOWN,50)
SLEEP(0.05)
KBD(VK_TAB,DOWN,50)
SLEEP(0.05)
KBD(VK_TAB,DOWN,50)
SLEEP(0.05)
KBD(VK_TAB,DOWN,50)
SLEEP(0.05)
KBD(VK_TAB,DOWN,50)
SLEEP(0.05)
KBD(VK_TAB,DOWN,50)
SLEEP(0.05)
KBD(VK_TAB,DOWN,50)
SLEEP(0.05)
KBD(VK_TAB,DOWN,50)
SLEEP(0.05)
KBD(VK_TAB,DOWN,50)
SLEEP(0.05)
KBD(VK_TAB,DOWN,50)
SLEEP(0.05)
KBD(VK_ENTER,DOWN,5)

(ソースここまで）

３．UWSCを起動して一番左のボタン(読み込み(L))をクリック。

４．ファイルダイアログからdcm_al.uwsを選択。

５．真ん中の(再生(P)）ボタンをクリック。

ほどなくして、テキストにべた打ちしたdocomoidでMyDocomoにログインした状態になると思います。

これを応用して、IEのタブを増やしつつ、違うドコモIDでログインし、というのを繰り返せば、たぶん1分弱でお手持ちの回線分自動ログインできるはず。

au版とsoftbank版も作成予定。（自分のために）

環境　Windows7pro64bit IE9.0.8112.16421

追記　

うーん　Mydocomoはログイン状態を保持するので2枚目の窓をあけたら最初のIDでログインされた状態になってしまってる。これは困るなあ・・