在你的工程中引用Microsoft Script Control 1.0 這個(gè)COM組件(注意是COM的,不要到.net組件里去找)

為望都等地區(qū)用戶提供了全套網(wǎng)頁設(shè)計(jì)制作服務(wù),及望都網(wǎng)站建設(shè)行業(yè)解決方案。主營業(yè)務(wù)為成都做網(wǎng)站、成都網(wǎng)站制作、望都網(wǎng)站設(shè)計(jì),以傳統(tǒng)方式定制建設(shè)網(wǎng)站,并提供域名空間備案等一條龍服務(wù),秉承以專業(yè)、用心的態(tài)度為用戶提供真誠的服務(wù)。我們深信只要達(dá)到每一位用戶的要求,就會(huì)得到認(rèn)可,從而選擇與我們長期合作。這樣,我們也可以走得更遠(yuǎn)!
然后用下面的方法執(zhí)行JavaScript:
Dim sc As New MSScriptControl.ScriptControl
sc.Language = "JavaScript" '設(shè)置語言種類
sc.AddCode("function TestFunc(){return 'Hello world!'}") '添加腳本代碼
MsgBox(sc.Run("TestFunc")) '顯示一下那段腳本的返回值(這里你將看到Hello world!字符)
雖然這個(gè)人的回答出來了但是沒有解決你的問題,以上是我補(bǔ)充的如何使用腳本。
我將你的上面的html代碼復(fù)制到一個(gè)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中加載這個(gè)test.html,加載完畢后點(diǎn)擊一個(gè)按鈕獲取input的value值,實(shí)現(xiàn)代碼如下:
' 此方法為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
是執(zhí)行button的click事件嗎?不過要知道button的id才可以。
webbrowser1.Document.GetElementById(button的id).InvokeMember("click");
新聞名稱:vb.net網(wǎng)頁元素 vbs獲取網(wǎng)頁源代碼
鏈接URL:http://chinadenli.net/article44/dojgpee.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供手機(jī)網(wǎng)站建設(shè)、營銷型網(wǎng)站建設(shè)、商城網(wǎng)站、軟件開發(fā)、動(dòng)態(tài)網(wǎng)站、網(wǎng)站設(shè)計(jì)
聲明:本網(wǎng)站發(fā)布的內(nèi)容(圖片、視頻和文字)以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主,如果涉及侵權(quán)請(qǐng)盡快告知,我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng),如需處理請(qǐng)聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載,或轉(zhuǎn)載時(shí)需注明來源: 創(chuàng)新互聯(lián)