VB.NET: Interdire à la souris de survoler la barre des taches
Fermé
Anonyme209
Messages postés
679
Date d'inscription
samedi 6 octobre 2012
Statut
Membre
Dernière intervention
22 décembre 2020
-
27 juil. 2015 à 14:17
Anonyme209 Messages postés 679 Date d'inscription samedi 6 octobre 2012 Statut Membre Dernière intervention 22 décembre 2020 - 24 août 2015 à 12:45
Anonyme209 Messages postés 679 Date d'inscription samedi 6 octobre 2012 Statut Membre Dernière intervention 22 décembre 2020 - 24 août 2015 à 12:45
A voir également:
- VB.NET: Interdire à la souris de survoler la barre des taches
- Barre des taches bloquée - Guide
- Windows 11 barre des taches a gauche - Guide
- Changer la couleur de la barre des taches - Guide
- Barre des taches qui ne fonctionne plus ✓ - Forum Windows 10
- Windows 11 barre des taches windows 10 - Télécharger - Personnalisation
1 réponse
cs_Le Pivert
Messages postés
7883
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
18 mars 2023
724
24 août 2015 à 11:55
24 août 2015 à 11:55
Bonjour,
Et si tu masquais la barre de tâche pour empêcher l'utilisateur d'y avoir accès comme ceci:
Et si tu masquais la barre de tâche pour empêcher l'utilisateur d'y avoir accès comme ceci:
Option Strict On
Public Class Form1
Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Integer
Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Integer, ByVal hWndInsertAfter As Integer, ByVal x As Integer, ByVal y As Integer, ByVal cx As Integer, ByVal cy As Integer, ByVal wFlags As Integer) As Integer
Const TASKBAR_SHOW As Integer = &H40
Const TASKBAR_HIDE As Integer = &H80
Private Sub cmdOK_Click(sender As System.Object, e As System.EventArgs) Handles cmdOK.Click
Dim TaskbarHandle As Long
If cmdOK.Text = "Masquer barre de tâche" Then
TaskbarHandle = FindWindow("Shell_traywnd", "")
SetWindowPos(CInt(TaskbarHandle), 0&, 0&, 0&, 0&, 0&, TASKBAR_HIDE)
cmdOK.Text = "Rétablir barre de tâche"
Else
cmdOK.Text = "Masquer barre de tâche"
TaskbarHandle = FindWindow("Shell_traywnd", "")
SetWindowPos(CInt(TaskbarHandle), 0&, 0&, 0&, 0&, 0&, TASKBAR_SHOW)
End If
End Sub
Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
cmdOK.Text = "Masquer barre de tâche"
cmdOK.AutoSize = True
End Sub
End Class
24 août 2015 à 12:45
J'ai fait un keyboard hook, la touche Windows est correctement bloquée, mais le bouton démarrer peut encore ne pas disparaître lorsque la barre des taches est masquée.