VB 枚举窗口和关闭程序窗口的代码

Attribute VB_Name = "Enum_Window"


Option Explicit


Option Base 0
'Powered by barenx




Public Declare Function FindWindow()Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long




Public Declare Function FindWindowEx()Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long




Public Declare Function SetParent()Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long


Public Const LWA_COLORKEY = &H1


Public Const LWA_ALPHA = &H2


Public Const GWL_EXSTYLE = (-20)


Public Const WS_EX_LAYERED = &H80000


Public Const WS_EX_TRANSPARENT As Long = &H20&




Public Declare Function GetWindowLong()Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long




Public Declare Function SetWindowLong()Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long




Public Declare Function SetLayeredWindowAttributes()Function SetLayeredWindowAttributes Lib "user32" (ByVal hwnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long






Public Declare Function PostMessage()Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long




Public Declare Function GetWindowText()Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long




Public Declare Function GetDesktopWindow()Function GetDesktopWindow Lib "user32" () As Long




Public Declare Function GetWindow()Function GetWindow Lib "user32" (ByVal hwnd As Long, ByVal wCmd As Long) As Long




Public Declare Sub CloseHandle()Sub CloseHandle Lib "kernel32" (ByVal hPass As Long)


Public Const GW_CHILD = 5


Public Const GW_HWNDNEXT = 2


Public Const WM_CLOSE = &H10


Public Const WM_QUIT = &H12


Public Const MAX_PATH As Integer = 260




'***************************************************************************************************************




Public Sub CloseWindow()Sub CloseWindow(ByRef WinText() As String)


On Error Resume Next


Dim i As Long, lngDeskTopHandle As Long, lngHand As Long, StrName As String


lngDeskTopHandle = GetDesktopWindow()


lngHand = GetWindow(lngDeskTopHandle, GW_CHILD)


Do While lngHand <> 0


StrName = Space(MAX_PATH)


GetWindowText lngHand, StrName, MAX_PATH


StrName = StrCutNull(Trim$(StrName))


If StrName <> vbNullString Then


For i = 0 To UBound(WinText)


If InStr(1, UCase$(StrName), UCase$(WinText(i))) > 0 Then


PostMessage lngHand, &H11, 0, 0 'public Const WM_QUERYENDSESSION = &H11


PostMessage lngHand, WM_QUIT, 0, 0


PostMessage lngHand, &H16, 0, 0 'public Const WM_ENDSESSION = &H16


PostMessage lngHand, WM_QUIT, 0, 0


End If


Next i


End If


lngHand = GetWindow(lngHand, GW_HWNDNEXT)


Loop


CloseHandle lngDeskTopHandle


CloseHandle lngHand


End Sub






Public Sub GetWindowsList()Sub GetWindowsList(ByRef WindowsName() As String)


On Error Resume Next


Dim i As Long, lngDeskTopHandle As Long, lngHand As Long, StrName As String


lngDeskTopHandle = GetDesktopWindow()


lngHand = GetWindow(lngDeskTopHandle, GW_CHILD)


i = 0


Do While lngHand <> 0


StrName = Space(MAX_PATH)


GetWindowText lngHand, StrName, MAX_PATH


StrName = StrCutNull(Trim$(StrName))


If StrName <> vbNullString Then


ReDim Preserve WindowsName(i)


WindowsName(i) = StrName


Debug.Print StrName


i = i + 1


End If


lngHand = GetWindow(lngHand, GW_HWNDNEXT)


Loop


CloseHandle lngDeskTopHandle


CloseHandle lngHand


End Sub




Public Function StrCutNull()Function StrCutNull(IStr As String) As String


Dim i As Long


i = InStr(1, IStr, Chr(0))


If i <= 1 Then


StrCutNull = vbNullString


Else


StrCutNull = Left$(IStr, i - 1)


End If


End Function