Bloquer ALT+TAB (version ortographiée ;) )
tinux
Messages postés
244
Date d'inscription
mercredi 13 avril 2005
Statut
Membre
Dernière intervention
21 octobre 2013
-
14 mai 2006 à 15:13
leaderdut Messages postés 1 Date d'inscription dimanche 25 février 2007 Statut Membre Dernière intervention 28 février 2007 - 28 févr. 2007 à 12:24
leaderdut Messages postés 1 Date d'inscription dimanche 25 février 2007 Statut Membre Dernière intervention 28 février 2007 - 28 févr. 2007 à 12:24
1 réponse
leaderdut
Messages postés
1
Date d'inscription
dimanche 25 février 2007
Statut
Membre
Dernière intervention
28 février 2007
28 févr. 2007 à 12:24
28 févr. 2007 à 12:24
Cette version est valable pour win95 et win98:
Private Const SPI_SCREENSAVERRUNNING = 97&
Private Declare Function SystemParametersInfo Lib "User32" _
Alias "SystemParametersInfoA" _
(ByVal uAction As Long, _
ByVal uParam As Long, _
lpvParam As Any, _
ByVal fuWinIni As Long) As Long
Private Sub Form_Load()
Command1.Caption = "Disabled"
Command2.Caption = "Enabled"
End Sub
Private Sub Form_Unload(Cancel As Integer)
'Re-enable CTRL+ALT+DEL and ALT+TAB before the program terminates.
Command2_Click
End Sub
Private Sub Command1_Click()
Dim lngRet As Long
Dim blnOld As Boolean
lngRet = SystemParametersInfo(SPI_SCREENSAVERRUNNING, True, _
blnOld, _
0&)
End Sub
Private Sub Command2_Click()
Dim lngRet As Long
Dim blnOld As Boolean
lngRet = SystemParametersInfo(SPI_SCREENSAVERRUNNING, False, _
blnOld, _
0&)
End Sub
'Appuyez sur la touche F5 pour exécuter le programme et cliquez ensuite, sur le bouton "Désactivé". CTRL + ALT + SUPPR et ALT + TAB sont désactivés. Cliquez sur le bouton "Enabled" pour activer à nouveau CTRL + ALT + SUPPR et ALT + TAB.
Private Const SPI_SCREENSAVERRUNNING = 97&
Private Declare Function SystemParametersInfo Lib "User32" _
Alias "SystemParametersInfoA" _
(ByVal uAction As Long, _
ByVal uParam As Long, _
lpvParam As Any, _
ByVal fuWinIni As Long) As Long
Private Sub Form_Load()
Command1.Caption = "Disabled"
Command2.Caption = "Enabled"
End Sub
Private Sub Form_Unload(Cancel As Integer)
'Re-enable CTRL+ALT+DEL and ALT+TAB before the program terminates.
Command2_Click
End Sub
Private Sub Command1_Click()
Dim lngRet As Long
Dim blnOld As Boolean
lngRet = SystemParametersInfo(SPI_SCREENSAVERRUNNING, True, _
blnOld, _
0&)
End Sub
Private Sub Command2_Click()
Dim lngRet As Long
Dim blnOld As Boolean
lngRet = SystemParametersInfo(SPI_SCREENSAVERRUNNING, False, _
blnOld, _
0&)
End Sub
'Appuyez sur la touche F5 pour exécuter le programme et cliquez ensuite, sur le bouton "Désactivé". CTRL + ALT + SUPPR et ALT + TAB sont désactivés. Cliquez sur le bouton "Enabled" pour activer à nouveau CTRL + ALT + SUPPR et ALT + TAB.
