UWSCで楽天にログインし、ポイントを取得するものを探している人は参考にしてください。

---

下記は、UWSCで楽天にログインし、ポイントを取得する例です。

ポイントの表示をHTMLソースで確認したところ、

<dd><span class=”rakutenPointNumber”>8,227</span><span class=”rakutenPointUnit”>ポイント</span></dd>

となっていたため、タグ「span」で「rakutenPointNumber」が見つかるまで検索し、ポイントを取得するようにしています。

 

■実行結果

総保有ポイント:8,227

■VBscriptのソース(rakutenlogin.UWS)

</pre>
dim i
dim l
i=1

IE = CreateOLEObj("InternetExplorer.Application")
IE.Visible = True

IE.Navigate("https://grp01.id.rakuten.co.jp/rms/nid/vc?__event=login&service_id=top")
Sleep(1)
BusyWait(IE)

//ユーザ（下記は「USERXX」）をセットする
IESETDATA(IE,"USERXX","u")

//パスワード（下記は「PASSWORD」）をセットする
IESETDATA(IE,"PASSWORD","p")

IESetData(IE,True,"submit")　// SUBMIT

IE.Navigate("https://my.rakuten.co.jp/")
BusyWait(IE)

//開始キーワード

STRKENSAKU1="rakutenPointNumber"

//終了キーワード
STRKENSAKU2="</span>"

CNT = 0
CHK = 0

WHILE CHK = 0
STRMOJI = IEGetSrc(IE,"span",CNT)
CNT = CNT + 1
INTFIND1 = POS(STRKENSAKU1,STRMOJI)
IF INTFIND1 > 0 THEN
INTFIND2 = POS(STRKENSAKU2,STRMOJI)
CHK = 1
PRINT "総保有ポイント:" + COPY(STRMOJI,INTFIND1 + LENGTH(STRKENSAKU1) + 2 ,INTFIND2 - INTFIND1 - LENGTH(STRKENSAKU1) - 2)
ENDIF

WEND

Procedure BusyWait(ie)
repeat
Sleep(0.2)
until (! ie.busy) and (ie.readyState=4)
Fend
<pre>