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
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
Pozdrav StratOS
"Multitasking - ability to f##k up several things at once."
"It works better if you plug it in."
"As a rule, software systems do not work well until they have been used, and have failed repeatedly, in real applications."
"The one who is digging the hole for the other to fall in is allready in it."
"Multitasking - ability to f##k up several things at once."
"It works better if you plug it in."
"As a rule, software systems do not work well until they have been used, and have failed repeatedly, in real applications."
"The one who is digging the hole for the other to fall in is allready in it."