کد پنهان کردن برنامه از لیست پراسس های 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 250 11-02-2014 ساعت 13:19
آخرین ارسال: azade1359

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