vb怎么獲取網(wǎng)頁中的每個元素內(nèi)容

如果這個元素有：ID,Name或TagName，那就最簡單不過，

成都創(chuàng)新互聯(lián)服務(wù)項目包括閻良網(wǎng)站建設(shè)、閻良網(wǎng)站制作、閻良網(wǎng)頁制作以及閻良網(wǎng)絡(luò)營銷策劃等。多年來，我們專注于互聯(lián)網(wǎng)行業(yè)，利用自身積累的技術(shù)優(yōu)勢、行業(yè)經(jīng)驗、深度合作伙伴關(guān)系等，向廣大中小型企業(yè)、政府機構(gòu)等提供互聯(lián)網(wǎng)行業(yè)的解決方案，閻良網(wǎng)站推廣取得了明顯的社會效益與經(jīng)濟效益。目前，我們服務(wù)的客戶以成都為中心已經(jīng)輻射到閻良省份的部分城市，未來相信會繼續(xù)擴大服務(wù)區(qū)域并繼續(xù)獲得客戶的支持與信任！

GetElementByID或相應(yīng)的函數(shù)就能得到，得到之后，你需要用這個元素的InnerHtml屬性等來獲取該元素的內(nèi)容。

如果這個元素沒有對應(yīng)的能直接找到它的ID等，你就需要根據(jù)它的類型，比較準(zhǔn)確的不變的內(nèi)容來判斷是不是你要的元素，這需要配合VB的TypeName函數(shù)或元素的ClassName屬性，以及InnerHtml或InnerText等屬性來判斷，你可以遍歷網(wǎng)頁的所有元素來查找，哪個是你需要的元素，然后在對其操作。

如果你還不明白，把你的問題具體寫出來，網(wǎng)頁內(nèi)容你需要處理的部分寫出來，然后你用什么類或控件來處理網(wǎng)頁內(nèi)容，這都需要寫出來，我們才能幫你，而且這不是個簡單的問題。需要很復(fù)雜的過程。所以，你把你的需求和環(huán)境寫的越明白，我能幫到你的地方就越多。

在vs2010中用VB，采用遍歷如何獲取大批前臺Textbox控件text的值？

Dim ctl As Control, AA As String

For Each ctl In Form1.Controls

If TypeOf ctl Is TextBox Then AA = AA + " " + ctl.Text

Label1.Caption = AA

Next ctl

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

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)建一個WebClient實例

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

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

wb.Credentials = CredentialCache.DefaultCredentials

'//從資源下載數(shù)據(jù)并返回字節(jié)數(shù)組。（加@是因為網(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)容,同時補充上該 Body標(biāo)記,形成完整的內(nèi)容 Str_WebContent '

End Function

VB.net webBrowser控件獲取如何獲取下面這網(wǎng)頁元素的值

我將你的上面的html代碼復(fù)制到一個test.html文件中

html

head

titleTest Page/title

/head

body

input name="txtCSRQ" class="textbox" id="txtCSRQ" type="text" readonly="readonly" value="1993-05-10"/

/body

/html

然后在vb.net的webbrowser中加載這個test.html，加載完畢后點擊一個按鈕獲取input的value值，實現(xiàn)代碼如下：

' 此方法為Form1的加載事件

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

' 加載本地文檔test.html

WebBrowser1.Url = New Uri(String.Format("{0}/test.html", Application.StartupPath))

' 文檔沒有加載完畢之前將按鈕禁用

Button1.Enabled = False

End Sub

' 此方法為Button1的Click事件

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

Dim doc As HtmlDocument = WebBrowser1.Document

' 查找ID為txtCSRQ的元素

Dim element As HtmlElement = doc.GetElementById("txtCSRQ")

' 如果找到了改元素

If element IsNot Nothing Then

' 顯示該元素的值

MessageBox.Show(element.GetAttribute("value"))

End If

End Sub

' 此方法為WebBrowser的DocomentCompleted事件

Private Sub WebBrowser1_DocumentCompleted(sender As Object, e As WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted

' 文檔test.html加載完畢后，使按鈕可用

Button1.Enabled = True

End Sub