2013年6月6日 星期四

VB6 呼叫IE元件

    Dim objIe  As Object
    Set objIe = CreateObject("InternetExplorer.Application")
    objIe.Visible = False
    'objIe.Visible = True  
  
        objIe.Navigate "網址URL"
        While objIe.busy
            Sleep 100
        Wend
        Set objIEDoc = objIe.Document
        With objIEDoc
             MsgBox objIEDoc.body.parentNode.innerHTML
        End With      

    objIe.quit

沒有留言:

張貼留言