"本人需要从一个网页获取内容（例如：用户名，电话，地址等），然后再把这些内容填写到另一个页面， 朋友推荐用VB做个小程序，研究了3天后还是毫无头绪。

Question

"本人需要从一个网页获取内容（例如：用户名，电话，地址等），然后再把这些内容填写到另一个页面， 朋友推荐用VB做个小程序，研究了3天后还是毫无头绪。

 

Answer 1

从一个网页抓取内容然后填充到另外一个网页，您可以尝试使用WebClient写小偷程序来实现，具体的请参考下述代码：
Imports System.net
Imports 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=""", "href=""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

关于小偷程序的详细示例，请参考下述文章：http://blog.csdn.net/n4ry/archive/2006/04/29/696820.aspx

Answer 2

似乎只回答了问题的一半，没有告诉我如何抓取网页上的数据