bloquer ALT+TAB

Bonjour,

malgré le moteur de recherche, j'arrive tjrs pas à bloquer les touches ALT+TAB.

J'en ai besoin assez vite

Merci d'avance

--------
Un développeur débutant

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 ;)

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 !!!


-------------------------------
Réponse au message :
-------------------------------

> 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 ;)
>
>
>