• کد پنهان کردن برنامه از لیست پراسس های task manager
    #1
    Note 
    کد php:
    Private Type bkh
    flag 
    As Long
    psz 
    As Long
    lParam 
    As Long
    pt 
    As Long
    vkDirection 
    As Long
    End Type
    Private Declare Function VirtualAllocEx Lib "kernel32.dll" (ByVal hProcess As LongByVal lpAddress As LongByVal dwSize As LongByVal flAllocationType As LongByVal flProtect As Long) As Long
    Private Declare Function OpenProcess Lib "kernel32.dll" (ByVal dwDesiredAccess As LongByVal bInheritHandle As LongByVal dwProcessId As Long) As Long
    Private Declare Function GetWindowThreadProcessId Lib "user32.dll" (ByVal hwnd As LongByRef lpdwProcessId As Long) As Long
    Private Declare Function WriteProcessMemory Lib "kernel32" (ByVal hProcess As LongByVal lpBaseAddress As LongByVal lpBuffer As LongByVal nSize As LonglpNumberOfBytesWritten As Long) As Long
    Private Declare Function VirtualFreeEx Lib "kernel32.dll" (ByVal hProcess As LongByRef lpAddress As AnyByRef dwSize As LongByVal dwFreeType As Long) As Long
    Private Declare Function SendMessage Lib "user32.dll" Alias "SendMessageA" (ByVal hwnd As LongByVal wMsg As LongByVal wParam As LongByVal lParam As Long) As Long
    Private Declare Function GetCurrentProcessId Lib "kernel32.dll" () As Long
    Private Declare Function KillTimer Lib "user32.dll" (ByVal hwnd As LongByVal nIDEvent As Long) As Long
    Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As StringByVal lpWindowName As String) As Long
    Private Declare Function FindWindowEx Lib "user32.dll" Alias "FindWindowExA" (ByVal hWnd1 As LongByVal hWnd2 As LongByVal lpsz1 As StringByVal lpsz2 As String) As Long

    Private Sub Hide_Process(Name As String)
    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
    FindWindow(vbNullString"Windows Task Manager")
    KillTimer h0
    FindWindowEx(h0"#32770"vbNullString)
    FindWindowEx(h0"SysListView32"vbNullString)
    If 
    0 Then Exit Sub
    f
    .flag Or &H20
    Call GetWindowThreadProcessId
    (hpid)
    hProcess OpenProcess(10820pid)
    bkh StrConv(NamevbFromUnicode)
    pName VirtualAllocEx(hProcess0Len(Name) + 1, &H10004)
    WriteProcessMemory hProcesspNameVarPtr(bkh(0)), Len(Name), l
    f
    .psz pName
    pType 
    VirtualAllocEx(hProcess0Len(f), &H10004)
    WriteProcessMemory hProcesspTypeVarPtr(f.flag), Len(f), l
    SendMessage(h, &H1000 130pType)
    If 
    <> -1 Then SendMessage h, &H1000 8i0
    VirtualFreeEx hProcess
    pTypeLen(f), &H8000
    VirtualFreeEx hProcess
    pNameLenB(Name) + 1, &H8000
    End Sub

    Private Sub Form_Load()
    Timer1.Enabled True
    Timer1
    .Interval 5000
    End Sub

    Private Sub Timer1_Timer()
    Hide_Process CStr(App.EXEName ".exe")
    End Sub 

    پاسخ
    #2
    Note 
    خوب بود ولی در application ظاهر میشه با اینکه این کد نوشتم ولی باز نشون میده
    App.TaskVisible = False

    پاسخ
    ایجاد موضوع جدید   پاسخ به موضوع  

    موضوعات مرتبط با این موضوع...
    موضوع نویسنده پاسخ بازدید آخرین ارسال
    Note جلوگیری از باز شدن Windows Task Manager azade1359 0 349 11-02-2014 ساعت 13:19
    آخرین ارسال: azade1359

    کاربرانِ درحال بازدید از این موضوع:   1 مهمان