以文本方式查看主题 - 肿瘤咨询在线论坛 (http://www.chinaonco.net/dvbbs/index.asp) -- 『 电脑网络 』 (http://www.chinaonco.net/dvbbs/list.asp?boardid=55) ---- 手把手教你写小偷程序 (http://www.chinaonco.net/dvbbs/dispbbs.asp?boardid=55&id=1623) |
-- 作者:管理员 -- 发布时间:2004-2-22 18:43:38 -- 手把手教你写小偷程序 手把手教你写小偷程序 作者:未知 来源:网络 日期:2003-12-23 点击:691
先选中一个你想 “偷” 的网页程序。。。
我这里看中了它。。呵呵 。。。很多妹妹图片。。。口水中。。 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的地方在他前面直接替换网址多方便呵呵。。 在写这段代码。。程序就完了呵呵 <%baseurl1="http://www.linkmm.com/photo";; SourceCode =replace(sourcecode,"src=""img/","src=""http://www.linkmm.com/photo/img/";;) SourceCode =replace(sourcecode,"new.gif",baseurl1&"/new.gif") SourceCode =replace(sourcecode,"href=""photo888","href=""http://www.linkmm.com/photo/photo888";;) SourceCode =replace(sourcecode,"site.css","http://www.linkmm.com/photo/site.css";;) response.write SourceCode%> 是不是很简单啊。完整代码如下: <html> <head> <meta name="GENERATOR" content="Microsoft FrontPage 5.0"> <meta name="ProgId" content="FrontPage.Editor.Document"> <meta http-equiv="Content-Type" content="text/html; charset=gb2312"> <meta http-equiv="refresh" content="3600"> <title></title> </head> <body> <% 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) baseurl1="http://www.linkmm.com/photo";; SourceCode =replace(sourcecode,"src=""img/","src=""http://www.linkmm.com/photo/img/";;) SourceCode =replace(sourcecode,"new.gif",baseurl1&"/new.gif") SourceCode =replace(sourcecode,"href=""photo888","href=""http://www.linkmm.com/photo/photo888";;) SourceCode =replace(sourcecode,"site.css","http://www.linkmm.com/photo/site.css";;) response.write SourceCode %> </body> </html> |