[ StratOS @ 10.05.2002. 07:38 ] @
Hm, ovo pišem jer sam prije nekoliko dana uspješno napravio jedan "Revenge" program u VB. Zašto hide process : Tako da proces nije vidan u TaskManager-u oz. kad stisnete Ctrl-Alt-Del. Ovo pišem jer je došlo do nekompatibilnosti sa NT sustavom NT/2000/XP, jer naime program na NT mašinama ne nađe reference za RegisterServiceProcess u kernel32.dll, jer RegisterServiceProcess u NT-jima u kernel32.dll nema. Gledao sam malo po searcherima, MSDN a nisam ništa našao. kako bi rješio ovo "nekompatibilnost" OS-a. Kako bi na drug način to riješio u NT-jima. Evo još malog koda, kog treba da malo modificiram za NT-je : Code: Public Declare Function GetCurrentProcessId Lib "kernel32" () As Long Public Declare Function GetCurrentProcess Lib "kernel32" () As Long Public Declare Function RegisterServiceProcess Lib "kernel32" (ByVal dwProcessId As Long, ByVal dwType As Long) As Long Public Const Make_System_Process = 1 Public Const Make_Normal_Process = 0 Public Sub HideProcess(HideProcess As Boolean) 'HideProcess(true) 'HideProcess(false) Dim Process_Code As Long, Return_Service As Long If HideProcess Then Process_Code = GetCurrentProcessId() Return_Service = RegisterServiceProcess(Process_Code, Make_System_Process) ElseIf Not HideProcess Then Process_Code = GetCurrentProcessId() Return_Service = RegisterServiceProcess(Process_Code, Make_Normal_Process) End If End Sub Help wanted, poz |