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