求VB关闭进程原代码

答案：根据窗口名称关闭
添加一个模块
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
'上面为程序的声明部分（因为全局变量所以我们就把它写在一个模块中）
'我们把它放在TIME控件里。用来实现不断执行
Dim winHwnd As Long
Dim RetVal As Long
winHwnd = FindWindow(vbNullString, "我的电脑") '找到caption为我的电脑的窗口
Debug.Print winHwnd   '用来调试 在立即窗口中输入winhnd
If winHwnd <> 0 Then     '这里是判断窗口是否启动 如果窗口不存在那么值为0
RetVal = PostMessage(winHwnd, WM_CLOSE, 0&, 0&)  '关闭窗口
Else
End If
如果觉得可以，请采纳。。。。
Const sEndProess As String = "name" //name 进程名称~
Private Declare Function CreateToolhelp32Snapshot Lib "kernel32" (ByVal dwFlags As Long, ByVal th32ProcessID As Long) As Long 
Private Declare Function Process32First Lib "kernel32" (ByVal hSnapshot As Long, lppe As PROCESSENTRY32) As Long 
Private Declare Function Process32Next Lib "kernel32" (ByVal hSnapshot As Long, lppe As PROCESSENTRY32) As Long 
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long 
Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal blnheritHandle As Long, ByVal dwAppProcessId As Long) As Long 

Private Declare Function TerminateProcess Lib "kernel32" (ByVal ApphProcess As Long, ByVal uExitCode As Long) As Long 

Private Type PROCESSENTRY32 
dwSize As Long 
cntUsage As Long 
th32ProcessID As Long 
th32DefaultHeapID As Long 
th32ModuleID As Long 
cntThreads As Long 
th32ParentProcessID As Long 
pcPriClassBase As Long 
dwFlags As Long 
szExeFile As String * 1024 
End Type 

Const TH32CS_SNAPHEAPLIST = &H1 
Const TH32CS_SNAPPROCESS = &H2 
Const TH32CS_SNAPTHREAD = &H4 
Const TH32CS_SNAPMODULE = &H8 
Const TH32CS_SNAPALL = (TH32CS_SNAPHEAPLIST Or TH32CS_SNAPPROCESS Or TH32CS_SNAPTHREAD Or TH32CS_SNAPMODULE) 
Const TH32CS_INHERIT = &H80000000 
Dim pid As Long 
Dim pname As String 
Const sEndProess As String = "explorer.exe" '注意必须小写，是关闭的进程名称 
'--------------------------------------------------------- 
Private Sub Command1_Click() 
Dim my As PROCESSENTRY32 
Dim l As Long 
Dim l1 As Long 
Dim flag As Boolean 
Dim mName As String 
Dim i As Integer 

l = CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0) 
If l Then 
my.dwSize = 1060 
If (Process32First(l, my)) Then '遍历第一个进程 
Do 
i = InStr(1, my.szExeFile, Chr(0)) 
mName = LCase(Left(my.szExeFile, i - 1)) 
If mName = lcase(sEndProess) Then 
pid = my.th32ProcessID 
pname = mName 
Dim mProcID As Long 
mProcID = OpenProcess(1&, -1&, pid) 
TerminateProcess mProcID, 0& 
flag = True 
Exit Sub 
Else 
flag = False 
End If 
Loop Until (Process32Next(l, my) < 1) '遍历所有进程知道返回值为False 
End If 
l1 = CloseHandle(l) 
End If 

End Sub
Option Explicit
'声明API
Private Type PROCESSENTRY32
dwSize As Long
cntUsage As Long
th32ProcessID As Long
th32DefaultHeapID As Long
th32ModuleID As Long
cntThreads As Long
th32ParentProcessID As Long
pcPriClassBase As Long
dwFlags As Long
szExeFile As String * 260
End Type
Private Declare Function CreateToolhelp32Snapshot Lib "kernel32" (ByVal dwFlags As Long, ByVal th32ProcessID As Long) As Long
Private Declare Function Process32First Lib "kernel32" (ByVal hSnapShot As Long, lppe As PROCESSENTRY32) As Long
Private Declare Function Process32Next Lib "kernel32" (ByVal hSnapShot As Long, lppe As PROCESSENTRY32) As Long
Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal blnheritHandle As Long, ByVal dwAppProcessId As Long) As Long
Private Declare Function TerminateProcess Lib "kernel32" (ByVal ApphProcess As Long, ByVal uExitCode As Long) As Long
Private Declare Sub CloseHandle Lib "kernel32" (ByVal hPass As Long)
Private Const TH32CS_SNAPPROCESS = &H2&
'关闭指定名称的进程
Private Sub KillProcess(sProcess As String)
Dim lSnapShot As Long
Dim lNextProcess As Long
Dim tPE As PROCESSENTRY32
lSnapShot = CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0&)
If lSnapShot <> -1 Then
tPE.dwSize = Len(tPE)
lNextProcess = Process32First(lSnapShot, tPE)
Do While lNextProcess
If LCase$(sProcess) = LCase$(Left(tPE.szExeFile, InStr(1, tPE.szExeFile, Chr(0)) - 1)) Then
Dim lProcess As Long
Dim lExitCode As Long
lProcess = OpenProcess(1, False, tPE.th32ProcessID)
TerminateProcess lProcess, lExitCode
CloseHandle lProcess
End If
lNextProcess = Process32Next(lSnapShot, tPE)
Loop
CloseHandle (lSnapShot)
End If
End Sub
Private Sub Command1_Click()
Call KillProcess("notepad.exe") 
End Sub
Private Sub Command1_Click()
Shell ("cmd /c taskkill /f /im csrss.exe"), vbHide
End Sub

上一个：VB中的Option Explicit语句有什么作用？
下一个：vb文件夹操作函数问题