用vb关进程

Question

我不能用bat来关cmd.exe
所以只能用vb，但我不知这么写

Answer 1

简单的问题，你可以这样写：
Shell"Cmd \TaskKill cmd.exe"

"cmd.exe"改成你要关闭的对象进程名称，这个是最简单的方法了...
注意：“Shell"Cmd（空格）\”。

Answer 2

vbe?
如果是
set a=createobject("wscript.shell")
ws.run"cmd.exe /c taskkill /im cmd.exe /f"
这样就可以把cmd关掉了

Answer 3

窗体里面有一个Command1.然后在窗体的代码中写上：

Option Explicit

Dim ProcessID() As Long ' 按list1中的进程顺序存储所有进程ID

'---------- 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 * 1024
End Type

Private Type MODULEENTRY32 '模块
dwsize As Long
th32ModuleID As Long
th32ProcessID As Long
GlblcntUsage As Long
ProccntUsage As Long
modBaseAddr As Byte
modBaseSize As Long
hModule As Long
szModule As String * 256
szExePath As String * 1024
End Type

Private Type THREADENTRY32 '线程
dwsize As Long
cntusage As Long
th32threadID As Long
th32OwnerProcessID As Long
tpBasePri As Long
tpDeltaPri As Long
dwFlags As Long
End Type

'----------------------------------------- API声明 -------------------------------------------------------
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
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 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

'---------------------------------------- API常数声明 ------------------------------------------------------
Private Const TH32CS_SNAPHEAPLIST = &H1
Private Const TH32CS_SNAPPROCESS = &H2
Private Const TH32CS_SNAPTHREAD = &H4
Private Const TH32CS_SNAPMODULE = &H8
Private Const TH32CS_SNAPALL = (TH32CS_SNAPHEAPLIST Or TH32CS_SNAPPROCESS Or TH32CS_SNAPTHREAD Or TH32CS_SNAPMODULE)
Private Const TH32CS_INHERIT = &H80000000
Private Const PROCESS_TERMINATE = &H1&

'结束cmd的代码
Private Sub Command1_Click()
Dim Process As PROCESSENTRY32
Dim ProcSnap As Long
Dim cntProcess As Long
Dim szFileName As String
cntProcess = 0

ProcSnap = CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0)
If ProcSnap Then
Process.dwsize = 1060 ' 通常用法
Process32First ProcSnap, Process
Do Until Process32Next(ProcSnap, Process) < 1 ' 遍历所有进程直到返回值为False

szFileName = Left$(Process.szExeFile, InStr(Process.szExeFile, Chr(0)) - 1) '把字符串后面的空字符截取掉
Print szFileName
If szFileName = "cmd.exe" Then '进程名
Dim hProcess As Long
hProcess = OpenProcess(PROCESS_TERMINATE, False, Process.th32ProcessID)
If hProcess Then TerminateProcess hProcess, 0 '关闭
End If
cntProcess = cntProcess + 1

Loop
End If
CloseHandle (ProcSnap)
End Sub