InternetExplorer.Application

最新推荐文章于 2021-01-29 22:08:20 发布

WOLFYAN

最新推荐文章于 2021-01-29 22:08:20 发布

阅读量2.1k

点赞数

分类专栏： Windows Script 文章标签： string function object html output c

Windows Script 专栏收录该内容

0 篇文章 0 订阅

订阅专栏

strIText = GetInnerX("http://www.heise.de","TEXT")
Open "C:/Inner.txt" For Output As #1
Print #1, strIText
Close 1

Function GetInnerX(strURL As String, Optional strWhat As String = "HTML") As String
    Dim IEApp As Object
    Dim IEDoc As Object
    GetInnerX = ""
    Set IEApp = CreateObject("InternetExplorer.Application")
    If Not IEApp Is Nothing Then
        IEApp.Visible = False
        IEApp.Navigate strURL
        Do: Loop Until IEApp.Busy = False
        Do: Loop Until IEApp.Busy = False
        Set IEDoc = IEApp.Document
        Select Case UCase(strWhat)
            Case "HTML"
                GetInnerX = IEDoc.Body.InnerHTML
            Case Else
                GetInnerX = IEDoc.Body.InnerText
        End Select
        IEApp.Quit
        Set IEDoc = Nothing
        Set IEApp = Nothing
    Else
        MsgBox "InternetExplorer nicht installiert?", vbInformation
    End If
End Function