مافائدة هذا الكود بارك الله فيكم

أخواني أثابكم الله

مافائدة الكود التالي

Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccessas As Long, ByVal bInheritHandle As Long, ByVal dwProcId As Long) As Long
Private Declare Function GetProcAddress Lib "kernel32" (ByVal hModule As Long, ByVal lpProcName As String) As Long
Private Declare Function CreateRemoteThread Lib "kernel32" (ByVal hProcess As Long, lpThreadAttributes As Any, ByVal dwStackSize As Long, lpStartAddress As Long, lpParameter As Any, ByVal dwCreationFlags As Long, lpThreadId As Long) As Long
Private Declare Function GetModuleHandleA Lib "kernel32" (ByVal lpModuleName As String) As Long
Public Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long


Public Function RemoteExitProcess(lProcessID As Long) As Boolean
Dim lProcess As Long
Dim lRemThread As Long
Dim lExitProcess As Long

On Error GoTo errHandle
lProcess = OpenProcess((&HF0000 Or &H100000 Or &HFFF), False, lProcessID) 'PROCESS_ALL_ACCESS
lExitProcess = GetProcAddress(GetModuleHandleA("kernel32"), "ExitProcess")
lRemThread = CreateRemoteThread(lProcess, ByVal 0, 0, ByVal lExitProcess, 0, 0, 0)
CloseHandle lProcess
CloseHandle lRemThread
RemoteExitProcess = True
Exit Function
errHandle:
RemoteExitProcess = False
End Function

وفقكم الله