VB6: RunAnonymousFunctionSync to retrieve the height of page

[MrPrzemek]

Hi Przemek,

The following works for me:

Code:

  Set myDocumentHTML = New AntViewDocument
  myDocumentHTML.BrowserDispatch EdgeWebBrowser.IDispatchPointer

  Dim strRes As String
  Dim intRes As Integer

  intRes = myDocumentHTML.RunAnonymousFunctionSync(1, "", "() => {return window.innerHeight;}", strRes)

  Debug.Print "Result: " & intRes '22 functon timeout
  Debug.Print "Data result: " & strRes 'String is empty

IOW, you did not write a function.
Sadly it does not completely behave like the javascript console.

The returned error 22 is confusing. I will raise a ticket for that and see if it can be improved somehow.
--
Wil

It works for me also :-) Thank you very much for your reply


In the future, you might consider adding a property to scroll and get the height/width of the scroll bar

Code:

antView.Document.ScrollHeight - Returns the height of the page's scroll bar
antView.Document.ScrollWidth - Returns the Width of the page's scroll bar
antView.Document.ScrollTop - Scrolls the vertical bar to the position X
antView.Document.ScrollLeft - Scrolls the horizontal bar to the position X