09/02/10 18:43:10 HCMc1CKn0
>>875
配列を使うやつ
DIM リンク[]="ダミーデータ"
IE = CREATEOLEOBJ("InternetExplorer.Application")
IE.visible = True
IE.navigate("URLﾘﾝｸ(www.yahoo.co.jp)<)●●[A]", IE.document.links[A].href) > 0 Then
リンク[length(リンク) - 1] = IE.document.links[A].href
resize(リンク, length(リンク))
ENDIF
NEXT
KAISU = length(リンク) - 1 // 配列の最後尾は空欄
FOR A = 0 TO (KAISU - 1)
IE.navigate(リンク[A])
REPEAT
SLEEP(0.1)
UNTIL !IE.BUSY AND IE.READYSTATE = 4
NEXT
IE.QUIT