这个VB代码模块提供了枚举桌面窗口并关闭特定窗口的功能。通过FindWindow和FindWindowEx等API函数，可以查找指定类名或窗口名的窗口，并使用PostMessage发送WM_CLOSE消息来关闭它们。
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
Public
Declare
Function FindWindow()
Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPublic 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 LongPublic Declare Function SetParent()Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As LongPublic Const LWA_COLORKEY = &H1Public Const LWA_ALPHA = &H2Public Const GWL_EXSTYLE = (-20)Public Const WS_EX_LAYERED = &H80000Public Const WS_EX_TRANSPARENT As
最低0.47元/天 解锁文章
扫一扫
5528
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
