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