API获取进程句柄终止结束进程

.子程序 取进程ID, 整数型
.参数 processName, 文本型
.局部变量 windSnapshotHandle, 整数型
.局部变量 processHandle, 整数型
.局部变量 information, process

' 自定义数据库类型中的 process 里面的东西是抄袭的别人的.里面连七八招的东西,俺也看不懂.在百度输入:process32first 你就知道....
windSnapshotHandle ＝ _创建快照 (15, 0)
.如果真 (windSnapshotHandle ≠ 0)
information.dwSize ＝ 1024
processHandle ＝ _第一个 (windSnapshotHandle, information)
.判断循环首 (processHandle ≠ 0)
.如果真 (到小写 (到文本 (information.进程名称)) ＝ 到小写 (processName))
_关闭对象 (windSnapshotHandle)
返回 (information.srgyvr)
.如果真结束
processHandle ＝ _下一个 (windSnapshotHandle, information)
.判断循环尾 ()
.如果真结束
返回 (-1)