如果用VB获取某个进程的PID,要简单的!

新建个模块然后加入以下代码

Option Explicit

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

Public 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

Private Declare Sub CloseHandle Lib "kernel32" (ByVal hPass As Long)

Private Const TH32CS_SNAPPROCESS = &H2&

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

Const PROCESS_TERMINATE = 1

Function GetPsPid(sProcess As String) As Long

Dim lSnapShot As Long

Dim lNextProcess As Long

Dim tPE As PROCESSENTRY32

lSnapShot = CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0&)

If lSnapShot <> -1 Then

tPEdwSize = Len(tPE)

lNextProcess = Process32First(lSnapShot, tPE)

Do While lNextProcess

If LCase$(sProcess) = LCase$(Left(tPEszExeFile, InStr(1, tPEszExeFile, Chr(0)) - 1)) Then

Dim lProcess As Long

Dim lExitCode As Long

GetPsPid = tPEth32ProcessID

CloseHandle lProcess

End If

lNextProcess = Process32Next(lSnapShot, tPE)

Loop

CloseHandle (lSnapShot)

End If

End Function

调用GetPsPid("进程名")

在form1窗体是加入按钮控件和编辑框控件然后计入代码运行输入进程名然后就可以

看到pid了。

Private Sub Command1_Click()

Print GetPsPid(Text1Text)

End Sub

经过测试完全可用。。。。。就这样了

这个就算最简单的API函数的 声明了。模块部分都是一样的

记得某unix教程上说的system(2)函数也是fork(2)和execl(2)的组合（也许是我想当然了，但确实能这样实现）。

也就是说system是在子进程中执行的，等同于if (fork() == 0) {execl()}了，子进程的状态，当然可以通过waitpid来得到。

CMD下查看进程 如果打不开任务管理器和注册表编辑器的话必须这么做，能直接打开任务管理器然后结束它更好）能直接打开任务管理器和注册表的话直接打开。

开始菜单－运行－输入CMD命令打开CMD窗口；

输入命令tasklist回车查看一下

有进程如：svohostexe(虽然他禁用了任务管理器,但在CMD下用tasklist命令还是可以查看到进程信息的)。

二、 cmd下结束进程的方法 2008-10-30 14:09 1 taskkill (s / system, u / username, p / password, fi / fitel , pid / processid, im /imagename, /f /t/S system 指定要连接到的远程系统/U [domain\]user 指定应该在哪个用户上下文执行这个命令。/P [password] 为提供的用户上下文指定密码。如果忽略，提示输入/F 指定要强行终止进程/FI filter 指定筛选进或筛选出查询的任务/PID process id 指定要终止的进程的PID/IM image name 指定要终止的进程的图像名/T Tree kill: 终止指定的进程和任何由此启动的子进程实例：Taskkill /s server /u administrator /p /f /im hldsexe强行终止server上的hldsexe(正在运行的CS服务器）2 ntsd在一台正常的专业版XP里，打开cmd,出现命令提示窗口。首选用tasklist或是任务管理器或是其他软件查出想要结束进程的ID，然后利用ntsd -c q -p PID就可以搞定这个进程了。

要让我说理由，我对这个说不大清楚，网上找了一下资料说

ntsd -c q -p PID

PID说的是进程的进程号。进程号可以在任务管理器里查

debug权限是向方便开发人员提供的一个调试,只有系统开发人员使用此命令

运行ntsd自动就获得了debug权限，从而能杀掉大部分的进程。

这样也就是说，理论上除了System、SMSSEXE和CSRSSEXE不能杀，因为ntsd依赖它们。你看情况给我最优吧。

以上就是关于如果用VB获取某个进程的PID,要简单的!全部的内容，包括:如果用VB获取某个进程的PID,要简单的!、子进程中如何获得system执行的PID、cmd命令怎么获取某个具体的进程pid等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！