Imports System.Net
創(chuàng)新互聯(lián)網(wǎng)站建設(shè)公司一直秉承“誠信做人,踏實(shí)做事”的原則,不欺瞞客戶,是我們最起碼的底線! 以服務(wù)為基礎(chǔ),以質(zhì)量求生存,以技術(shù)求發(fā)展,成交一個(gè)客戶多一個(gè)朋友!專注中小微企業(yè)官網(wǎng)定制,網(wǎng)站建設(shè)、做網(wǎng)站,塑造企業(yè)網(wǎng)絡(luò)形象打造互聯(lián)網(wǎng)企業(yè)效應(yīng)。
Imports System.IO
Imports System.Text.RegularExpressions
Public Class Form1
Private Sub button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim stream As IO.Stream = WebRequest.Create(UrlAdress).GetResponse().GetResponseStream()
'注意urladress為你上面的網(wǎng)頁地址。
Dim sr As StreamReader = New StreamReader(stream, System.Text.Encoding.UTF8)
Label1.Text = Regex.Match(sr.ReadToEnd, "回答采納率").ToString
'sr。readtoend讀取網(wǎng)頁流到末尾,即使用正則表達(dá)式從網(wǎng)頁流中提取“回答采納率”,賦值給Label1.Text ‘沒有則為空
sr.Dispose() '關(guān)閉流
End Sub'要提取什么東西用正則表達(dá)式最好
End Class
.NET 提供了一個(gè)運(yùn)行庫叫mshtml,在.NET 2.0中提供了WebBrowser組建,提供了一般網(wǎng)頁的訪問,其中有強(qiáng)制類型化的Document屬性,為網(wǎng)頁的整個(gè)節(jié)點(diǎn)結(jié)構(gòu)提供的良好的訪問方式。
目前.NET 2.0正式版已經(jīng)發(fā)布;
;displaylang=zh-cn
使用webbrowser控件來加載網(wǎng)頁,然后再 Private Sub WebBrowser1_DocumentCompleted下通過使用WebBrowser1.Document.Body.InnerHtml 來獲取網(wǎng)頁的源代碼,或使用 WebBrowser1.Document.Body.InnerText來獲取網(wǎng)頁中的文本。之后可以通過字符串控制指令或者正則表達(dá)式來精確獲取到你所需的數(shù)據(jù)。
只用python就行了啊。vs和pycharm都算是編輯器沒什么關(guān)系啊,就是用記事本編輯也行哦。那就用pycharm吧,大家都吹噓它好用。
就是用python的urllib模塊請求網(wǎng)頁就可以了。
登錄就是post數(shù)據(jù),然后獲得cookie(可能還有一下其他的東西),帶著它就可以做一些評論。
評論就是根據(jù)按鈕找到相關(guān)的網(wǎng)頁鏈接,向它post/get數(shù)據(jù)。
評論采集就是請求相關(guān)的網(wǎng)頁,獲得評論的數(shù)據(jù),可能是html或者json之類的,然后用beautifulsoup或者json分析,獲得格式化后的數(shù)據(jù)。
以前用Python做過一個(gè)空間的自動點(diǎn)贊、自動回復(fù)說說留言、獲取留言的程序。
只要就是分析鏈接和js腳本費(fèi)點(diǎn)時(shí)間。其他地方都簡單。
Public Function webCaptureContent(ByVal mWebsiteUrl As String, ByVal mWebsiteType As Boolean) As String
'啟動一次具體的數(shù)據(jù)采集工作,返回采集到的HTML內(nèi)容:要求必須輸入帶://的全地址數(shù)據(jù)
On Error Resume Next
Dim Str_WebContent As String = "請輸入查找網(wǎng)站地址."
Dim wb As WebClient = New WebClient() '//創(chuàng)建一個(gè)WebClient實(shí)例
If mWebsiteUrl.IndexOf("://") 0 Then
'//獲取或設(shè)置用于對向 Internet 資源的請求進(jìn)行身份驗(yàn)證的網(wǎng)絡(luò)憑據(jù)。(可有可無)
wb.Credentials = CredentialCache.DefaultCredentials
'//從資源下載數(shù)據(jù)并返回字節(jié)數(shù)組。(加@是因?yàn)榫W(wǎng)址中間有"/"符號)
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 '提取出來新聞內(nèi)容,刪除Body前后的多余內(nèi)容,同時(shí)補(bǔ)充上該 Body標(biāo)記,形成完整的內(nèi)容 Str_WebContent '
End Function
當(dāng)前標(biāo)題:vb.net解析網(wǎng)頁 vb net
文章地址:http://muchs.cn/article46/docsdhg.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供、網(wǎng)站營銷、商城網(wǎng)站、建站公司、移動網(wǎng)站建設(shè)、關(guān)鍵詞優(yōu)化
聲明:本網(wǎng)站發(fā)布的內(nèi)容(圖片、視頻和文字)以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主,如果涉及侵權(quán)請盡快告知,我們將會在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場,如需處理請聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載,或轉(zhuǎn)載時(shí)需注明來源: 創(chuàng)新互聯(lián)