新生儿淹脖子用香油:关闭指定的程序

92、关闭指定的程序
要做到像 Task Manager 一样，可以关闭指定的程序，方法如下：
在声明区中放入以下声明：(16位　改成 win31 API)
Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Public Const WM_CLOSE = &H10
以下之范例示范如何关闭一个视窗标题 (Caption) 为 【小算盘】的程序：
Dim winHwnd As Long
Dim RetVal As Long
winHwnd = FindWindow(vbNullString, "小算盘")
Debug.Print winHwnd
If winHwnd <> 0 Then
RetVal = PostMessage(winHwnd, WM_CLOSE, 0&, 0&)
If RetVal = 0 Then
MsgBox "Error posting message."
End If
Else
MsgBox "并未开启小算盘程序."
End If

某个程序在指定时间自动关闭? 寻找一个能定时关闭，启动程序的软件，例如每隔10分钟，自动关闭某一指定软件，再启动。 有软件能在指定时间内关闭某程序吗? 怎么关闭一个指定的端口 关闭没用的程序 关闭光驱的程序 这么指定程序通过指定的路由器访问网络 编写程序，查找一个指定的字符 请问如何禁用一个指定的程序？ 怎样禁止下载指定的程序 VB 关闭指定进程. 关闭指定窗口-Javascript 如何关闭指定端口? 怎样关闭所有的程序？ 关闭程序时的错误 突然关闭所有的程序 如何关闭运行的程序 怎么彻底的关闭程序？ C#中如何关闭指定的窗口或结束进程 什么软件可以关闭指定浏览范围的网站 如何在XP的cmd命令行中关闭指定进程 程序关闭 任务管理器也关闭不了的程序该如何关闭 有没有办法让指定的程序以指定的其他用户运行