Name der aktiven Anwendung

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Jürgen,
ich weiß ja nicht, wie du es versuchst, aber ich würde es so machen:

' **********************************************************************
' Modul: Modul1 Typ: Allgemeines Modul
' **********************************************************************

Option Explicit

Private Declare Function GetForegroundWindow Lib "user32.dll" () As Long
Private Declare Function GetWindowTextLength Lib "user32.dll" Alias "GetWindowTextLengthA" ( _
    ByVal hWnd As Long) As Long
Private Declare Function GetWindowText Lib "user32.dll" Alias "GetWindowTextA" ( _
    ByVal hWnd As Long, _
    ByVal lpString As String, _
    ByVal cch As Long) As Long
Private Declare Sub Sleep Lib "kernel32.dll" ( _
    ByVal dwMilliseconds As Long)

Public Sub test()
    Do
        Sleep 1000
        DoEvents
        If GetWindowTitle(GetActiveWindow) = "Konfiguration : Ergebnis" Then Exit Do
    Loop
    Beep
End Sub

Private Function GetWindowTitle(ByVal hWnd As Long) As String
    Dim lngReturn As Long, strTemp As String
    lngReturn = GetWindowTextLength(hWnd) + 1
    strTemp = Space(lngReturn)
    lngReturn = GetWindowText(hWnd, strTemp, lngReturn)
    GetWindowTitle = Left(strTemp, Len(strTemp) - 1)
    Debug.Print GetWindowTitle
End Function

Gruß
Nepumuk

Hallo Herby,
oben korrigiert, aber unten vergessen. So geht's:

' **********************************************************************
' Modul: Modul1 Typ: Allgemeines Modul
' **********************************************************************

Option Explicit

Private Declare Function GetForegroundWindow Lib "user32.dll" () As Long
Private Declare Function GetWindowTextLength Lib "user32.dll" Alias "GetWindowTextLengthA" ( _
    ByVal hWnd As Long) As Long
Private Declare Function GetWindowText Lib "user32.dll" Alias "GetWindowTextA" ( _
    ByVal hWnd As Long, _
    ByVal lpString As String, _
    ByVal cch As Long) As Long
Private Declare Sub Sleep Lib "kernel32.dll" ( _
    ByVal dwMilliseconds As Long)

Public Sub test()
    Do
        Sleep 1000
        DoEvents
        If GetWindowTitle(GetForegroundWindow) = "Eigene Dateien" Then Exit Do
    Loop
    Beep
End Sub

Private Function GetWindowTitle(ByVal hWnd As Long) As String
    Dim lngReturn As Long, strTemp As String
    lngReturn = GetWindowTextLength(hWnd) + 1
    strTemp = Space(lngReturn)
    lngReturn = GetWindowText(hWnd, strTemp, lngReturn)
    GetWindowTitle = Left(strTemp, Len(strTemp) - 1)
    Debug.Print GetWindowTitle
End Function

Gruß
Nepumuk

Beliebteste Forumthreads (12 Monate)

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread