UWSCでドコモポイント毎日チャレンジを自動化

ドコモプレミアクラブに入会していて、SPモード契約していると毎日チャレンジでポイントがもらえるキャンペーンを実施中。

http://premier.docomo-de.net/prcs_mnac/kVL9KG/sp/top.jsp

このURLで合ってるかな。

スマホでちまちまやってもいいのだが、6回線分あるのでUWSCで自動化。

いつもながらタブでIEを縦横無尽に移動するテキトーなプログラム。

特定のイメージボタンをクリックする方法もあるんだと思うのですが、時間がないので力技。

下記ソースをメモ帳にコピーしてUWS拡張子で保存して実行してください。（要：UWSCインストール。Windows7+IE10環境でのみ確認。）

あなたのIDとパスワードをハードコーティングするのをお忘れなく。

(ここから)———-

// 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

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

//  毎日チャレンジ！ドコモポイントゲット自動化　2013.9.2

IE = CREATEOLEOBJ("InternetExplorer.Application")
IE.visible = True
IE.navigate("http://service.smt.docomo.ne.jp/cgi2/common/rd?id=0001090001&nl=https%3A%2F

%2Fservice.smt.docomo.ne.jp%2Fcgi%2Fmymenu%2Ftop")
IE.visible = True

REPEAT
SLEEP(0.1)
UNTIL !IE.busy AND IE.readystate=4

IE.document.forms[0].Di_Uid.value = "ここにあなたのドコモIDを入れる！"
IE.document.forms[0].Di_Pass.value = "ここにあなたのパスワードを入れる"

SLEEP(0.05)
IESetData(IE,True,"","alt=docomo ログイン") // IMAGE

id = GETID("docomo ログイン | NTTドコモ – Internet Explorer, optimized for Bing and MSN",

"IEFrame", -1)

CTRLWIN(id, MAX)
CLKITEM(id, "閉じる", CLK_ACC)

SLEEP(0.1)

for 回数 = 1 to 9

KBD(VK_TAB,DOWN,50)
SLEEP(0.05)

next

KBD(VK_ENTER,DOWN,5)

SLEEP(2)

for 回数 = 1 to 11
KBD(VK_TAB,DOWN,50)
SLEEP(0.05)

next

KBD(VK_ENTER,DOWN,5)

SLEEP(2)

for 回数 = 1 to 71
KBD(VK_TAB,DOWN,50)
SLEEP(0.05)

next

KBD(VK_ENTER,DOWN,5)

SLEEP(2)

for 回数 = 1 to 15
KBD(VK_TAB,DOWN,50)
SLEEP(0.05)

next

KBD(VK_ENTER,DOWN,5)

SLEEP(2)
//　ゲームにチャレンジするをクリック
for 回数 = 1 to 5
KBD(VK_TAB,DOWN,50)
SLEEP(0.05)

next

KBD(VK_ENTER,DOWN,5)

// 選ぶ
SLEEP(2)
for 回数 = 1 to 5
KBD(VK_TAB,DOWN,50)
SLEEP(0.05)
next

kbd(VK_DOWN,DOWN,50)
kbd(VK_DOWN,DOWN,50)

KBD(VK_ENTER,DOWN,5)
KBD(VK_TAB,DOWN,50)
KBD(VK_ENTER,DOWN,5)

 

(ここまで)———-

複数回線持ってる人は複数個作って連続実行。

バッチ化してAT登録してれば、日付が変わるたびに実行してくれるはず。

うまく10ポイントゲットすればいいんだが、、、、

残念ながら本日　はずれを初めて見たよ。