vb利用FindWindow，GetWindowText，SendMessage查找程序并发送最小化消息

原创

于 2009-06-26 14:05:00 发布 · 7.9k 阅读

2 ·

CC 4.0 BY-SA版权

文章标签：

#vb #function #string #user #access #integer

这段VB代码展示了如何利用FindWindow、GetWindowText和SendMessage函数查找并操作特定进程，如最小化窗口、关闭窗口及终止进程。示例中，代码针对'Macromedia Flash Player 8'进行了操作，包括最小化、关闭和结束进程。此外，还提到了使用SendKeys方法来模拟键盘输入实现窗口最小化。

' 查找运行的窗体 Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long ' 发送系统消息 Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long Private Const WM_CLOSE = &H10 Private Const WM_SYSCOMMAND = &H112 Private Const SC_CLOSE = &HF060& Private Const SC_MINIMIZE = &HF020& Private Const cch = 255 ' Private Declare Function TerminateProcess Lib "kernel32" (ByVal hProcess As Long, ByVal uExitCode As Long) As Long Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long Private Declare Function CloseHandle