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


哪位大哥帮我看看是怎么回事?


[解决办法]