国产高清在线免费观看-国产高清在线免费无码-国产高清在线男人的天堂-国产高清在线视频-国产高清在线视频精品视频-国产高清在线视频伊甸园

LOGO OA教程 ERP教程 模切知識交流 PMS教程 CRM教程 開發文檔 其他文檔  
 
網站管理員

vb中怎樣用webbrowser控件獲取和控制HTML中的控件

admin
2013年11月19日 8:48 本文熱度 5908
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 編輯過
關鍵字查詢
相關文章
正在查詢...
點晴ERP是一款針對中小制造業的專業生產管理軟件系統,系統成熟度和易用性得到了國內大量中小企業的青睞。
點晴PMS碼頭管理系統主要針對港口碼頭集裝箱與散貨日常運作、調度、堆場、車隊、財務費用、相關報表等業務管理,結合碼頭的業務特點,圍繞調度、堆場作業而開發的。集技術的先進性、管理的有效性于一體,是物流碼頭及其他港口類企業的高效ERP管理信息系統。
點晴WMS倉儲管理系統提供了貨物產品管理,銷售管理,采購管理,倉儲管理,倉庫管理,保質期管理,貨位管理,庫位管理,生產管理,WMS管理系統,標簽打印,條形碼,二維碼管理,批號管理軟件。
點晴免費OA是一款軟件和通用服務都免費,不限功能、不限時間、不限用戶的免費OA協同辦公管理系統。
Copyright 2010-2025 ClickSun All Rights Reserved

主站蜘蛛池模板: 免费a级毛片在线播放不收费 | 色综合久久六月婷婷中文字幕 | 亚洲丰满熟妇在线播放电影全 | 国产AV人人妻人人爽 | 日产精品一二三四区气温 | 亚洲午夜精品毛片成人播放 | 亚洲日本强伦姧一区二区 | 精品欧美一区二区精品久久 | 工口里番外番全彩无遮挡 | 污污又黄又爽免费的网站 | 免费又粗又硬进去好爽A片视频 | 97精品国产一区二区三区 | 免费无码aⅴ免费中文字幕 免费人妻精品一区二区三区 | 麻豆精品在线观看 | 色欲AV亚洲精品一区二区 | 欧美日韩国产一区二区三区ai | 国产区视频在线观看 | 久久精品国产亚洲av麻豆欧 | 亚洲国产精品成人精品软件 | 国产白袜脚足j棉袜在线观看 | 91午夜精品亚洲一区二区三区 | 成人免费无遮挡在线播放 | 无码中文av有码中文av | 午夜一区欧美二区高清三区 | 亚洲精品中文字幕不卡在线 | 亚洲国产精品一区二区在线观看尤物 | 爆乳少妇在办公室在线观看 | 中文国产成人久久精品流白浆 | 国产色情A久久无码影 | 欧美日韩精品久久久免费 | 美女强奷到抽搐在线播放 | 色五月激情五月 | 一区二区三区视频观看免费网站 | 91精品一区国产高清在线 | 伊人久久亚洲精品一区 | 国产三级三级在线观看 | 亚洲国产不卡顿免费无码看av | 最新国产自产精品视频 | 亚洲国产成人不卡在线播放 | 国产在线看不卡一区二区 | 麻豆国产13p|