• Home
 · 
• Windows System Services
 · 
• You can use the WinWait function to wait until a window with a specific name has appeared, or use t

You can use the WinWait function to wait until a window with a specific name has appeared, or use t

You can use the WinWait function to wait until a window with a specific name has appeared, or use the WinWaitNot function to wait until it is

API Declarations



Public bFound As Boolean
Public strWindowName As String

Public Const MAX_PATH = 260

Declare Function EnumWindows Lib "user32" (ByVal lpEnumFunc As Long, ByVal lParam As Long) As Long
Declare Function GetClassName Lib "user32" Alias "GetClassNameA" (ByVal hwnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long
Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hwnd As Long, lpdwProcessId As Long) As Long
Declare Function SendMessageArray Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long



Rate You can use the WinWait function to wait until a window with a specific name has appeared, or use t

• 1
• 2
• 3
• 4
• 5

(3(3 Vote))

    Dim lResult    As Long
    Dim lThreadId  As Long
    Dim lProcessId As Long
    Dim sWndName   As String
    Dim sClassName As String
    '
    ' This callback function is called by Windows (from the EnumWindows
    ' API call) for EVERY window that exists.  It populates the aWindowList
    ' array with a list of windows that we are interested in.
    '
    fEnumWindowsCallBack = 1
    sClassName = Space$(MAX_PATH)
    sWndName = Space$(MAX_PATH)
    
    lResult = GetClassName(hwnd, sClassName, MAX_PATH)
    sClassName = Left$(sClassName, lResult)
    lResult = GetWindowText(hwnd, sWndName, MAX_PATH)
    sWndName = Left$(sWndName, lResult)
    
    lThreadId = GetWindowThreadProcessId(hwnd, lProcessId)
    
    'Form1.lstWindows.AddItem CStr(hwnd) & vbTab & sClassName & _
        vbTab & CStr(lProcessId) & vbTab & CStr(lThreadId) & _
        vbTab & sWndName
        
    If UCase(sWndName) Like UCase(strWindowName) Then
      bFound = True
    End If
    

End Function

Public Function fEnumWindows() As Boolean
    Dim hwnd As Long
    '
    ' The EnumWindows function enumerates all top-level windows
    ' on the screen by passing the handle of each window, in turn,
    ' to an application-defined callback function. EnumWindows
    ' continues until the last top-level window is enumerated or
    ' the callback function returns FALSE.
    '
    Call EnumWindows(AddressOf fEnumWindowsCallBack, hwnd)
End Function


Public Function WinWait(strWinName As String, Optional intMaxWaitTimeInMin As Integer) As Boolean
  Dim OldTime As Date
  strWindowName = strWinName
  bFound = False
  If intMaxWaitTimeInMin > 0 Then
    OldTime = Date + Time
    Do While (bFound = False) And (DateDiff("n", OldTime, Date + Time) < intMaxWaitTimeInMin)
      DoEvents
      fEnumWindows
    Loop
  Else
    Do While bFound = False
      DoEvents
      fEnumWindows
    Loop
  End If
  
  If bFound = False Then
    WinWait = False
  Else
    WinWait = True
  End If
End Function

Public Function WinWaitNot(strWinName As String, Optional intMaxWaitTimeInMin As Integer) As Boolean
  Dim OldTime As Date
  strWindowName = strWinName
  
  If intMaxWaitTimeInMin > 0 Then
    OldTime = Date + Time
    Do
      bFound = False
      DoEvents
      fEnumWindows
    Loop While (bFound = True) And (DateDiff("n", OldTime, Date + Time) < intMaxWaitTimeInMin)
  Else
    Do
      bFound = False
      DoEvents
      fEnumWindows
    Loop While bFound = True
  End If
  
  WinWaitNot = bFound
End Function