PC SOFT

FORUMS PROFESSIONNELS
WINDEV, WEBDEV et WINDEV Mobile

|
|
|
FR
Accueil → WINDEV 2024 → Bloquer CTRL+ALT+SUPPR
Bloquer CTRL+ALT+SUPPR
Débuté par jeromeridel, 23 jan. 2006 22:45 - Aucune réponse
#1
Posté le 23 janvier 2006 - 22:45
Bonjour,

J'ai trouvé le code suivant sur le net pour bloquer la combinaison de touche CTRL+ALT+SUPPR.

Le code est en VB !!! Je ne suis pas trop à l'aise avec le VB. Est ce que quelqu'un pourrais me traduire en W-language pour que je l'utilise dans mon soft.

Merci

Jérôme

Le code :

'A mettre dans un module

Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Public Const VK_DELETE = &H2E
Public Const VK_CONTROL = &H11
Public Const VK_MENU = &H12

Public Sub Main()

Load Form1
Form1.Show
Form1.Timer1.Interval = 1
End Sub


'le reste à mettre dans une form
Public Sub Timer1_Timer()
If GetAsyncKeyState(VK_MENU) And GetAsyncKeyState(VK_CONTROL) And GetAsyncKeyState(VK_DELETE) Then
Form1.Enabled = True
Form1.SetFocus
SendKeys "%{BACKSPACE}", True
SendKeys "%{F4}", True
End 'Ou tout autre action a éffectuer
End If
End Sub

Public Sub Form_KeyDown(keycode As Integer, Shift As Integer)
If GetAsyncKeyState(VK_MENU) And GetAsyncKeyState(VK_CONTROL) And GetAsyncKeyState(VK_DELETE) Then
Form1.Enabled = True
Form1.SetFocus
End If
End Sub


Avec Windows XP familial Pro et Serveur

open "output" "DisableTaskMgr.reg" as #1
print #1,"REGEDIT4"
print #1,"[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System]"
print #1,chr(34);"DisableTaskMgr"chr(34);"=dword:00000001"
close #1
shell "regedit /s DisableTaskMgr.reg"
→ Revenir à WINDEV 2024