Как войти в консоль при использовании IEFrame.dll - PullRequest
Новая
       10

Как войти в консоль при использовании IEFrame.dll

0 голосов
/ 27 июня 2018

Я работаю над устаревшим приложением, написанным на VB6 и использующим IEFrame.dll. Есть некоторый JavaScript, который не работает последовательно, и я хотел бы написать несколько журналов где-нибудь, чтобы помочь выяснить, что происходит. Это возможно даже с IEFrame.dll?

1 Ответ

0 голосов
/ 27 июня 2018

Это может заставить некоторых людей съежиться, но учтите следующее:

sample.htm 

<html xmlns:custom>
    <body>
        <custom:generic id="Logging" style="inline:true;display:none"/>

        <button onclick="Logging.innerText='Hello';Logging.click()">Click me 1</button>
        &nbsp;
        <button onclick="Logging.innerText='Goodbye';Logging.click()">Click me 2</button>
    </body>
</html>

Form1.frm 

Option Explicit

'Reference to: Microsoft HTML Object Library

Private WithEvents Logging As MSHTML.HTMLGenericElement

Private Sub Form_Load()
    WebBrowser1.Navigate2 App.Path & "\sample.htm"
End Sub

Private Sub Form_Resize()
    If WindowState <> vbMinimized Then
        WebBrowser1.Move 0, 0, ScaleWidth, ScaleHeight
    End If
End Sub

Private Function Logging_onclick() As Boolean
    Debug.Print Logging.innerText
End Function

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
    Set Logging = pDisp.Document.All("Logging")
End Sub
...