Bloquer ALT+TAB
cs_DCS
Messages postés
1
Date d'inscription
vendredi 25 janvier 2002
Statut
Membre
Dernière intervention
25 janvier 2002
-
25 janv. 2002 à 21:12
cs_lamarcos Messages postés 11 Date d'inscription jeudi 3 janvier 2002 Statut Membre Dernière intervention 7 décembre 2008 - 4 mars 2003 à 11:49
cs_lamarcos Messages postés 11 Date d'inscription jeudi 3 janvier 2002 Statut Membre Dernière intervention 7 décembre 2008 - 4 mars 2003 à 11:49
A voir également:
- Bloquer ALT+TAB
- Tab vba - Forum Visual Basic 6
- Char tab - Forum C / C++ / C++.NET
- C# tab ✓ - Forum C# / .NET
- Alt tab ✓ - Forum C
- Parsec alt tab - Forum Java
2 réponses
Renfield
Messages postés
17287
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
27 septembre 2021
74
28 janv. 2002 à 10:45
28 janv. 2002 à 10:45
Salut , C Renfield
dans le moteur tap Ctrl Alt Suppr & tu pourra trouver Ceci:
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 Const SPI_SCREENSAVERRUNNING = 97
' Puis Dans votre Formulaire, faites 2 Boutons
' 1) BoutonDesactiveCTRLALTSUPPR
' 2) BoutonActiveCTRLALTSUPPR
' Et mettez ce Code dans le Module de Votre Formulaire :
Private Sub Form_Unload(Cancel As Integer)
Call BoutonActiveCTRLALTSUPPR_Click
' Là c'est pour que CTRL+ALT+SUPPR soit réactivé quand vous quittez
End Sub
Private Sub BoutonDesactiveCTRLALTSUPPR_Click()
Dim Retour As Long
Dim a As Boolean
Retour = SystemParametersInfo(SPI_SCREENSAVERRUNNING, True, a, 0)
End Sub
Private Sub BoutonActiveCTRLALTSUPPR_Click()
Dim Retour As Long
Dim a As Boolean
Retour = SystemParametersInfo(SPI_SCREENSAVERRUNNING, False, a, 0)
End Sub
En clair ( Cette source n'etant pas de moi)
il s'agit d'une Api qui sert a dire au systeme que C un ecran de veille. tu imagine le bordel si tu pouvais quitter l'ecran de veille (avce mot de passe !!) avec un simple Ctrl alt Suppr ou
un alt+tab !!!
BYE ;)
dans le moteur tap Ctrl Alt Suppr & tu pourra trouver Ceci:
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 Const SPI_SCREENSAVERRUNNING = 97
' Puis Dans votre Formulaire, faites 2 Boutons
' 1) BoutonDesactiveCTRLALTSUPPR
' 2) BoutonActiveCTRLALTSUPPR
' Et mettez ce Code dans le Module de Votre Formulaire :
Private Sub Form_Unload(Cancel As Integer)
Call BoutonActiveCTRLALTSUPPR_Click
' Là c'est pour que CTRL+ALT+SUPPR soit réactivé quand vous quittez
End Sub
Private Sub BoutonDesactiveCTRLALTSUPPR_Click()
Dim Retour As Long
Dim a As Boolean
Retour = SystemParametersInfo(SPI_SCREENSAVERRUNNING, True, a, 0)
End Sub
Private Sub BoutonActiveCTRLALTSUPPR_Click()
Dim Retour As Long
Dim a As Boolean
Retour = SystemParametersInfo(SPI_SCREENSAVERRUNNING, False, a, 0)
End Sub
En clair ( Cette source n'etant pas de moi)
il s'agit d'une Api qui sert a dire au systeme que C un ecran de veille. tu imagine le bordel si tu pouvais quitter l'ecran de veille (avce mot de passe !!) avec un simple Ctrl alt Suppr ou
un alt+tab !!!
BYE ;)
cs_lamarcos
Messages postés
11
Date d'inscription
jeudi 3 janvier 2002
Statut
Membre
Dernière intervention
7 décembre 2008
4 mars 2003 à 11:49
4 mars 2003 à 11:49
ouaaa !!!
trop fort , j'avais meme pas remarquer que c'est ca que ca diser a l'ordi !!!
ca vaut le coup de trainer sur ce site on decouvre plein de truc comme ca !!!
merci a toi !!!
trop fort , j'avais meme pas remarquer que c'est ca que ca diser a l'ordi !!!
ca vaut le coup de trainer sur ce site on decouvre plein de truc comme ca !!!
merci a toi !!!
