Comparison of two thief programs page 2/2

function gethttppage(url)dim httpset http=createobject("") "GET",url,()if http.readystate4 thenexit functionend ifgethttppage=bytestostr(,"GB2312")if err.number0 then function

function bytestostr(body,cset)dim objstreamset objstream=createobject("")== ===csetbytestostr= objstream=nothingend function

function savetofile(bodyall,filename)dim objstream1set objstream1=createobject("")=2objstream1.=objstream1. filename, objstream1=nothingend function

dim url,httpurl="http://"html=gethttppage(url)'msgbox htmlsavefilename=""savetofile html,savefilename