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