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

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

63:58
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

次ページ

続きを表示

1を表示