Need interface definition for SHDocVw.InternetExplorer

Thanks all,

I looked at those references. Perhaps I am missing it, but I don't see an interface definition any place. If there is one, please post the exact web reference.

What I am actually trying to do is get the process ID for the IE instance and change the priority----I thought I had seen someplace where the window handle was available and from that I can get the process id.

Thanks very much!

setting the priority is something different than manipulating within the ie instance itself.

you may want do do something along the lines of http://stackoverflow.com/questions/13480344/obtain-session-id-and-process-id-for-winlogon-exe

This code below gets the window handle...now all I need to do is get the process id from the window handle. I know this is possible because I have done it before---I just forgot how. Is there a function called "getProcessIDFromWIndowHandle() or something similar?

SA = CreateObject("Shell.Application")
            Dim windowCount As Integer = SA.windows().count()
            For Each window In SA.windows()
                Dim WindowURL = window.LocationURL
                Dim hWnd As Integer
                hWnd = window.HWND
             
                If InStr(WindowURL, URLToCheck) > 0 Then
                    logleave("IsWebTopPageOpen:success")
                    Return window
                End If
            Next

This is what I was trying to do: Get the process information from the window handle and then use that to bump the priority of the IE process.

'Private Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hwnd As Long, ByRef lpdwProcessId As Long) As Long
    Private Declare Function GetWindowThreadProcessId Lib "user32" _
  (ByVal hwnd As IntPtr, _
    ByRef lpdwProcessId As Long) As Long
    Public Function getProcessFromWindowHandle(ByVal hWnd As Long) As Process

        Dim myProcess As Process = Nothing
        logenter("getProcessIDFromWindowHandle " & hWnd)
        Try
            Dim lngPid As Integer
            Dim lngAccessHwnd As IntPtr = New IntPtr(hWnd)
            GetWindowThreadProcessId(lngAccessHwnd, lngPid)
            ' GetWindowThreadProcessId(lngAccessHwnd, myProcessidPtr)
            myProcess = Process.GetProcessById(lngPid)
        Catch ex As Exception
            logmessage(ex.ToString())
            myProcess = Nothing
        Finally
            logleave("getProcessIDFromWindowHandle")
        End Try
        Return myProcess
    End Function