|
|
|
|
Win32彙編教程十一
您是第
345個瀏覽者
概述 進程控制簡單的說相當於在一個程式中執行另一個程式，你可以把它想像成在 Dos 下用 int 21h/4bh 功能來執行另外一個程式，如果單從執行另一個程式的目的來講，在 Windows 中有不少方法，如使用 ShellExecute 等，但這些 Api 僅僅是“執行”而已，進程控制的意義在於可以創建一個進程，並可以通過進程控制碼結束進程，同樣你也可以通過進程控制碼來跟蹤程式，還可以用 ReadProcessMemory 和 WriteProcessMemory 來讀寫子進程的記憶體空間。
進程控制要使用的相關 API 有下面這些：
創建進程的函數為CreateProcess，該函數比較複雜，共有十個參數，但有個好消息是使用時大部分可以用 NULL。
BOOL CreateProcess(
LPCTSTR lpApplicationName, // 執行程式檔案名
LPTSTR lpCommandLine, // 參數行
LPSECURITY_ATTRIBUTES lpProcessAttributes, // 進程安全參數
LPSECURITY_ATTRIBUTES lpThreadAttributes, // 線程安全參數
BOOL bInheritHandles, // 繼承標記
DWORD dwCreationFlags, // 創建標記
LPVOID lpEnvironment, // 環境變數
LPCTSTR lpCurrentDirectory, // 運行該子進程的初始目錄
LPSTARTUPINFO lpStartupInfo, // 創建該子進程的相關參數
LPPROCESS_INFORMATION lpProcessInformation // 創建後用於被創建子進程的資訊
);
各個參數的說明如下：
lpApplicationName：為執行程式的檔案名，你也可以把執行檔案名包括在下一個參數 lpCommandLine 中，然後把該參數置為NULL。
lpCommandLine：為參數行，如果無參數可以為NULL，在有參數傳遞給進程時可以如下設置：lpApplicationName=檔案名；lpCommandLine=參數，或者 lpApplicationName=NULL；lpCommandLine=檔案名 + 參數。
lpProcessAttributes，lpThreadAttributes：分別描述了創建的進程和線程安全屬性，如果使用NULL表示使用默認的安全描述。
bInheritHandles：表示當前進程中的打開的控制碼是否能夠被創建的子進程所繼承。
dwCreationFlags：表示創建標記，通過該標記可以設置進程的創建狀態和優先順序別。常用的有下面的標記：
CREATE_NEW_CONSOLE：為子進程創建一個新的控制臺。
CREATE_SUSPENDED：子進程在創建時為掛起狀態。如果指定了這個參數，那麼執行 CreateProcess 後進程只是被裝入記憶體，但不是馬上開始執行，而是必須等主程序調用 ResumeThread 後才繼續執行。
HIGH_PRIORITY_CLASS/NORMAL_PRIORITY_CLASS：高/普通優先順序別。
lpEnvironment：表示子進程所使用的環境變數，如果為NULL，則表示與當前進程使用相同的環境變數。
lpCurrentDirectory：表示子進程運行的初始目錄。
lpStartupInfo：STARTUPINFO 結構，用於在創建子進程時設置各種屬性。
lpProcessInformation：PROCESS_INFORMATION 結構，用來在進程創建後接收相關資訊，該結構由系統填寫。
調用 CreateProcess 函數有三個參數是必需的，一在 lpApplicationName 或 lpCommandLine 指定檔案名，二是 lpStartupInfo 結構，三是 PROCESS_INFORMATION 結構，因為 PROCESS_INFORMATION 結構返回了進程建立後的控制碼，以後的一切操作將要用到這些返回的控制碼，它是由系統填寫的，結構說明如下：
typedef struct _PROCESS_INFORMATION {
HANDLE hProcess; //進程控制碼
HANDLE hThread; //進程的主線程控制碼
DWORD dwProcessId; //進程ID
DWORD dwThreadId; //進程的主線程ID
} PROCESS_INFORMATION;
另外還有一個關鍵的結構 STARTUPINFO，該結構定義如下：
typedef struct STARTUPINFO {
DWORD cb; //結構長度
LPTSTR lpReserved; //保留
LPTSTR lpDesktop; //保留
LPTSTR lpTitle; //如果為控制臺進程則為顯示的標題
DWORD dwX; //窗口位置
DWORD dwY; //窗口位置
DWORD dwXSize; //窗口大小
DWORD dwYSize; //窗口大小
DWORD dwXCountChars; //控制臺視窗字元號寬度
DWORD dwYCountChars; //控制臺視窗字元號高度
DWORD dwFillAttribute; //控制臺視窗填充模式
DWORD dwFlags; //創建標記
WORD wShowWindow; //視窗顯示標記，如同ShowWindow中的標記
WORD cbReserved2; //
LPBYTE lpReserved2; //
HANDLE hStdInput; //標準輸入控制碼
HANDLE hStdOutput; //標準輸出控制碼
HANDLE hStdError; //標準錯誤控制碼
} STARTUPINFO, *LPSTARTUPINFO;
結構中 dwFlags 指定了其他的一些欄位是否有效，如：dwFlags包含 STARTF_USESIZE 表示dwXSize和dwYSize有效，包含STARTF_USEPOSITION表示dwX和dwY有效，等等。如果不是有特殊的要求，我們不用自己去填寫這個結構，只需用 GetStartupInfo 讓 Windows 為你填寫好了，這樣，建立一個進程的語句就是：
...
stStartUp STARTUPINFO stProcInfo PROCESS_INFORMATION <?>
stProcInfo PROCESS_INFORMATION <?>
...
invoke GetStartupInfo,addr stStartUp
invoke CreateProcess,NULL,addr szFileName,NULL,NULL,NULL,NORMAL_PRIORITY_CLASS,NULL,NULL,offset stStartUp,offset stProcInfo
...
如果成功的話，eax 將返回非零值，注意返回在 PROCESS_INFORMATION 結構中的 hProcess，以後很多的操作都要用到它。
強制結束一個進程的 API 為 TerminateProcess
BOOL TerminateProcess(
HANDLE hProcess, // 進程控制碼
UINT uExitCode // 退出代碼
);
你可以使用語句 invoke TerminateProcess,structProcInfo.hProcess,0 來結束進程，要注意的是如果可能的話，儘量不要在程式中強制結束別的進程，因為使用 TerminateProcess 結束的進程，它裝載的 dll 不能被正確卸載。這樣可能會引起系統資源的無效佔用。最好的辦法在進程中自己使用 ExitProcess 退出。
查詢一個進程狀態的 API 為 GetExitCodeProcess。
BOOL GetExitCodeProcess(
HANDLE hProcess, // handle to the process
LPDWORD lpExitCode // address to receive termination status
);
如果進程尚未退出，函數將會返回STILL_ACTIVE。這個 API 是馬上返回的。
等待進程執行可以用 WaitForSingleObject
這個 API 並不是單用於進程的等待，其他還可以用線上程等操作，但我們一般用它來等待進程的執行，它的申明是：
DWORD WaitForSingleObject(
HANDLE hHandle, // handle of object to wait for
DWORD dwMilliseconds // time-out interval in milliseconds
);
如果我們要等待進程執行 1 秒鐘，可以 invoke WaitForSingleObject,stProcInfo.hProcess,1000 如果要等到進程結束，可以用 WaitForSingleObject,stProcInfo.hProcess,INFINITE ，參數 2 中的 INFINITE 在 Windows.inc 中有定義，意思是無窮等待。
最後，當不再使用進程控制碼的時候，不要忘了使用 CloseHandle 關閉 hProcess 和 hThread，否則會浪費系統控制碼的資源。
根源程式 - 彙編原始檔案
.386
.model flat, stdcall
option casemap :none ; case sensitive
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
; Include 數據
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
include windows.inc
include user32.inc
include kernel32.inc
include comctl32.inc
include comdlg32.inc
include gdi32.inc
includelib user32.lib
includelib kernel32.lib
includelib comctl32.lib
includelib comdlg32.lib
includelib gdi32.lib
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
; Equ 數據
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
DLG_MAIN equ 3000
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
ID_BROWSE equ 3001
ID_RUN equ 3002
ID_EXIT equ 3003
ID_TEXT equ 3004
F_RUNNING equ 0001h ;進程在運行中
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
; 資料段
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
.data?
stStartUp STARTUPINFO <?>
stProcInfo PROCESS_INFORMATION <?>
stOpenFileName OPENFILENAME <?>
hRunThread dd ?
hInstance dd ?
hWinMain dd ?
hIcon dd ?
szBuffer db 512 dup (?)
dwFlag dd ?
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
.data
szExcute db '執行(&E)',0 ;按鈕文字
szKill db '終止(&E)',0
szExcuteError db '啟動應用程式錯誤！',0
szTitleOpen db "Open executable file...",0
szExt db '*.exe',0
szFilter db 'Excutable Files',0,'*.exe;*.com',0
db 0
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
; 代碼段
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
.code
if DEBUG
include Debug.asm
endif
include Win.asm
;********************************************************************
; 執行程式用的線程
; 1. 用 CreateProcess 建立進程
; 2. 用 WaitForSingleOject 等待進程結束
;********************************************************************
_RunThread proc uses ebx ecx edx esi edi,\
dwParam WORD
or dwFlag,F_RUNNING
;********************************************************************
; 取消“退出”按鈕並把“執行”按鈕改為“中止”
;********************************************************************
invoke GetDlgItem,hWinMain,ID_EXIT
invoke EnableWindow,eax,FALSE
invoke SendDlgItemMessage,hWinMain,ID_RUN,WM_SETTEXT,0,offset szKill
;********************************************************************
; 執行檔，如果成功則等待程式結束
;********************************************************************
invoke GetStartupInfo,addr stStartUp
invoke CreateProcess,NULL,addr szBuffer,NULL,NULL,\
NULL,NORMAL_PRIORITY_CLASS,NULL,NULL,offset stStartUp,offset stProcInfo
.if eax != 0
invoke WaitForSingleObject,stProcInfo.hProcess,INFINITE
invoke CloseHandle,stProcInfo.hProcess
invoke CloseHandle,stProcInfo.hThread
.else
invoke MessageBox,hWinMain,addr szExcuteError,NULL,MB_OK or MB_ICONERROR
.endif
;********************************************************************
; Enable “退出”按鈕並把“中止”按鈕改為“執行”
;********************************************************************
invoke GetDlgItem,hWinMain,ID_EXIT
invoke EnableWindow,eax,TRUE
invoke SendDlgItemMessage,hWinMain,ID_RUN,WM_SETTEXT,0,offset szExcute
and dwFlag,not F_RUNNING
ret
_RunThread endp
;********************************************************************
; 視窗程式
;********************************************************************
DialogMainProc proc uses ebx edi esi, \
hWndWORD,wMsgWORD,wParam:DWORD,lParam:DWORD
mov eax,wMsg
;********************************************************************
.if eax == WM_INITDIALOG
mov eax,hWnd
mov hWinMain,eax
call _Init
;********************************************************************
.elseif eax == WM_CLOSE
invoke EndDialog,hWinMain,NULL
;********************************************************************
.elseif eax == WM_COMMAND
mov eax,wParam
.if ax == ID_BROWSE
call _BrowseFile
call _CheckText
.elseif ax == ID_TEXT
invoke GetDlgItemText,hWinMain,ID_TEXT,addr szBuffer,512
call _CheckText
.elseif ax == ID_RUN
;********************************************************************
; 如果沒有在執行中(dwFlag 沒有置位) 則建立線程，線上程中執行程式
; 如果已經在執行中，則用 TerminateProcess 終止執行
;********************************************************************
test dwFlag,F_RUNNING
.if ZERO?
invoke CreateThread,NULL,NULL,offset _RunThread,\
NULL,NULL,offset hRunThread
.else
invoke TerminateProcess,stProcInfo.hProcess,-1
.endif
.elseif ax == ID_EXIT
invoke EndDialog,hWinMain,NULL
.endif
.else
;********************************************************************
; 注意：對話方塊的消息處理後，要返回 TRUE,對沒有處理的消息
; 要返回 FALSE
;********************************************************************
mov eax,FALSE
ret
.endif
mov eax,TRUE
ret
DialogMainProc endp
;********************************************************************
; 程式入口
;********************************************************************
start:
invoke InitCommonControls
invoke GetModuleHandle,NULL
mov hInstance,eax
invoke DialogBoxParam,hInstance,DLG_MAIN,NULL,offset DialogMainProc,0
invoke ExitProcess,NULL
;********************************************************************
_Init proc
invoke _CenterWindow,hWinMain
invoke SendDlgItemMessage,hWinMain,ID_TEXT,EM_LIMITTEXT,512,NULL
invoke GetDlgItem,hWinMain,ID_RUN
invoke EnableWindow,eax,FALSE
ret
_Init endp
;********************************************************************
; 根據 text control 中有無字元決定是否將“執行”按鈕 Disable 掉
;********************************************************************
_CheckText proc
invoke GetDlgItemText,hWinMain,ID_TEXT,addr szBuffer,512
invoke lstrlen,addr szBuffer
.if eax != 0 || (dwFlag & F_RUNNING)
invoke GetDlgItem,hWinMain,ID_RUN
invoke EnableWindow,eax,TRUE
.else
invoke GetDlgItem,hWinMain,ID_RUN
invoke EnableWindow,eax,FALSE
.endif
ret
_CheckText endp
;********************************************************************
_BrowseFile proc
mov stOpenFileName.Flags,OFN_PATHMUSTEXIST or OFN_FILEMUSTEXIST
mov stOpenFileName.lStructSize,SIZEOF stOpenFileName
mov eax,hWinMain
mov stOpenFileName.hwndOwner,eax
mov stOpenFileName.lpstrFilter,offset szFilter ;副檔名
mov stOpenFileName.lpstrFile,offset szBuffer ;檔案名緩衝
mov stOpenFileName.nMaxFile,512 ;檔案名緩衝長度
mov stOpenFileName.lpstrInitialDir,0
mov stOpenFileName.lpstrTitle,offset szTitleOpen
mov stOpenFileName.lpstrDefExt,offset szExt
invoke GetOpenFileName,offset stOpenFileName
.if eax == FALSE
ret
.endif
invoke SetDlgItemText,hWinMain,ID_TEXT,addr szBuffer
ret
_BrowseFile endp
;********************************************************************
end start
程式的分析和要點
本程式在使用調用 GetOpenFileName 或者自己在文本框中輸入執行檔案名，然後通過 CreateProcess 建立進程，最後用 WaitForSingleObject 等待進程結束，如果在對話方塊的處理過程中等待會導致程式在進程返回前無法回應，所以程式中用 CreateThread 建立一個線程來實現這個過程，當子過程返回的時候，線程結束。dwFlag 中的 0 位元作為標誌位元，表示是否子過程在運行中，如果這一位置 1 的話，按下“終止”按鈕會用 TerminateProcess 來強制終止子進程。
實用相關搜尋: map nds bus lg cat cx it ati model sm
|
〓中國黑客聯盟（CHU）〓前核心成員，現為榮譽會員
〓中國黑客聯盟（CHU）〓網絡電子雜誌《矩陣》編輯
風堂技術工作室
|
|
|
|
設為首頁
加入收藏
