用VB開發程序管理軟體

程序管理在windows

中是乙個比較重要的內容，由於每乙個正在執行的程式（包括windows的後台程式和動態鏈結庫）都對應有各自的程序，通過對程序的

管理可以防止一些非法程式（如特洛伊木馬

程式）的執行，

但是windows的任務管理器（就是按alt＋ctrl＋del後出現的那個東東）雖然能夠中止程序，不過它的程序列表裡面已經遮蔽了某些與系統

有關的程序，現在有的特洛伊木馬（如冰河）在程式設計時將自己註冊為

系統服務，因此通過windows的任務管理器並不能中止它的程序；而windows的系統資訊工具msinfo32.exe雖然能夠列出系統中所有的程序，但是並不能中止程序，所以也是於事無補。

為此我們可以自己編寫乙個程序管理

軟體，首先，它要能夠列出系統中的所有程序，其次也要能夠中止系統中任意乙個程序（當然有些程序中止後將有可能導致宕機）。

程式設計思路：列出系統程序

一般的方法是通過呼叫一組toolhelp32函式，該組函式存在於kernel32.dll鏈結庫中，它有許多

功能，而列舉系統中的程序只是它眾多功能中的一項。下面是要用到的幾個關於程序的api函式：createtoolhelpsnapshot()、processfirst()、processnext()。不知道是什麼原因，這麼重要的函式

微軟居然並沒有將其錄入到vb的api文字瀏覽器中，因此我們只好手工將其錄入了，下面是宣告：

public declare function createtoolhelpsnapshot lib "kernel32" alias "createtoolhelp32snapshot" (byval lflags as long,byval lprocessid as long) as long

public declare function processfirst lib "kernel32" alias "process32first" (byval hsnapshot as long,uprocess as processentry32) as long

public declare function processnext lib "kernel32" alias "process32next" (byval hsnapshot as long,uprocess as processentry32) as long

此外還需要定義乙個processentry32結構，這個結構中包含有有關系統中程序的某些資訊，同樣在vb中的api文字瀏覽器裡也沒有錄入。

public 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＊max_path

end type

下面是列出系統程序的步驟：

1.用createtoolhelpsnapshot()函式來建立系統中程序資訊的「快照」，該函式返回乙個控制代碼（該控制代碼將在下面的函式中得到應用）；

2.用processfirst()函式從以上「快照」中獲取程序，該函式有兩個引數，第乙個是第一步中函式返回的控制代碼，第二個是指向processentry32結構的指標，當系統中還有其它程序時，該函式返回true；

3.用processnext()函式從「快照」中不斷獲取程序，直到它返回false為止；

4.用closehandle()函式關閉第一步中的控制代碼。

關閉程序也是乙個值得討論的問題，傳統的方法是用getwindow來查詢視窗控制代碼，再利用getwindowtext來獲得視窗的標題，然後利用 sendmessage函式傳送wm_close訊息來關閉該程式。不過這種方法有很大的缺陷：首先是有的視窗是沒有標題欄的，這樣的程式是無法通過該方法關閉的；其次，這種方法對動態鏈結庫也是無法關閉的。在這裡我們可以充分利用processentry32結構，它裡面有乙個 th32processid成員，通過terminateprocess()函式就可以關閉程序。

下面是程式設計的具體步驟：

1.新建一

工程，在窗體form1中新增乙個listview控制項，二個commandbutton；

2.按如下設定控制項：command1.caption="檢視程序"；command2.caption="中止程序"；lvw.width=5400

3.在「工程」中選擇「新增模組」，加入上面的函式和結構宣告及以下內容：

public declare function terminateprocess lib "kernel32" (byval hprocess as long,byval uexitcode as long) as long

public declare function openprocess lib "kernel32" (byval dwdesiredaccess as long,byval binherithandle as long,byval dwprocessid as long) as long

public declare function closehandle lib "kernel32" (byval hobject as long) as long

public const th32cs_snapheaplist=＆h1

public const th32cs_snapthread=＆h4

public const max_path as integer=260

4.新增**：

private sub command1_click()

dim i as long

dim proc as processentry32

dim snap as long

dim exename as string

lvw.listitems.clear 注釋：清空所有內容

snap=create toolhelp snapshot(th32cs－snapall,0) 注釋：獲得程序「快照」的控制代碼

proc.dwsize=len(proc)

theloop=processfirst(snap,proc) 注釋：獲取第乙個程序，並得到其返回值

i=0

exename=proc.szexefile

ret=lvw.listitems.add(,"first" ＆ cstr(i),exename) 注釋：將程序名新增到第一項中

lvw.listitems("first" ＆ cstr(i)).subitems(1)=proc.th32processid 注釋：將程序id新增到第二項中

i=i＋1

theloop=processnext(snap,proc)

wend

closehandle snap 注釋：關閉程序「快照」控制代碼

end sub

private sub command2_click()

dim i as long

hand=openprocess(process_terminate,true,clng(lvw.selecteditem.subitems(1))) 注釋：獲取程序控制代碼

terminateprocess hand,0 注釋：關閉程序

call command1_click 注釋：呼叫檢視程序來重新整理程序列表

end sub

private sub form_load()

dim header as columnheader

lvw.view = lvwreport

lvw.columnheaders.clear

set header=lvw.columnheaders.add(,"first","程序",4000) 注釋：設定listview中專案的寬度，讀者也可自行設定

set header=lvw.columnheaders.add(,"second","id",1400)

lvw.refresh

end sub

程式的執行介面如圖所示。

程式在windows98

中文版、vb6.0中文企業版下執行通過。需要說明的是由於windows95/98與winnt

中列出系統程序的windows api函式不同，所以以上程式只能在win95/98中執行，不能在winnt及win2000

下執行。

用VB開發程序管理軟體

用VB開發程序管理軟體

管理軟體開發平台

用Delphi開發來電顯示管理軟體

用VB開發程序管理軟體

用VB開發程序管理軟體

管理軟體開發平台

用Delphi開發來電顯示管理軟體

相關推薦