Skip to content

internet explorer_server class

Viewing 3 posts - 1 through 3 (of 3 total)
  • Author
    Posts
  • December 26, 2014 at 11:59 pm #186445
    Jerrri2012
    Member

    Hi everybody

    Can anyone help how to get text from an internet explorer_server class ?

    Dim troomwindow As Long, tspanel As Long, shellembedding As Long
Dim shelldocobjectview As Long, internetexplorerserver As Long
troomwindow = FindWindow("troomwindow", vbNullString)
tspanel = FindWindowEx(troomwindow, 0&, "tspanel", vbNullString)
tspanel = FindWindowEx(tspanel, 0&, "tspanel", vbNullString)
tspanel = FindWindowEx(tspanel, tspanel, "tspanel", vbNullString)
tspanel = FindWindowEx(tspanel, tspanel, "tspanel", vbNullString)
tspanel = FindWindowEx(tspanel, 0&, "tspanel", vbNullString)
tspanel = FindWindowEx(tspanel, tspanel, "tspanel", vbNullString)
shellembedding = FindWindowEx(tspanel, 0&, "shell embedding", vbNullString)
shelldocobjectview = FindWindowEx(shellembedding, 0&, "shell docobject view", vbNullString)
internetexplorerserver = FindWindowEx(shelldocobjectview, 0&, "internet explorer_server", vbNullString)
Dim TheText As String, TL As Long
TL = SendMessageLong(internetexplorerserver, WM_GETTEXTLENGTH, 0&, 0&)
TheText = String(TL + 1, " ")
Call SendMessageByString(internetexplorerserver, WM_GETTEXT, TL + 1, TheText)
TheText = Left(TheText, TL)

    of course this code tooken from PAT or JK’s API spy 5.1 don’t give any result

    TL is given 0

    thanks

     

    December 27, 2014 at 10:18 am #186447
    Departure
    Member

    Is this for beyluxe? I think both Autopilot and myself have posted examples of getting text from beyluxe, look for autopilots posts concerning this component.

     

    //Edit

    Cant get Text from Room – Crown IM ?

    January 9, 2015 at 12:30 am #186446
    Jerrri2012
    Member

    Thank you so much departure

  • Author
    Posts

Related

Viewing 3 posts - 1 through 3 (of 3 total)
  • You must be logged in to reply to this topic.