自動化ツールuwsc使いよ集まれ3

自動化ツールuwsc使いよ集まれ3 at SOFTWARE

878:名無しさん＠お腹いっぱい。
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

次ページ

続きを表示

1を表示