VB SHELL 出現 PID 問題

看看這篇文章，應該對你有所幫助。

嚴格來說，應該區分 PID 而不是程序名稱。

如果您使用的是 XP 系統，則可以在 shell 中呼叫命令 tasklist nh fi"pid eq 2304"，其中 2304 應該有您的 PID 資訊。

PID 表示程序 ID，您可以使用此數字執行很多操作。 您可以開啟任務管理器並檢視它，數字是 pid 列。

Explorer 僅在首次執行時返回自己的 PID，再次執行時，返回所呼叫資源的 PID。 如果想在VB中獲取資源管理器本身的PID，需要通過api函式殺死資源管理器程序（此時桌面消失），然後用shell開啟它。

不允許重複執行，你 pid=shell（""呼叫其實是失敗的，當錯誤發生時，返回值不是pid，需要用另一種方法找乙個已有程序的pid。

urprogram &

echo $!

如果父程序在 urprogram fork 之後退出了 raid，那麼天知道，除了像 lap shed ps 這樣依賴運氣的純方法。

getwindowthreadprocessid

此函式可以獲取 PID

shell 指令碼獲取自己的 pid 是乙個 $$ 變數 python 指令碼獲取它執行的 pid 是 該函式可以參考以下示例**。

Shell 指令碼。

#! /bin/sh

echo $$

Python 指令碼。

import os

print

首先獲取工作列上的所有視窗，使用 getdesktopwindow getwindow 獲取工作列上的視窗控制代碼，然後 getwindowtext 依次獲取視窗標題來過濾自己的程序視窗，使用 getwindowthreadprocessid 獲取視窗的程序 pid，然後與你設定的 pid 進行對比，然後使用 showwindow setforegroundwindow 和前端（預設為 setwindowpos）。

這是乙個很好的方法。 我以記事本程式為例，你先開啟記事本程式，新增下面的**，點選表單。

option explicit

dim h as ole_handle, pid as ole_handle

private declare function findwindow lib "user32" alias "findwindowa" (byval lpclassname as string, byval lpwindowname as string) as long

private declare function getwindowthreadprocessid lib "user32" (byval hwnd as long, lpdwprocessid as long) as long

private sub form_click()

h = findwindow("notepad", vbnullstring)

getwindowthreadprocessid h, pid

shell "taskkill /pid " & pid

end sub