正在浏览栏目导航：首页 > 操作系统 > windows > windows 2000

手把手教你写小偷程序

时间:2006-12-21 16:37:30 来源: 作者:rufeng_1984 点击:次出处:技术无忧

关键字：手把

选中一个你想 “偷” 的网页程序。。。
我这里看中了它。。呵呵。。。很多妹妹图片。。。口水中。。
http://www.linkmm.com/photo/ads2.html
然后建立个ASP网页，先把以下代码复制进去
<%Function bytes2BSTR(vIn)
strReturn = ""
For i = 1 To LenB(vIn)
ThisCharCode = AscB(MidB(vIn,i,1))
If ThisCharCode < &H80 Then
strReturn = strReturn & Chr(ThisCharCode)
Else
NextCharCode = AscB(MidB(vIn,i+1,1))
strReturn = strReturn & Chr (CLng(ThisCharCode) * &H100 + CInt(NextCharCode))
i = i + 1
End If
Next
bytes2BSTR = strReturn
End Function

Url = "http://www.linkmm.com/photo/ads2.html";;
set oSend=createobject("Microsoft.XMLHTTP"
SourceCode = oSend.open ("GET",url,false)
oSend.send()
if err.number<>0 then
Response.write err.description
Response.End()
end if
SourceCode = bytes2BSTR(oSend.responseBody)%>

其中Url = "http://www.linkmm.com/photo/ads2.html";;就是你想要偷的网页，换成你需要的就可以了。。
这个时候response.write 一下。。是不是很多图片看不见啊。。不急，我们有replace呢。。把你现在的网页查看下原文件，，把原来的网页查看下愿文件对比下就知道怎么让这些无法显示的显示出来。。。比起那些一个个replace替换图片的方法
用这个方法好多了就是在有src的地方在他前面直接替换…………

※ 来源: 中关村网友社区 http://www.newzgc.com

本文引用自ＰＣ５１.ＮＥＴ