مقارنة بين اثنين من برامج اللص

الدالة GetURL(url)Set Retrieval = CreateObject(Microsoft.XMLHTTP)With Retrieval.Open GET, url, False.SendGetURL = bytes2bstr(.responsebody)'التحقق من المعلومات التي تم الحصول عليها إذا كان طول المعلومات أقل من 100، فسيفشل الاعتراض إذا len( .responsebody)<100 ثمresponse.write احصل على الملف البعيد<a href=&url& فشل الهدف=_blank>&url&</a>. Response.endend ifEnd WithSet Retrieval = NothingEnd Function' ثنائي إلى سلسلة، وإلا ستظهر أحرف مشوهة! الدالة bytes2bstr(vin)strreturn = for i = 1 إلى lenb(vin)thischarcode = ascb(midb(vin,i,1))if thischarcode < &h80 ثمstrreturn = strreturn & chr(thischarcode)elsenextcharcode = ascb(midb(vin,i ) +1,1))strreturn = strreturn & chr(clng(thischarcode) * &h100 + سينت(nextcharcode))i = i + 1end ifnextbytes2bstr = وظيفة strreturnend savetofile(bodyall,filename)dim objstream1set objstream1=createobject(adodb.stream)objstream1.type=2objstream1.openobjstream1.position=objstream1.sizeobjstream1.writetext bodyallobjstream1.savetofile filename,2objstream1. Closeset objstream1=nothingend function' تعلن عن تنسيق الاعتراض، بدءًا من البداية وتنتهي عند الوظيفة الأخيرة GetKey(HTML,Start,Last)filearray=split(HTML,Start)filearray2=split(filearray(1), Last) GetKey=filearray2(0)End Functionurl=http://www.86516.comHtml = GetURL(Url)savetofilehtml,ce.htm

النوع الثاني:

</P><P>وظيفة gethttppage(url)dim httpsset http=createobject(MICROSOFT.XMLHTTP)http.open GET,url,falsehttp.send()if http.readystate<>4 ثم إنهاء الوظيفة ifgethttppage=bytestostr(http.responseBody ,GB2312) إذا كان err.number<>0 ثم وظيفة err.clearend</P><P>الوظيفة bytestostr(body,cset)dim objstreamset objstream=createobject(adodb.stream)objstream.type=1objstream.mode=3objstream.openobjstream.write bodyobjstream.position=0objstream.type=2objstream.charset=csetbytestostr=objstream.readtextobjstream. Closeset objstream= وظيفة لا شيء نهاية</P><P>وظيفة savetofile(bodyall,filename)dim objstream1set objstream1=createobject(adodb.stream)objstream1.type=2objstream1.openobjstream1.position=objstream1.sizeobjstream1.writetext bodyallobjstream1.savetofile filename,2objstream1. Closeset objstream1=nothingend function</P><P> خافت url,httpurl=http://www.86516.comhtml=gethttppage(url)'msgbox htmlsavefilename=index1.htmsavetofile html,savefilename</P><P>