大橙子网站建设,新征程启航
为企业提供网站建设、域名注册、服务器等服务
在你的工程中引用Microsoft Script Control 1.0 这个COM组件(注意是COM的,不要到.net组件里去找)
创新互联主营如皋网站建设的网络公司,主营网站建设方案,成都App制作,如皋h5微信小程序搭建,如皋网站营销推广欢迎如皋等地区企业咨询
然后用下面的方法执行JavaScript:
Dim sc As New MSScriptControl.ScriptControl
sc.Language = "JavaScript" '设置语言种类
sc.AddCode("function TestFunc(){return 'Hello world!'}") '添加脚本代码
MsgBox(sc.Run("TestFunc")) '显示一下那段脚本的返回值(这里你将看到Hello world!字符)
虽然这个人的回答出来了但是没有解决你的问题,以上是我补充的如何使用脚本。
我将你的上面的html代码复制到一个test.html文件中
html
head
titleTest 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("{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
先读取节点Match,然后读取节点内的各个属性值。 再进行节点中的子节点SetSetName的读取,读取方式也是直接读取各个属性值。