vb中怎样用webbrowser控件获取和控制HTML中的控件
|
admin
2013年11月19日 8:48
本文热度 5111
|
set objdoc = webbrowser1.document [br] objdoc.getelementsbytagname("input")(0).value = name [br] objdoc.getelementsbytagname("input")(1).value = password [br] objdoc.getelementsbyname("ok")(0).click [br][br][br]这样就可以获取源码中的控件和模拟点击提交按钮
该文章在 2013/11/19 8:48:33 编辑过
| |
全部评论1 |
|
admin
2013年11月19日 9:15
動態改變webbrowser的內容，斷行的字無法改變，功能無
下面可以動態改變webbrowser的內容
1.處理方式一產生的問題
如果字串有斷行就無法修改了例如
"我的書
集收藏"
""<-- 內的是一整句
2.處理方式二產生的問題
執行後可以取代所有文字含連結也可以修改
但 原來的 js 或者是 script 的一部分功能無法使用了
請問有高手知道我的問題要如解決嗎？
還是我方法錯了可以指導我一下嗎？
'程式碼
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Me.WebBrowser1.Url = New System.Uri("http://www.csdn.net", System.UriKind.Absolute)
End Sub
處理方式一：
Private Sub WebCompleted(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
test()
End Sub
Private Sub test()
Dim htmlDoc As HtmlDocument = WebBrowser1.Document
'遍曆HtmlElement對象
For Each htmlEle As HtmlElement In htmlDoc.All
With htmlEle
Try
'檢查目前元素的純文字
Select Case .OuterText
Case "我的簡曆"
'根據需要取代掉
.OuterHtml = .OuterHtml.Replace("我", "你")
Case "我的帖子"
.OuterHtml = .OuterHtml.Replace("我", "你")
Case "我的Blog"
.OuterHtml = .OuterHtml.Replace("我", "你")
Case "我的網摘"
.OuterHtml = .OuterHtml.Replace("我", "你")
Case "我的書架"
.OuterHtml = .OuterHtml.Replace("我", "你")
Case "我的資源"
.OuterHtml = .OuterHtml.Replace("我", "你")
Case Else
End Select
Catch ex As Exception
MsgBox(ex.Message)
End Try
End With
Next
End Sub
處理方式二：
Private Sub WebCompleted(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
test()
End Sub
Private Sub test()
Dim htmlDoc As HtmlDocument = WebBrowser1.Document
'遍曆HtmlElement對象
For Each htmlEle As HtmlElement In htmlDoc.All
With htmlEle
Try
'檢查目前元素的純文字
strHtml = .OuterHtml
intWord = -1
Do While intWord <= UBound("目標文字陣列")
intWord += 1
strHtml = strHtml.Replace("目標文字","取代文字")
Loop
.OuterHtml = strHtml
Catch ex As Exception
MsgBox(ex.Message)
End Try
End With
Next
End Sub
不好意思
這個問題己經處理了
方法是過瀘掉 js 就可以了 ^^"
该评论在 2013/11/19 9:15:06 编辑过
|
400 186 1886
