LOGO OA教程 ERP教程 模切知识交流 PMS教程 CRM教程 开发文档 其他文档  
 
网站管理员

vb中怎样用webbrowser控件获取和控制HTML中的控件

admin
2013年11月19日 8:48 本文热度 5250
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-2024 ClickSun All Rights Reserved