Probleme mit FindwindowEx

Private Declare Function FindWindow Lib "user32.dll" _ Alias "FindWindowA" ( _ ByVal lpClassName As String, _ ByVal lpWindowName As String) As Long Private Declare Function FindWindowEx Lib "user32.dll" _ Alias "FindWindowExA" ( _ ByVal hWndParent As Long, _ ByVal hwndChildAfter As Long, _ ByVal lpszClass As String, _ ByVal lpszWindow As String) As Long Sub CloseAutoLogoutMessages() Dim hWnd As Long Dim hbnd As Long Dim blWindow As Boolean blWindow = False Do hWnd = GetWindowHandle("SAP GUI for") If hWnd > 0 Then blWindow = True BringWindowToTop (hWnd) hbnd = FindWindowEx(hWnd, 0, "Button", "&No") If hbnd > 0 Then SendMessage hbnd, BM_CLICK, 0, 0 End If End If Loop While hWnd > 0 If blWindow Then Application.Wait Now + TimeSerial(0, 0, 3) End If End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Theo,
ich bin der Meinung, dass Du nichts falsch machst.
Aber ich erinnere mich daran, dass auch ich in früherer Zeit ebenfalls schon kurz vor dem Wahnsinn war mit dieser Funktion. (auch außerhalb von VBA)
Heute verwende ich die nur noch in bestimmten Fällen, also eher selten.
Um die/das Handle von Childwindows zu erhalten, gehe ich fast nur noch über EnumChildWindows.
Hierbei werden alle Child-Handles in ein Array geschafft und dann je nach Bedarf ausgewertet.
Das funktioniert wenigstens.
Vorerst aber auch mal der Tipp; versuch's auch mal über die ID (lt. Win-Spy ID=2):
hWndBtn = GetDlgItem(hWnd, ID)
Eigentlich für Dialogboxen vorgesehen, klappt das auch für andere Fenster, oft zumindest :-).
viele Grüße
Karl-Heinz

Public Function EnumChilds(ByVal ChWnd&, ByVal lParam&) As Long 'Diese Funktion wird für jedes Child einmal direkt von Windows aufgerufen If GetWindowLong(ChWnd, GWL_ID) = "2" Then SendMessage ChWnd, BM_CLICK, 0, 0 End If EnumChilds = 1 End Function

Public Function EnumChilds(ByVal ChWnd&, ByVal lParam&) As Long 'Diese Funktion wird für jedes Child einmal direkt von Windows aufgerufen If GetWindowLong(ChWnd, GWL_ID) = 2 Then SendMessage ChWnd, BM_CLICK, 0, 0 bCheck=true: EnumChilds = 0: Exit Function End If EnumChilds = 1 End Function

Hallo Karl-Heinz,
Dein PS hat mich auf die richtige Idee gebracht! Das Loop While hwnd > 0 war schon richtig, weil es mehrere SAP GUI Fenster geben kann, die alle durch den Click auf den No Button geschlossen werden. Der Fehler lag daran, dass ich das Fenster handle nicht durch exakte Übereinstimmung des Fenstertextes gesucht hatte, sondern auch einen partiellen Text erlaubt hatte. Die zu schliessenden Fenster hatten als Titel "SAP GUI for Windows 750" , offensichtlich gab es aber auch ein Fenster mit dem Titel: "SAP GUI for Windows 750 [/M/......". Das Findwindow hatte also immer nur dieses falsche Fenster gefunden, darauf keinen Button gefunden und deshalb das Fenster nicht geschlossen. Im nächsten Durchlauf wurde dann wieder das gleiche Fenster gefunden und nichts passierte. Nach der Änderung von GethandlefrompartialCaption auf die neue Funktion GetHandlefromFullCaption funkioniert mein ursprünglicher Code also einwandfrei!
Der Vollständigkeithalber hier die Funktionen die ich ursprünglich nicht mitgepostet hatte:

Public Function GetWindowHandle(WindowCaption As String) As Long
Dim lhWndP As Long
If GetHandleFromFullCaption(lhWndP, WindowCaption) = True Then
If IsWindowVisible(lhWndP) = True Then
'MsgBox "Found VISIBLE Window Handle: " & lhWndP, vbOKOnly + vbInformation
GetWindowHandle = lhWndP
Else
'MsgBox "Found INVISIBLE Window Handle: " & lhWndP, vbOKOnly + vbInformation
GetWindowHandle = lhWndP
End If
Else
'MsgBox "Window 'Window Caption' not found!", vbOKOnly + vbExclamation
End If
End Function

'hier die nue Function

Private Function GetHandleFromFullCaption(ByRef lWnd As Long, ByVal sCaption As String) As  _
Boolean
Dim lhWndP As Long
Dim sStr As String
GetHandleFromFullCaption = False
lhWndP = FindWindow(vbNullString, vbNullString)    'PARENT WINDOW
Do While lhWndP  0
sStr = String(GetWindowTextLength(lhWndP) + 1, Chr$(0))
GetWindowText lhWndP, sStr, Len(sStr)
sStr = Left$(sStr, Len(sStr) - 1)
If sStr = sCaption Then
GetHandleFromFullCaption = True
lWnd = lhWndP
Exit Do
End If
lhWndP = GetWindow(lhWndP, GW_HWNDNEXT)
Loop
End Function

'das war die alte Funktion

Private Function GetHandleFromPartialCaption(ByRef lWnd As Long, ByVal sCaption As String) As  _
Boolean
Dim lhWndP As Long
Dim sStr As String
GetHandleFromPartialCaption = False
lhWndP = FindWindow(vbNullString, vbNullString)    'PARENT WINDOW
Do While lhWndP  0
sStr = String(GetWindowTextLength(lhWndP) + 1, Chr$(0))
GetWindowText lhWndP, sStr, Len(sStr)
sStr = Left$(sStr, Len(sStr) - 1)
If InStr(1, sStr, sCaption) > 0 Then
GetHandleFromPartialCaption = True
lWnd = lhWndP
Exit Do
End If
lhWndP = GetWindow(lhWndP, GW_HWNDNEXT)
Loop
End Function

Vielen Dank für die Bemühungen - ich denke ich habe viel gelernt!
Danke
Theo

Beliebteste Forumthreads (12 Monate)

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread