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