VB.net webBrowser控件获取如何获取下面这网页元素的值
<inputname="txtCSRQ"class="textbox"id="txtCSRQ"type="text"readonly="readonly"dateform...
<input name="txtCSRQ" class="textbox" id="txtCSRQ" type="text" readonly="readonly" dateformat="ymd" value="1993-05-10"/>
展开
展开全部
我将你的上面的html代码复制到一个test.html文件中
<html>
<head>
<title>Test 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值，实现代码如下：
' 此方法为Form1的加载事件
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
' 加载本地文档test.html
WebBrowser1.Url = New Uri(String.Format("file:///{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
<html>
<head>
<title>Test 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值，实现代码如下：
' 此方法为Form1的加载事件
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
' 加载本地文档test.html
WebBrowser1.Url = New Uri(String.Format("file:///{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
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
For Each a In WebBrowser1.Document.getElementsByTagName("input")
Select Case a.Name
Case "txtCSRQ"
Text1.Text = a.Value
End Select
Next
在VB6.0下用此方法可以得到value的值 1993-05-10，VB.net的话没用过，转换一下应该可以的。
希望可以帮到你，满意请采纳，有问题请追问^_^
Select Case a.Name
Case "txtCSRQ"
Text1.Text = a.Value
End Select
Next
在VB6.0下用此方法可以得到value的值 1993-05-10，VB.net的话没用过，转换一下应该可以的。
希望可以帮到你，满意请采纳，有问题请追问^_^
本回答被提问者和网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
正则表达式=。=
\<input\sname=\"(?<name>.+?)\".+value=\"(?<value>.+)\"\/\>
没测试，差不多这样吧
只是获取这个就用webBrowser有点浪费
\<input\sname=\"(?<name>.+?)\".+value=\"(?<value>.+)\"\/\>
没测试，差不多这样吧
只是获取这个就用webBrowser有点浪费
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
更多回答（1）
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
