BLOCAGE DE FONCTIONNALITES WINDOWS...ETC
rclsilver02
Messages postés
130
Date d'inscription
mercredi 19 mars 2003
Statut
Membre
Dernière intervention
10 février 2012
-
15 avril 2004 à 06:30
guil2004 Messages postés 4 Date d'inscription mercredi 24 mars 2004 Statut Membre Dernière intervention 21 février 2005 - 1 févr. 2005 à 22:46
guil2004 Messages postés 4 Date d'inscription mercredi 24 mars 2004 Statut Membre Dernière intervention 21 février 2005 - 1 févr. 2005 à 22:46
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/21950-blocage-de-fonctionnalites-windows-etc
https://codes-sources.commentcamarche.net/source/21950-blocage-de-fonctionnalites-windows-etc
1 févr. 2005 à 22:46
MERCI...
19 oct. 2004 à 16:10
11 juin 2004 à 19:48
2 juin 2004 à 19:32
Merci, ça fonctionne impeccablement bien :)
Bonne continuation
26 mai 2004 à 23:08
'dans le module touches_XP
Declare Function CallNextHookEx Lib "user32" (ByVal hHook As Long, ByVal ncode As Long, ByVal wParam As Long, lParam As Any) As Long
Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer
Declare Function SetWindowsHookEx Lib "user32" Alias "SetWindowsHookExA" (ByVal idHook As Long, ByVal lpfn As Long, ByVal hmod As Long, ByVal dwThreadId As Long) As Long
Declare Function UnhookWindowsHookEx Lib "user32" (ByVal hHook As Long) As Long
Public hHook As Long
Public Const WH_KEYBOARD_LL = 13
Public Const VK_RWIN = &H5B
Public Const VK_LWIN = &H5C
Public Const VK_ESCAPE = &H1B
Public Const VK_CONTROL = &H11
Public Const VK_TAB = &H9
Public Const VK_MENU = &H12
Public Type HOOKSTRUCT
vkCode As Long
scanCode As Long
flags As Long
time As Long
dwExtraInfo As Long
End Type
Public Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" _
(Destination As Any, Source As Any, ByVal Length As Long)
Public Function KeyboardLowLevelProc(ByVal idHook As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Dim p As HOOKSTRUCT ' variable pour récupérer le vk code
'si idhook < 0 alors pas de traitement
If idHook < 0 Then
'appeler le hook suivant
KeyboardLowLevelProc = CallNextHookEx(hHook, idHook, wParam, ByVal lParam)
Else
'copie la structure de lParam
CopyMemory p, ByVal lParam, Len(p)
If p.vkCode VK_LWIN Or p.vkCode VK_RWIN Or p.vkCode = VK_CONTROL Or p.vkCode = VK_ESCAPE Then 'affichage desactivé du menu démarré ???
KeyboardLowLevelProc = -1 'on annule les touches pour le system
Exit Function ' on ne passe pas au hook suivant
End If
If p.vkCode VK_MENU Or p.vkCode VK_TAB Then 'impossible de passer sur une autre apllication Alt+Tab
KeyboardLowLevelProc = -1 'pareil, on annule les touches au system
Exit Function
End If
'appeler le hook suivant
KeyboardLowLevelProc = CallNextHookEx(hHook, idHook, wParam, ByVal lParam)
End If
End Function
'dans la formMain tu ne change rien car c la meme ligne
7 mai 2004 à 21:28
Merci pour ton commentaire Cisco, je connaissais pas. C'est vrai que connaissant cette combinaison, c'est pas très efficace :)
Bon, du coup ça servira plus pour les gamers qui en ont assez de voir leur jeu se réduire dans la barre des tâches.
Pour Loup_ih : dsl mais je me suis trompé en indiquant "Fixed Single". C'est "Sizable" qu'il fallait mettre mais je suppose que tu avais trouvé :)
5 mai 2004 à 20:58
19 avril 2004 à 22:02
@+
19 avril 2004 à 21:09
Juste un petit truc,est ce que il y aurai moyen de le mettre a jour pour pouvoir réduire la fenêtre ou avoir les codes pour le faire ?
merci d'avance,bonne continuation
;-)
a friend
16 avril 2004 à 21:21
16 avril 2004 à 21:20
Bonne continuation à toi aussi
16 avril 2004 à 17:04
'Dans un module
Public Declare Sub SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long)
Public Const HWND_TOPMOST = -1
Public Const HWND_NOTOPMOST = -2
Public Const SWP_NOSIZE = &H1
Public Const SWP_NOMOVE = &H2
Public Const SWP_NOACTIVATE = &H10
Public Const SWP_SHOWWINDOW = &H40
'Dans ta form
Private Sub Form_Activate()
SetWindowPos Me.hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOACTIVATE Or SWP_SHOWWINDOW Or SWP_NOMOVE Or SWP_NOSIZE
End Sub
Bon coding. K-J158
16 avril 2004 à 14:57
En fait je voudrais remplacer les '0, 0, 0, 0' par autre chose mais uniquement pour que lorsque l'on veut laisser la fenêtre au premier plan, qu'elle ne soit pas déplacée en haut à gauche de l'écran mais reste là où elle était.
16 avril 2004 à 11:44
Il s'agit des coordonnées du coin supérieur gauche de ta fenêtre et de la longueur et la largeur de celle-ci.
16 avril 2004 à 11:44
Il s'agit des coordonnées du coin supérieur gauche de ta fenêtre et de la longueur et la largeur de celle-ci.
16 avril 2004 à 10:17
Pour bloquer les raccourcis Windows je crois qu'on peut passer par la base de registre mais j'ai pas essayé.
Par contre j'ai une question : quand on veut laisser la fenêtre toujours au premier plan, il met la fenêtre en haut à gauche de l'écran. Y'a-t-il moyen de remplacer tous ces "0, 0 ,0, 0" par autre chose afin de ne pas déplacer la fenêtre ?
Merci d'avance.
15 avril 2004 à 06:30