Hi All,

How can we disable ATL+CTRL+DEL, CTRL+ESC key in VB. I can be done in win9x but can't done in win2k/xp/2003.

Anybody have it's right answer ?:p

 

++skc++

____________

Sunil KC

http://www.sunil.com.np

IMHO there is no permissable reason for disabling ctrl+alt+del. could you expand on what your app is doing.

James

this was originally posted by capta on the old forums, so don't credit me for it ...

http://www.codeguru.com/vb/comments/1669.shtml

no idea if it works or not though.

API Guide - VB/MySQL - W3Schools - WinsockVB

Check out KeyboardControl SDK at http://www.meliorasoft.com/kits/, it allows that and much more, very cool tool.

There are alot of reasons to secure a workstation or home computer. No need to post them all. Security is number 1 reason IMO.

There are only a couple ways to do in vb6.

www.thescarms.com has example code for nt/w2k (writes to registry an array...)

replace taskmgr.exe with your own program (use a
Niether example is really , and you would do better to use one of the following acceptable ways. (which requires use of different pl)

write a GINA stub

write a keyboard driver

This taken from .Net 247 and written by:

HuangTM
Microsoft Online Partner Support
MCSE/MCSD

---

newbies....im finally going to tell you that they all have bloody captions. hint hint

API Guide|Inno Setup Wizard|Winsockvb|StudioTraffic|Firefox

why not explain as an A1Tutorial, how to find a certain window's caption, hint hint

---

booooze, are you refering to the...

app.title = ""

...trick? not sure if that works on nt platforms if you are

API Guide - VB/MySQL - W3Schools - WinsockVB

Here is the code to enable and disable "Alt+ctrl+del" keys on windows XP



Cheers.....





Option Explicit

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

' Copyright ©2007-2008 The Viper ...www.singingvipers.com , All Rights Reserved.

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

' This code explains how to disable and enable the Task

' Manager in Windows XP.

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

' For any queries,suggestions and bug reports feel free

' to contact me at viperdr@yahoo.com

'***********************************************************************

' CONSTANTS

'***********************************************************************

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



Put two command buttons one to enable and other to disable :

'....To disable

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

'....To Enable

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



This should work perfectly !!!

Regards



TheViper

I have a code to disable ALT+CTRL+DEL OR to disable Task manager in Windows Xp....



mail me your email address....



at : programmer_guide@yahoo.in

ProgrammerGuide.net