VB.NET 如何獲取網(wǎng)頁(yè)中的數(shù)據(jù)

Public Function webCaptureContent(ByVal mWebsiteUrl As String, ByVal mWebsiteType As Boolean) As String

我們提供的服務(wù)有：成都網(wǎng)站建設(shè)、網(wǎng)站建設(shè)、微信公眾號(hào)開(kāi)發(fā)、網(wǎng)站優(yōu)化、網(wǎng)站認(rèn)證、保亭黎族ssl等。為成百上千企事業(yè)單位解決了網(wǎng)站和推廣的問(wèn)題。提供周到的售前咨詢和貼心的售后服務(wù)，是有科學(xué)管理、有技術(shù)的保亭黎族網(wǎng)站制作公司

'啟動(dòng)一次具體的數(shù)據(jù)采集工作,返回采集到的HTML內(nèi)容:要求必須輸入帶://的全地址數(shù)據(jù)

On Error Resume Next

Dim Str_WebContent As String = "請(qǐng)輸入查找網(wǎng)站地址."

Dim wb As WebClient = New WebClient() '//創(chuàng)建一個(gè)WebClient實(shí)例

If mWebsiteUrl.IndexOf("://") 0 Then

'//獲取或設(shè)置用于對(duì)向 Internet 資源的請(qǐng)求進(jìn)行身份驗(yàn)證的網(wǎng)絡(luò)憑據(jù)。（可有可無(wú)）

wb.Credentials = CredentialCache.DefaultCredentials

'//從資源下載數(shù)據(jù)并返回字節(jié)數(shù)組。（加@是因?yàn)榫W(wǎng)址中間有"/"符號(hào)）

Dim pagedata As Object = wb.DownloadData(mWebsiteUrl)

'//轉(zhuǎn)換字符

If mWebsiteType Then

Str_WebContent = Encoding.Default.GetString(pagedata)

Else

Str_WebContent = Encoding.UTF8.GetString(pagedata)

End If

End If

Return Str_WebContent '提取出來(lái)新聞內(nèi)容,刪除Body前后的多余內(nèi)容,同時(shí)補(bǔ)充上該 Body標(biāo)記,形成完整的內(nèi)容 Str_WebContent '

End Function

vb.net中怎樣將搜索內(nèi)容顯示在另一頁(yè)面上?拜托了各位 謝謝

asp 或 asp.net 中使用 response 的重定向方法把參數(shù)丟出去,如: Response.Redirect("target.aspx?search=" + Textbox1.Text ) 接收的頁(yè)面: Dim search As String = Request("search") 既然是做頁(yè)面的,基本的 javascript 還是需要知道的,用javascript 做交互比較方便.服務(wù)端負(fù)擔(dān)會(huì)小些. 直接window.location = "target.aspx?search=value" 就行了.

麻煩采納，謝謝!

如何用VB.net采集網(wǎng)頁(yè)信息？

我前兩天剛做過(guò)類(lèi)似的事情，down了一個(gè)網(wǎng)站的產(chǎn)品庫(kù)到數(shù)據(jù)庫(kù)里。

第一步：把所有頁(yè)面下載到本地

第二步：分析頁(yè)面結(jié)構(gòu)

第三步：通過(guò)正則表達(dá)式不斷去掉沒(méi)用的內(nèi)容，找到規(guī)律做成2緯數(shù)組

第四步：當(dāng)有二維數(shù)組的時(shí)候，就什么都有了。