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