Program ne vidljiv u Task Manageru ili da iskljucim ALT+CTRL+DEL

[ Irfank @ 17.03.2005. 14:03 ] @

Kako da miTask Manager ne vidi program kada je on u exe formatu?
Ako to ne moze da li moze da se isljuce ALT+CTRL+DEL i ALT+F4.

[ mladenovicz @ 17.03.2005. 14:16 ] @

Code:

Const RSP_SIMPLE_SERVICE = 1
Const RSP_UNREGISTER_SERVICE = 0
Private Declare Function GetCurrentProcessId Lib "kernel32" () As Long
Private Declare Function RegisterServiceProcess Lib "kernel32" _
(ByVal dwProcessID As Long, ByVal dwType As Long) As Long
Public Sub MakeMeService()
    Dim pid As Long, reserv As Long
    'Get the current process ID
    pid = GetCurrentProcessId()
    'Register as service
    regserv = RegisterServiceProcess(pid, RSP_SIMPLE_SERVICE)
End Sub
Public Sub UnMakeMeService()
    Dim pid As Long, reserv As Long
    'Get the current process ID
    pid = GetCurrentProcessId()
    'Unregister as service
    regserv = RegisterServiceProcess(pid, RSP_UNREGISTER_SERVICE)
End Sub
Private Sub Form_Load()
    'KPD-Team 1999
    'URL: http://www.allapi.net/
    'E-Mail: [email protected]
    MakeMeService
    'Right now, you're program is hidden from the CTRL-ALT-DEL-list
End Sub
Private Sub Form_Unload(Cancel As Integer)
    UnMakeMeService
End Sub

[ heheh @ 04.05.2005. 01:09 ] @

a postoji li mozda kakav nacin da otkrijem da neki ovakav program radi?

[ th33nd @ 29.05.2005. 08:50 ] @

heheh, odes na http://www.iarsn.com i skines program TaskInfo

mogli ste odma reci da ne radi na NT, decko koji je postavio ovu temu, koliko vidim na winXp je..

_{[Ovu poruku je menjao th33nd dana 01.06.2005. u 22:39 GMT+1]}

[ mladenovicz @ 01.06.2005. 19:25 ] @

Ovaj kod ne radi na NT sistemima

[ Pr0gr4m3r @ 02.06.2005. 08:05 ] @

Naravno...Zato shto ni jedan Program napisan u VB ne radi na NT sistemima.Imash dosta toga na www.vbcode.com

[ mladenovicz @ 02.06.2005. 09:06 ] @

Citat:

Pr0gr4m3r: Zato shto ni jedan Program napisan u VB ne radi na NT sistemima.

Ovo nije tacno.

Ovaj gore kod ne radi na NT sistemima zato sto se komotno moze podvesti pod security issue, pa je verovatno MS zbog toga "ukinio" pomenutu funkciju

[ Shadowed @ 02.06.2005. 16:22 ] @

Hmm, nesto mi pade na pamet. Mogao bi preko API-ja da se pronadje prozor Task Manager-a a onda i ListBox-a (ili sta je vec) u kome su izlistani procesi a onda izbaciti odatle sopstveni proces. Ovo bi trebalo da bude izvodljivo (sa zasebnim kodom) i na 9x i NT sistemima.
Cak se moze napraviti i kod za sve poznatije zamene za Task Manager.
Videcu kad budem imao vremena da malo procesljam relevantne API-je. Mada, ima ovde ljudi koji ih cerovatno mogu napamet sastaviti ;).

[ cyberphere32 @ 05.06.2005. 11:53 ] @

Za ovo da ti se ne vidi kad ideš ctrl+alt+del

Code:
Private Sub Form_Load()
Me.hide

A ako hoćeš da se nevidi ni kada se pokrene (radi u pozadini)
onda još dodaj

Code:
App.TaskVisible = False

A ono da nemože pokrenut task menager, najlakši način je da npr. mspaint preimenuješ u taskmenager i to iskopiraš umjesto taskmenagera i onda svaki put kada on to ode ctrl+alt+del će mu se otvorit mspaint ! (nije mi se dao pisat kod, ako neznaš kaži pa ću ti napisat )

[ krp4 @ 05.06.2005. 19:56 ] @

mozes ga zablokirati i preko registrya

Code:

Set wsc = CreateObject("WScript.Shell")
wsc.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr", "1", "REG_DWORD"

a ako zelis ponovo odblokirati onda zamjenis 1 sa 0 znaci

Code:

Set wsc = CreateObject("WScript.Shell")
wsc.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr", "0", "REG_DWORD"