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


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


------解决方案--------------------