日韩欧美人妻无码精品白浆,www.大香蕉久久网,狠狠的日狠狠的操,日本好好热在线观看

動態(tài)改變webbrowser的內(nèi)容，斷行的字無法改變，功能無 下面可以動態(tài)改變webbrowser的內(nèi)容 1.處理方式一產(chǎn)生的問題 如果字串有斷行就無法修改了例如 "我的書 集收藏" ""<-- 內(nèi)的是一整句 2.處理方式二產(chǎn)生的問題 執(zhí)行後可以取代所有文字含連結(jié)也可以修改 但 原來的 js 或者是 script 的一部分功能無法使用了 請問有高手知道我的問題要如解決嗎？ 還是我方法錯了可以指導(dǎo)我一下嗎？ '程式碼 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 "我的簡曆" '根據(jù)需要取代掉 .OuterHtml = .OuterHtml.Replace("我", "你") Case "我的帖子" .OuterHtml = .OuterHtml.Replace("我", "你") Case "我的Blog" .OuterHtml = .OuterHtml.Replace("我", "你") Case "我的網(wǎng)摘" .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("目標(biāo)文字陣列") intWord += 1 strHtml = strHtml.Replace("目標(biāo)文字","取代文字") Loop .OuterHtml = strHtml Catch ex As Exception MsgBox(ex.Message) End Try End With Next End Sub 不好意思 這個問題己經(jīng)處理了 方法是過瀘掉 js 就可以了 ^^"