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

' 查找運行的窗體 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 Lib "kernel32" (ByVal hObject As Long) As Long Private Declare Function CreateToolhelpSnapshot Lib "kernel32" Alias "CreateToolhelp32Snapshot" (ByVal lFlags As Long, ByVal lProcessID As Long) As Long Private Declare Function ProcessFirst Lib "kernel32" Alias "Process32First" (ByVal hSnapShot As Long, uProcess As PROCESSENTRY32) As Long Private Declare Function ProcessNext Lib "kernel32" Alias "Process32Next" (ByVal hSnapShot As Long, uProcess As PROCESSENTRY32) As Long ' Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long Private Const TH32CS_SNAPPROCESS = &H2 Private Const TH32CS_SNAPheaplist = &H1 Private Const TH32CS_SNAPthread = &H4 Private Const TH32CS_SNAPmodule = &H8 Private Const TH32CS_SNAPall = TH32CS_SNAPPROCESS + TH32CS_SNAPheaplist + TH32CS_SNAPthread + TH32CS_SNAPmodule Private Const MAX_PATH As Integer = 260 Private Const PROCESS_ALL_ACCESS = &H100000 + &HF0000 + &HFFF Private Type PROCESSENTRY32 dwSize As Long cntUseage As Long th32ProcessID As Long th32DefaultHeapID As Long th32ModuleID As Long cntThreads As Long th32ParentProcessID As Long pcPriClassBase As Long swFlags As Long szExeFile As String * 1024 End Type Private Sub Form_Load() Dim hwnd As Long Dim lpString As String * 256 hwnd = FindWindow(vbNullString, "Macromedia Flash Player 8") Label1.Caption = hwnd Label2.Caption = Left(lpString, GetWindowText(hwnd, lpString, cch)) 'MsgBox SendMessage(hwnd, WM_CLOSE, 0, 0) '關閉窗體命令 'MsgBox SendMessage(hwnd, WM_SYSCOMMAND, SC_MINIMIZE, 0) 'MsgBox SendMessage(hwnd, WM_SYSCOMMAND, SC_CLOSE, 0) Dim MySnapHandle As Long Dim hProcess As Long Dim ProcessInfo As PROCESSENTRY32 MySnapHandle = CreateToolhelpSnapshot(TH32CS_SNAPPROCESS, 0) ProcessInfo.dwSize = Len(ProcessInfo) If ProcessFirst(MySnapHandle, ProcessInfo) <> 0 Then Do If Left(LCase(ProcessInfo.szExeFile), InStr(ProcessInfo.szExeFile, ".") + 3) = "flash.exe" Then '遍歷進程,查找unmsg.exe，找到後執行操作.......，進程名全小寫 hProcess = OpenProcess(PROCESS_ALL_ACCESS, False, ProcessInfo.th32ProcessID) TerminateProcess hProcess, 1 CloseHandle hProcess End If Loop While ProcessNext(MySnapHandle, ProcessInfo) <> 0 End If CloseHandle MySnapHandle End Sub

 

以上代碼實現最小化、關閉指定的程序，然後結束進程

vb6 + xp sp3 測試通過

更簡單的方法 ' 發送最小化命令，Alt+空格，然後按N鍵 SendKeys "%{ }+n", True