Deaktivere ctrl+alt+del eller valgene der...

[Gjest Slettet+432]

Hei på dere!

Vet noen hvordan jeg kan deaktivere ctrl+alt+delete i xp, eller eventuelt deaktivere noen av valgene der? Holder på med et sikkerhetsprogram...

[aadnk]

Dette var mulig i Win9X og tidligere, men Microsoft umuliggjorde dette i NT/2000/XP ved å la brukeren komme til påloggingsdelen når skjermbeskytteren avsluttes, og ikke bare forhindre at CTRL+ALT+DELETE vil registreres. Dermed må man skrive en egen driver for å kunne hindre at brukeren skal kunne trykke på disse knappene.

 

Men, man kan bruke denne registreringsnøkkelen for å hindre brukeren i å kjøre Task Manager.

 

Omtrent som dette:

 

Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
Private Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, 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

Const REG_BINARY = 3
Const HKEY_CURRENT_USER = &H80000001
Const HKEY_LOCAL_MACHINE = &H80000002

Public Sub WriteLong(hKey As Long, strPath As String, strValue As String, strData As Long)
   
Dim Ret As Long

RegCreateKey hKey, strPath, Ret
RegSetValueEx Ret, strValue, 0, REG_BINARY, strData, 4
RegCloseKey Ret

End Sub

Public Sub SetTaskManager(State As Boolean)

WriteLong HKEY_CURRENT_USER, "Software\Microsoft\Windows\CurrentVersion\Policies", "DisableTaskMgr", IIf(State, 0, 1)

End Sub

Private Sub Form_Load()

' Gjør det umulig å åpne Task Manager
SetTaskManager False

End Sub

Private Sub Form_Unload(Cancel As Integer)

' Setter alt tilbake til det normale
SetTaskManager True

End Sub

 

Men det kan også hende at denne endringen ikke registeres før etter omstart, så du må muligens gjøre dette på en helt annen måte.