A bit of Help please (solved)

[Irre]

I'm trying to find the handle of a window but since it's class name changes everytime the window is opened i'm having some trouble.
I've found a bit of code that allows me to use wildcards to find the handle but i can't seem to figure out how to call the handle from my form.
Here is the bit of code i have in my module

Public Function EnumWindowsProc(ByVal hwnd As Long, ByVal lParam As Long) As Long
    Dim Length As Long
    Dim sName As String
    Length = GetWindowTextLength(hwnd) + 1
    
    If Length > 1 Then
      sName = Space(Length)
      GetWindowText hwnd, sName, Length
      sName = Left$(sName, Length - 1)
      'Use the Like operator to search with wildcards
      If sName Like "*The Wizard: Current Macro Set:*" Then
           MsgBox "The handle is: " & sName
        End If
    End If
 
    EnumWindowsProc = 1
End Function

The Message box i have in there is just for me to know if the function worked Properly, and this part does.
Anyone have any suggestions.

[Irre]

Anyone have any clues ?

[Wokawidget]

What is your code which opens the new window?

[Irre]

i'm not opening a new window just trying to get the handle to a
window thats already open. Since it's class changes everytime
it's opened i can't use findwindow(i think), so using that code
allows me to use wildcards to find the caption. Once it has the
caption it also has the handle which is proven by the msgbox i
have in there. But like i said before my problem was getting other
functions to be able to access the handle.

[Mc Brain]

Try this:

If Instr(sName, "The Wizard: Current Macro Set:") Then

[Wokawidget]

Is the class created from within the application which is trying to hold of it's handle?
What type of class is it?
How does the name of the class change everytime it's created?

Each class module has it's own handle, so if you place the following in the class then you can access it's handle from the object which created it:

Public Property Get hWnd() As Long
hWnd = Me.hWnd
End Property

Does that make sense?

Although I am a tab puzzled...

Could you post your code here so that I could have a look...Easier to find a solution then.


Regards,

Serious Beard

[Irre]

Mc Brain What is your code supposed to do ?


The Window i'm trying to get the handle for is one for another
program.


in the form i have this

Private Sub Form_Load()
EnumWindows AddressOf EnumWindowsProc, 0
End Sub

In a Module i have this

Public Function EnumWindowsProc(ByVal hwnd As Long, ByVal lParam As Long) As Long
    Dim Length As Long
    Dim sName As String
    Length = GetWindowTextLength(hwnd) + 1
    
    If Length > 1 Then
      sName = Space(Length)
      GetWindowText hwnd, sName, Length
      sName = Left$(sName, Length - 1)
      'Use the Like operator to search with wildcards
      If sName Like "*The Wizard: Current Macro Set:*" Then
           MsgBox "The handle is: " & sName
     DRhwnd = hwnd
     MsgBox DRhwnd
      End If
    End If
 
    EnumWindowsProc = 1
End Function

If i try and put a message box in my form an have it display the
handle of the window it just shows up blank, that is my main
problem i can't seem to access the information in the Enumwindows function

[Mc Brain]

I know what you're trying to do. I got the handle of program like DreamWeaver, or Teleport Pro. Those programs, for example, have a caption like "MyPage.htm - DreamWeaver", and that will depend on the name of the project or html you've opened.

So, if in your sName, you have the string " - DreamWeaver" somewhere, there's a chance to be the window your looking for. I don't know what's the problem with that code. Have you tested?

[Irre]

The reason why i used the wildcards in the caption was because
that string is always there, and the class changes, which prevents
me from useing findwindow,which i think would be alot easier to
pass the handle onto other parts of the program. thats what the
original post boils down to is that i can't figure out how to pass
the handle to other parts of the function.

[Mc Brain]

Here's part of a project I did once.

Option Explicit
 
Private Declare Function GetWindowTextLength Lib _
  "user32" Alias "GetWindowTextLengthA" (ByVal hWnd As Long) As Long
Private Declare Function GetWindowText Lib "user32" _
  Alias "GetWindowTextA" (ByVal hWnd As Long, ByVal _
  lpString As String, ByVal cch As Long) As Long
Private Declare Function GetWindow Lib "user32" _
(ByVal hWnd As Long, ByVal wCmd As Long) As Long
  
Private Const GW_HWNDFIRST = 0
Private Const GW_HWNDNEXT = 2
 
Private Function GetHandle(Caption As String, TaskName As String) As Long
    Dim CurrWnd As Long
    Dim e0 As String
    Dim Length As Integer
    Dim tName As String
    Dim Pos As Integer
    
    CurrWnd = GetWindow(Me.hWnd, GW_HWNDFIRST)
    e0 = UCase$(Caption)
    Do While CurrWnd <> 0
        Length = GetWindowTextLength(CurrWnd)
        tName = Space$(Length + 1)
        Length = GetWindowText(CurrWnd, tName, Length + 1)
        tName = Left$(tName, Len(tName) - 1)
        If Length > 0 Then
            If InStr(UCase$(Caption), "*") Then
                e0 = Right$(UCase$(Caption), Len(Caption) - 1)
                Pos = InStr(UCase$(tName), e0)
                If Pos Then
                    'The wanted one
                    TaskName = tName
                    Exit Do
                End If
            Else
                If UCase$(Caption) = UCase$(tName) Then
                    TaskName = tName
                    Exit Do
                End If
            End If
        End If
        CurrWnd = GetWindow(CurrWnd, GW_HWNDNEXT)
        DoEvents
    Loop
    
    GetHandle = CurrWnd
End Function
 
Private Sub Form_Load()
    Dim hWnd As Long
    Dim TaskName As String
    
    hWnd = GetHandle("* - Microsoft Outlook", TaskName)
    MsgBox "The wanted window is " & TaskName
End Sub

In this example, it doesn't mind if your on the Inbox, Outbox or whatever... it will always find the Outlook's Window -if opened-

[Irre]

Thanks, That looks REALLY complicated so it'll probably take me a while to mess around with.

[Irre]

Mc Brain your code didn't work, i even tried opening Outlook Express and pasting your code and running it like that.

[Irre]

I feel so ashamed to have let this simple problem with such a
simple answer cause such a problem all i had to do was to add
in my module Public DRhwnd as long and then in my form add
msgbox DRhwnd
Damn do i feel dumb.

[Mc Brain]

Originally posted by Irre
Mc Brain your code didn't work, i even tried opening Outlook Express and pasting your code and running it like that.

I said Outlook, not Outlook Express.