在你的工程中引用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的讀取,讀取方式也是直接讀取各個屬性值。
本文名稱:vb.net獲取元素 vb獲取excel單元格值
文章URL:http://vcdvsql.cn/article18/dopijgp.html
成都網站建設公司_創新互聯,為您提供建站公司、網站維護、靜態網站、移動網站建設、網站策劃、電子商務
聲明:本網站發布的內容(圖片、視頻和文字)以用戶投稿、用戶轉載內容為主,如果涉及侵權請盡快告知,我們將會在第一時間刪除。文章觀點不代表本網站立場,如需處理請聯系客服。電話:028-86922220;郵箱:631063699@qq.com。內容未經允許不得轉載,或轉載時需注明來源: 創新互聯