大橙子网站建设,新征程启航
为企业提供网站建设、域名注册、服务器等服务
在你的工程中引用Microsoft Script Control 1.0 这个COM组件(注意是COM的,不要到.net组件里去找)
为望都等地区用户提供了全套网页设计制作服务,及望都网站建设行业解决方案。主营业务为成都做网站、成都网站制作、望都网站设计,以传统方式定制建设网站,并提供域名空间备案等一条龙服务,秉承以专业、用心的态度为用户提供真诚的服务。我们深信只要达到每一位用户的要求,就会得到认可,从而选择与我们长期合作。这样,我们也可以走得更远!
然后用下面的方法执行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
For Each h_e As HtmlElement In WebBrowser1.Document.GetElementsByTagName("Value")
h_e.OuterText = "修改后的值"
Next
是执行button的click事件吗?不过要知道button的id才可以。
webbrowser1.Document.GetElementById(button的id).InvokeMember("click");