IE = CREATEOLEOBJ("InternetExplorer.Application")
IE.Visible = TRUE
IE.navigate("http://www.confrage.com/uwsc/index.html")
REPEAT
SLEEP(0.1)
UNTIL (!IE.Busy) AND (IE.ReadyState = 4)
// 画像一覧を取得
IMG_LST = IE.Document.Images
// 画像一覧の中からalt属性が一致する画像をクリックする
FOR I = 0 TO IMG_LST.length - 1
IMG_ALT = "UWSCのことならCONFRAGEへ!"
// 画像一覧からalt属性でヒットする
IFB IMG_LST.Item(I).Alt = IMG_ALT THEN
// 次ページに遷移する。
MSGBOX("ページ遷移します。")
IMG_LST.Item(I).Click()
ENDIF
NEXT