07/05/06 23:12:59 LdZaxQzq0
>>55
続き。
CODES = ""
FOR KAISU = 1 TO 25
START = POS("arrow_up.gif", GETSTR(0), KAISU)
IF START = 0 THEN BREAK // 以下>>52の処理…
CODETEMP = COPY(GETSTR(0), START, 200) // 矢印位置から200文字を切り出し(矢印込)
SLEEP(1)
CODESTART = POS("s=", CODETEMP, 0) + 2 // その中からコード部分を検索(先頭オフセット2文字)
IF CODESTART = 2 THEN BREAK
CODEEND = 4
CODE = COPY(CODETEMP, CODESTART, CODEEND) // 株式コードを切り出し
CODES = CODES + CODE + "," // コード列作成。コンマが多いけど動いてるから…OK！
FUKIDASI("CODES=" + CODES + "<#CR>" + CODETEMP, 10, 10, 0, 18)
NEXT
// PRINT CODES
IE = CREATEOLEOBJ("InternetExplorer.Application") // IE起動開始 ---
IE.visible = True
IE.navigate("URLﾘﾝｸ(quote.yahoo.co.jp) + CODES) // 上矢印以外が混ざってるのは情報鮮度の為ｶﾅ