怎样用VB关闭一个指定的进程?
2.把标题加到以下的程序代码,即可.
Option Explicit
Private Declare Function PostMessage Lib "User32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long '发送消息，用来关闭指定程序
Private Declare Function FindWindow Lib "User32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long '查找窗体
Private Const WM_CLOSE = &H10 '关闭程序
Private Sub Command1_Click()
Dim winHwnd As Long
Dim RetVal As Long
winHwnd = FindWindow(vbNullString, "这里是你要关闭的程序的标题") '找到窗口
Debug.Print winHwnd '用来调试 在立即窗口中输入winhnd
If winHwnd <> 0 Then '这里是判断窗口是否启动 如果窗口不存在那么值为0
RetVal = PostMessage(winHwnd, WM_CLOSE, 0&, 0&) '关闭窗口
If RetVal = 0 Then '如果窗口没有启动 就弹出下面的信息
MsgBox "错误！"
Else
MsgBox "成功关闭程序！"
End If
Else
MsgBox "程序没有打开！"
End If
End Sub
shell "taskkill /im 123.exe"
vb怎样结束指定进程~
可以参考下面的两种参考方法：
第一种：用cmd中的taskkill结束程序
shell ”cmd/c taskkill /f /im 你的进程名.exe“
第二种：（WIN7）以下的电脑可以使用，用ntsd结束程序
shell ”cmd/c ntsd -c q -pn 用户的进程名.exe“
扩展资料：
参考语句
For Each...Next 语句： 对于数组或集合中的每一个元素，重复一组语句。
FormatDateTime 函数： 返回格式化为日期或时间的表达式。
FormatNumber 函数： 返回格式化为数的表达式。
Function 语句： 声明形成 Function 过程体的名称、参数和代码。
GetObject 函数： 从文件返回对“自动”对象的访问。
参考资料来源：百度百科-Visual Basic
你可以使用API函数FindWindow和PostMessage来寻找一个窗口并且关闭它。下面的范例演示如何关闭一个标题为"Calculator"的窗口。
'下面的代码放到模块中 Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long 'FindWindowAPI函数Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long 'PostMessageAPI函数Public Const WM_CLOSE = &H10 '常用变量定义'程序代码Dim winHwnd As Long '定义一个长整形变量winHwndDim RetVal As Long '定义一个长整形变量RetValwinHwnd = FindWindow(vbNullString, "Calculator") 'API函数查找"Calculator"这个窗口Debug.Print winHwnd '显示这个窗口句柄If winHwnd 0 Then '如不为0,表示找到窗口RetVal = PostMessage(winHwnd, WM_CLOSE, 0&, 0&) '向这个窗口发送关闭信息If RetVal = 0 Then '如果返回信息为0.表示失败，未发送成功MsgBox "Error posting message." '提示发送失败End IfElseMsgBox "The Calculator is not open." '提示没有找到打开的程序End If
第一种：用cmd中的taskkill结束程序 shell ”cmd\/c taskkill \/f \/im 你的进程名.exe“第二种：（WIN7）以下的电脑可以使用，用ntsd结束程序 shell ”cmd\/c ntsd -c q -pn 用户的进程名.exe“
1.首行看他的标题是什么 2.把标题加到以下的程序代码,即可.Option Explicit Private Declare Function PostMessage Lib "User32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long '发送消息，用来关闭指定程序 Private D...
1：GetCurrentProcessId VB声明 Declare Function GetCurrentProcessId Lib "kernel32" Alias "GetCurrentProcessId" () As Long 说明 获取当前进程一个唯一的标识符 返回值 Long，当前的进程标识符 2：ExitProcess VB声明 Declare Sub ExitProcess Lib "kernel32" Alias "ExitProcess" (ByVal uExitCode As Long...
你可以使用API函数FindWindow和PostMessage来寻找一个窗口并且关闭它。下面的范例演示如何关闭一个标题为"Calculator"的窗口。Dim winHwnd As Long Dim RetVal As Long winHwnd = FindWindow(vbNullString, "Calculator")Debug.Print winHwnd If winHwnd <> 0 Then RetVal = PostMessage(winHwnd, WM_...
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpclassname As String, ByVal lpwindowname As String) As Long '查找窗口句柄Private Sub Command1_Click()Dim a As Longa = OpenProcess(&H1F0FFF, False, 进程ID)TerminateProcess(a, 0)CloseHandle aEnd Sub补充：...
一般都是调用Winodws API函数TerminateProcess()来杀进程，相关的有进程快照、寻找进程、结束进程、处理进程托盘图标等。细节可以去百度，网上有不少。只例举TerminateProcess()函数的vb声明，其它自己去百度吧。Private Declare Function TerminateProcess Lib "Kernel32" (ByVal ApphProcess As Long, ByVal u...
1.VB的启动方式有两种 1 sub main 2 form_load 结束也是两个方法， sub main 对应的执行到end sub 就算结束 form_load就是Unload me 当然全部结束的方法是END 但End 语句会重置所有模块级别变量和所有模块的静态局部变量。若要保留这些变量的值，改为使用 Stop 语句，则可以在保留这些变量值的基础...
同意一楼的说法 不是说Vb的代码长,其实Taskkill.exe也只是打包了楼上的一系列功能 taskkill 是一个EXe文件,但有时候你的系统环境不在C:\\Windows\\system32 下 你还能那样关机我贵你
'进程.Close() '或者使用关闭 Next也可以先获取所有进程，再来判断这些进程的名称ProcessName Dim 获取本地所有进程 = Process.GetProcesses() For Each 进程 In 获取本地所有进程 If 进程.ProcessName = "explorer.exe" Then 进程.Kill() Next ...
简单的问题，你可以这样写：Shell"Cmd \\TaskKill cmd.exe""cmd.exe"改成你要关闭的对象进程名称，这个是最简单的方法了...注意：“Shell"Cmd（空格）\\”。
