vb中操作dom的有关问题
vb中操作dom的问题,在线等
Option Explicit
Private Sub Form_Load()
Me.WebBrowser1.Navigate "http://218.80.221.114:8080/3a/servlet/EncryTokenServlet?UserID=ad123456789&Action=Login "
End Sub
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
Dim objDocument As IHTMLDocument2
Dim objDom As DOMDocument
Dim objNodeList As IXMLDOMNodeList
Dim objElement As IHTMLElement
Dim strString As String
Dim fields As Integer
Set objDocument = pDisp.Document
strString = objDocument.documentElement.outerHTML
Text1.Text = strString
Set objDom = New DOMDocument
objDom.loadXML strString
Set objNodeList = objDom.getElementsByTagName( "script ")
'错误行,就是没法给strString 赋值
strString = objNodeList(0).Text
End Sub
哪位大哥帮我看看是怎么回事?
------解决方案--------------------
Option Explicit
Private Sub Form_Load()
Me.WebBrowser1.Navigate "http://218.80.221.114:8080/3a/servlet/EncryTokenServlet?UserID=ad123456789&Action=Login "
End Sub
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
Dim objDocument As IHTMLDocument2
Dim objDom As DOMDocument
Dim objNodeList As IXMLDOMNodeList
Dim objElement As IHTMLElement
Dim strString As String
Dim fields As Integer
Set objDocument = pDisp.Document
strString = objDocument.documentElement.outerHTML
Text1.Text = strString
Set objDom = New DOMDocument
objDom.loadXML strString
Set objNodeList = objDom.getElementsByTagName( "script ")
'错误行,就是没法给strString 赋值
strString = objNodeList(0).Text
End Sub
哪位大哥帮我看看是怎么回事?
------解决方案--------------------