摘要：
以前写过一个网页小偷程序，是ASP版的我以前写过一个网页小偷程序，这是一个ASP版本http://aowind.cnblogs.com/archive/2005/07/16/193858.html请参阅今天的WEBCENT。net，尝试了它的方法，发现它非常有用，并使用它更改为以前的ASP版本的web小偷，用ASP编写。网络版，嘿嘿！导入System.netImportsSystem.ioPublicClassWebForm1Clas
http://aowind.cnblogs.com/archive/2005/07/16/193858.html
今天看到.net里的WEBCLIENT，试试了它的方法等，发现很好用，就用它改成了以前ASP版的网页小偷，写成ASP.net版的了，嘿嘿！
Imports System.netImports System.io
Public Class WebForm1Class WebForm1
Inherits System.Web.UI.Page Public web As New WebClient
Private Sub Page_Load()Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load '读网页源文件先 If Session("aaa") = "" Then Dim str As Stream str = web.OpenRead("http://www.023ehouse.com") Dim read As New StreamReader(str, System.Text.Encoding.GetEncoding("GB2312")) Dim html As String = read.ReadToEnd() '接下来当然是分析源文件，提出自己要用的了 Dim aaa, bbb, ccc '这里定义的都是用来处理结果的，要把中间自己要用的新闻给截取出来 aaa = CStr(html) bbb = Split(aaa, "<div id=""onlinemb_05"">") aaa = bbb(1) ccc = Split(bbb(1), "</div>") aaa = ccc(0) '这里是把新闻地址转到自己的新闻显示页面，把本来的新闻地址当参数传给页面 aaa = Replace(aaa, "href="http://www.youmatou.com/211003.html"", "href="http://www.youmatou.com/211003.html"newsshow.asp?url=http://www.023ehouse.com/") aaa = Replace(aaa, "target=""_blank""", "") '这里就是写session了 Session("aaa") = aaa End If '最后把处理好的输出 Response.Write(Session("aaa"))
End Sub
End Class