VB判断进程是否存在，存在则结束进程。

VB

set /p n=请输入进程名:
echo 以分钟计算，最少1分钟
set /p t=请输入间隔时间:
set /a t1=%t%*60
:do
tasklist|find /i "%n%" &&goto loop||start "" "c:\tencent\qq.exe"
:loop
ping 127.1 -n %t1% >nul
goto do

可以用调用api 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 Const PROCESS_QUERY_INFORMATION = &H400 '参数：进程ID Function IsProcessIsRun(ByVal PID As Long) As Boolean Dim hProcess As Long hProcess = OpenProcess(PROCESS_QUERY_INFORMATION, 0&, PID) If hProcess = 0 Then IsProcessIsRun = False Exit Function End If Call CloseHandle(hProcess) IsProcessIsRun = True End Function

调用方法: if checkexeisrun("vb6.exe") then msgbox "存在" '检查进程是否运行，exename 参数是要检查的进程 exe 名字，比如 vb6.exe private function checkexeisrun(exename as string) as boolean on error goto err dim wmi dim obj dim objs checkexeisrun = false set wmi = getobject("winmgmts:") set objs = wmi.instancesof("win32_process") for each obj in objs if (instr(ucase(exename), ucase(obj.description)) <> 0) then checkexeisrun = true if not objs is nothing then set objs = nothing if not wmi is nothing then set wmi = nothing exit function end if next if not objs is nothing then set objs = nothing if not wmi is nothing then set wmi = nothing exit function err: if not objs is nothing then set objs = nothing if not wmi is nothing then set wmi = nothing end function