06/10/06 12:03:22 kld74IFI0
saveHTMLTo("URLﾘﾝｸ(www.yahoo.co.jp",) "yahoo.htm");
procedure saveHTMLTo(url, filePath)
e = CREATEOLEOBJ("InternetExplorer.Application");
e.navigate(url);
while e.busy = true or e.readyState <> 4; SLEEP(0.1); wend
fileOutHTMLTo(e.document.parentWindow.document, filePath);
fend
procedure fileOutHTMLTo(document, filePath)
fileID = FOPEN(filePath, F_WRITE);
ifb fileID <> -1 then
FPUT(fileID, document.body.parentElement.outerHTML);
FCLOSE(fileID);
endif
fend