P
peter.tingle
Hi,
I need to get the readystate for an internet explorer window that my
users will have open already:
Option Explicit
' declare the api call to get the handle of the active window
Declare Function GetActiveWindow Lib "user32" () As Long
Declare Function SetActiveWindow Lib "user32" (ByVal hwnd As Long) As
Long
Public Sub testingGettingInfo()
Dim ttime As Double
Dim ListMan As Long
ttime = Timer
Do
AppActivate "List Manager"
Loop Until ttime + 1 / 3 < Timer
ListMan = GetActiveWindow
SetCursorPos 780, 32
SendLeftClick
Do
Loop Until {ahh need an object name}.ReadyState = 4
{insert code for getting info from page}
end sub
Does anyone know the way of doing this?
I've been checking the archives but can't find this anywhere.
Also I've been unable to find a comprehensive list of functions that
you can load into excel from dll's like user32.dll if anyone have got
any links to this aswell I'd be greatfull
I need to get the readystate for an internet explorer window that my
users will have open already:
Option Explicit
' declare the api call to get the handle of the active window
Declare Function GetActiveWindow Lib "user32" () As Long
Declare Function SetActiveWindow Lib "user32" (ByVal hwnd As Long) As
Long
Public Sub testingGettingInfo()
Dim ttime As Double
Dim ListMan As Long
ttime = Timer
Do
AppActivate "List Manager"
Loop Until ttime + 1 / 3 < Timer
ListMan = GetActiveWindow
SetCursorPos 780, 32
SendLeftClick
Do
Loop Until {ahh need an object name}.ReadyState = 4
{insert code for getting info from page}
end sub
Does anyone know the way of doing this?
I've been checking the archives but can't find this anywhere.
Also I've been unable to find a comprehensive list of functions that
you can load into excel from dll's like user32.dll if anyone have got
any links to this aswell I'd be greatfull