UWSC辞典

Web上（IE）のリンクを選択します。正しく処理できた場合はTrue、処理できなかった場合はFalseを返します。

新しく開いたタブを操作したい場合は、getIEObj関数を使います。

構文

1. Boolean = IELINK( IE, リンク表示文字, [番号, 完全一致フラグ] )

引数

IE

IEオブジェクト

リンク表示文字

表示されているリンク項目　（一部分だけでも可）

番号

リンク表示文字が同じ場合に順番指定　

完全一致フラグ

Trueの時は完全に一致するものだけを （デフォルト：False）

戻値

TRUE

正常

FALSE

処理不能

プログラム実行例

楽天PointClubでランクと保有ポイント数を取得する

DIM IE = CREATEOLEOBJ("InternetExplorer.Application")
IE.Visible = TRUE
IE.Navigate("https://point.rakuten.co.jp/")
BusyWait(IE)

DIM elements

// ログインする
elements = IE.document.getElementsByClassName("name")

IFB elements.length = 0 THEN
	IELINK(IE, "ログイン")
	BusyWait(IE)
	IESETDATA(IE, READINI("楽天", "ID", "楽天.INI"), "u")		// ユーザID
	IESETDATA(IE, READINI("楽天", "PASS", "楽天.INI"), "p")		// パスワード
	IESETDATA(IE, TRUE, "submit")								// ログイン
	BusyWait(IE)
ENDIF

// ランク
elements = IE.document.getElementsByClassName("rank")
elements = elements.Item(0).getElementsByTagName("em")
PRINT elements.Item(0).innerText

// ポイント
elements = IE.document.getElementsByClassName("point-total")
elements = elements.Item(0).getElementsByTagName("dd")
PRINT elements.Item(0).innerText

IE.Quit

//////////////////////////////////////////////////
// 【引数】
//   IE : IEオブジェクト 
// 【戻値】
// 
//////////////////////////////////////////////////
PROCEDURE BusyWait(IE)
	TRY
		SLEEP(0.500)
		REPEAT
			SLEEP(0.010)
		UNTIL !IE.Busy AND IE.readyState = 4
	EXCEPT
		SLEEP(5.000)
	ENDTRY
FENDDIM IE = CREATEOLEOBJ("InternetExplorer.Application")
IE.Visible = TRUE
IE.Navigate("https://point.rakuten.co.jp/")
BusyWait(IE)

DIM elements

// ログインする
elements = IE.document.getElementsByClassName("name")

IFB elements.length = 0 THEN
	IELINK(IE, "ログイン")
	BusyWait(IE)
	IESETDATA(IE, READINI("楽天", "ID", "楽天.INI"), "u")		// ユーザID
	IESETDATA(IE, READINI("楽天", "PASS", "楽天.INI"), "p")		// パスワード
	IESETDATA(IE, TRUE, "submit")								// ログイン
	BusyWait(IE)
ENDIF

// ランク
elements = IE.document.getElementsByClassName("rank")
elements = elements.Item(0).getElementsByTagName("em")
PRINT elements.Item(0).innerText

// ポイント
elements = IE.document.getElementsByClassName("point-total")
elements = elements.Item(0).getElementsByTagName("dd")
PRINT elements.Item(0).innerText

IE.Quit

//////////////////////////////////////////////////
// 【引数】
//   IE : IEオブジェクト 
// 【戻値】
// 
//////////////////////////////////////////////////
PROCEDURE BusyWait(IE)
	TRY
		SLEEP(0.500)
		REPEAT
			SLEEP(0.010)
		UNTIL !IE.Busy AND IE.readyState = 4
	EXCEPT
		SLEEP(5.000)
	ENDTRY
FEND

	あなたは
	ゴールド会員
	です



	
総保有ポイント
	
559
<div class="rank">
	あなたは
	<em>ゴールド会員</em>
	です
</div>

<dl class="point-total">
	<dt>総保有ポイント</dt>
	<dd>559</dd>
</dl>

[楽天]
ID=info@example.com
PASS=***[楽天]
ID=info@example.com
PASS=***

結果

ゴールド会員
559