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

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

187:名無しさん＠お腹いっぱい。
06/10/25 17:30:02 PamjFPFo0
画像を使う必要があるのか?

OPTION　EXPLICIT

DIM　url,　ieobj

url　=　"ｽﾚﾘﾝｸ(software板)"
ieobj　=　CREATEOLEOBJ("InternetExplorer.Application")
ieobj.Visible　=　True
ieobj.Navigate(url)
wait(ieobj)

WHILE　1
　　DIM　i

　　FOR　i=0　TO　ieobj.document.links.length-1
　　　　IFB　ieobj.document.links[i].innerText　=　"新着レスの表示"　THEN
　　　　　　ieobj.document.location　=　ieobj.document.links[i].href
　　　　ENDIF
　　NEXT
　　SLEEP(3)
　　wait(ieobj)
WEND

PROCEDURE　wait(obj)
　　REPEAT
　　　　SLEEP(0.1)
　　UNTIL　!(obj.busy)　AND　(obj.readyState　=　4)
FEND

次ページ

続きを表示

1を表示