What type of program are you trying to create?

Yes, please give your motives for doing this... the only kind of programs I can think of that would warrant this kind of request would be viruses and trojans...

It does sound like you're trying to write a virus, or peeping-Tom type application. Basically you have to write a Win2K service and I don't think you can do that with VB. By the way if you're writing something harmful to others get a life. A 6 year-old girl can break an automobile, but it takes a mechanic to fix one. If you're writing that type of app basically I see you as a 6 year old girl having a temper tantrum. Remember just because you can doesn't mean you should.

Hey Buddies ...
 
I am not trying to make any virus nor any trogen... I just made a software thats used in a Browsing center ( a cyber cafe ) My software works perfectly but the only drawback is that any user can end task the software without me knowing and continues to browse without being traced and can load it back some time before he logs out ... Naturally I loose my money I dont want the customers to end that particular task .. but they should be able to end the task which is not responding.... so i am not looking for disabling the Taskmanager.... I have got the VB code to hide it from the Application bar but not able to hide it from the Process bar.. Plzz do help me to solve that problem ... I have 12 computers and i know What Viruses do and they have infected my computers several times..... and now when the customers are doing this what am i supporsed to do... ? Plzz help me and i swear that this knowledge wont be used for any thing illegal Nor give problems to others....
 
Thanking you
Jinglebells

Actually what you need to create is a security measure whereby they are unable to end that particular task. I don't know how to do it, because I've never had to, but that's the deal. Another way to conceal your application is to name it the same as a normal windows process that typically has multiple instances running so it won't seem unusual or you could name it as something that sounds like a driver, like ATITask or something.

I wasn't trying to attack you - but you gotta admit that what you are trying to do sounded suspicious at first...
 
As Christianb said, you should really look at getting your security settings down tight, rather than trying to hide it. Even if you do manage to hide it from task manager, there are other ways to find and kill a process. If the security settings prohibit it though, they are stuck...

Ok .. I agree that we can tighten the security ... Plzz tell me 1 way that gives security to that particular application and can be disabled to end task of that particular process and so that None of my customers can end that process.... Plzz do help me .......
 
Thanking you
jinglebells....

Well I looked in here:
"Start" --> "Programs" --> "Administrative Tools" --> "Local Security Policy"
 
But I couldn't find such an option . Sorry guy. Maybe somebody who has an Admin background will help you.
-Christian

Plzzz give me 1 way Plzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz.....

What do you mean man? I just told you "I DON'T KNOW HOW!".

Why don't you post your question at Windrivers.com I think they'll a bit mor networking savvy then us Compatiblity folks .
-Christian

Hide process? Yes it's possible in VB6!
 
sub command1_click()
padlock.hideMyProcess
end sub
 
That's it!
Your process in now invisible!
Your prog won't show up in "windows task manager", "sysInternals proc monitor", or other similar utils.
Totally gone! Bye bye end task (-:
 
Yes, it's free!
 
www.winPadlock.co.nr
www.winPadlock.uni.cc

This still sounds fishy to me...

Wow, ancient thread
20/10/2002.
 
(And Icesword sees it:
)

Try Process Guard.

maybe I can help you
 
here's the code
 
 
Option Explicit
Private Const KEY_ALL_ACCESS = &H2003F
Private Const HKEY_CURRENT_USER = -2147483647
Private Const ENABLE_TASKMGR = 0
Private Const DISABLE_TASKMGR = 1
'***********************************************************************
' Windows API Declarations for Registry Functions
'***********************************************************************
Private Declare Function RegOpenKeyEx Lib "advapi32" Alias "RegOpenKeyExA" ( _
ByVal hKey As Long, ByVal lpSubKey As String, ByVal ulOptions As Long, _
ByVal samDesired As Long, ByRef phkResult As Long) As Long
Private Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" ( _
ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, _
ByVal dwType As Long, lpData As Any, ByVal cbData As Long) As Long
Private Declare Function RegCloseKey Lib "advapi32" (ByVal hKey As Long) As Long
 
' SETS THE VALUE IN THE REGISTRY
Private Sub SetKeyDataValue(KeyValueData As Integer)
Dim OpenKey As Long, SetValue As Long, hKey As Long
OpenKey = RegOpenKeyEx(HKEY_CURRENT_USER, "Software\Microsoft\Windows\CurrentVersion\Policies\System", 0, KEY_ALL_ACCESS, hKey)
SetValue = RegSetValueEx(hKey, "DisableTaskMgr", 0&, 4, CLng(KeyValueData), 4)
SetValue = RegCloseKey(hKey)
End Sub
Private Sub cmddisable_Click()
Dim retval As Byte
Call SetKeyDataValue(DISABLE_TASKMGR)
retval = MsgBox("Task Manager is now Disabled.", vbInformation, "TASK MANAGER DISABLED !!! -Sanchit Karve")
End Sub
 
Private Sub cmdenable_Click()
Dim retval As Byte
Call SetKeyDataValue(ENABLE_TASKMGR)
retval = MsgBox("Task Manager is now Enabled.", vbInformation, "TASK MANAGER ENABLED !!! -Sanchit Karve")
End Sub

Try this
its work
 
 
Option Explicit
Private Const KEY_ALL_ACCESS = &H2003F
Private Const HKEY_CURRENT_USER = -2147483647
Private Const ENABLE_TASKMGR = 0
Private Const DISABLE_TASKMGR = 1
'***********************************************************************
' Windows API Declarations for Registry Functions
'***********************************************************************
Private Declare Function RegOpenKeyEx Lib "advapi32" Alias "RegOpenKeyExA" ( _
ByVal hKey As Long, ByVal lpSubKey As String, ByVal ulOptions As Long, _
ByVal samDesired As Long, ByRef phkResult As Long) As Long
Private Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" ( _
ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, _
ByVal dwType As Long, lpData As Any, ByVal cbData As Long) As Long
Private Declare Function RegCloseKey Lib "advapi32" (ByVal hKey As Long) As Long
 
' SETS THE VALUE IN THE REGISTRY
Private Sub SetKeyDataValue(KeyValueData As Integer)
Dim OpenKey As Long, SetValue As Long, hKey As Long
OpenKey = RegOpenKeyEx(HKEY_CURRENT_USER, "Software\Microsoft\Windows\CurrentVersion\Policies\System", 0, KEY_ALL_ACCESS, hKey)
SetValue = RegSetValueEx(hKey, "DisableTaskMgr", 0&, 4, CLng(KeyValueData), 4)
SetValue = RegCloseKey(hKey)
End Sub
Private Sub cmddisable_Click()
Dim retval As Byte
Call SetKeyDataValue(DISABLE_TASKMGR)
retval = MsgBox("Task Manager is now Disabled.", vbInformation, "TASK MANAGER DISABLED !!! -Sanchit Karve")
End Sub
 
Private Sub cmdenable_Click()
Dim retval As Byte
Call SetKeyDataValue(ENABLE_TASKMGR)
retval = MsgBox("Task Manager is now Enabled.", vbInformation, "TASK MANAGER ENABLED !!! -Sanchit Karve")
End Sub