Qq1 acé for pour me fèr le prog que je demande ?

Signaler
Messages postés
2
Date d'inscription
lundi 18 novembre 2002
Statut
Membre
Dernière intervention
20 novembre 2002
-
Messages postés
340
Date d'inscription
vendredi 11 octobre 2002
Statut
Membre
Dernière intervention
14 février 2005
-
je t'explique tout :
Il se trouve que le 27 Nov., je fais une fête dont la sono et le micro seront gérés par mon PC de bureau et je ne voudrais pas qu'un invité fasse une mauvaise manipulation dessus ;
:(
j'ai trouvé un logiciel qui permet de rendre invisible la barre de tâche et j'ai réussi à restreindre l'acès à un seul dossier. Mon dermier problème est le menu démarrer ! Le logiciel que j'ai trouvé cache la barre de tâche, mais il ne désactie pas le bouton windows sur le clavier, celui qui faire sortir le menu démarrer. Je demande donc à tous s'il serait possible de me faire un programme *.exe accessible avec "ctrl+alt+suppr" et qui désactiverait les deux touche du clavier avec le logo windows. Ce serait super sympa si vous pouviez le faire avant le 27 Nov. ! Si ya que des mecs forts ici, ça devrait pas poser de problème... sinon les adeptes du site baisseront dans mon estime ! ;)

5 réponses

Messages postés
340
Date d'inscription
vendredi 11 octobre 2002
Statut
Membre
Dernière intervention
14 février 2005

Je vais essayer, attends un peu : si j'y arrive (ou pas), je metrrai un message !!!

:-p Bricomix :-p
0
Messages postés
340
Date d'inscription
vendredi 11 octobre 2002
Statut
Membre
Dernière intervention
14 février 2005

J'ai fini, je te l'envoie où ?

:-p Bricomix :-p

PS : L'anglais c'est pas mon fort (j'ai que 13 ans)
0
Messages postés
340
Date d'inscription
vendredi 11 octobre 2002
Statut
Membre
Dernière intervention
14 février 2005

J'ai fini, je te l'envoie où ?

:-p Bricomix :-p

PS : L'anglais c'est pas mon fort (j'ai que 13 ans)
0
Messages postés
340
Date d'inscription
vendredi 11 octobre 2002
Statut
Membre
Dernière intervention
14 février 2005

Finalement, voila la source (faut un timer à 20) :

Option Explicit
Private Declare Sub keybd_event Lib "user32" ( _
ByVal bVk As Byte, _
ByVal bScan As Byte, _
ByVal dwFlags As Long, _
ByVal dwExtraInfo As Long)
Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer
Private Const WIN_APPS = &H5D
Private Const WIN_RWIN = &H5C
Private Const WIN_LWIN = &H5B

Private Sub Form_Load()
Me.Visible = False
End Sub

Private Sub Timer1_Timer()
Dim KState As Long
KState = GetKeyState(WIN_APPS)
If KState <> 0 And KState <> 1 Then keybd_event 27, 0, 0, 0
KState = GetKeyState(WIN_RWIN)
If KState <> 0 And KState <> 1 Then keybd_event 27, 0, 0, 0
KState = GetKeyState(WIN_LWIN)
If KState <> 0 And KState <> 1 Then keybd_event 27, 0, 0, 0
End Sub

Bonne prog à toi en VB (ça fait drole de dire ça a un professeur) !!!

:-p Bricomix :-p
0
Messages postés
340
Date d'inscription
vendredi 11 octobre 2002
Statut
Membre
Dernière intervention
14 février 2005

Le nouveau source (avec l'autre, il était impossible de lancer une autre application après avoir lancé ce programme, il bloquait l'ouverture) :

Option Explicit
Private Declare Sub keybd_event Lib "user32" ( _
ByVal bVk As Byte, _
ByVal bScan As Byte, _
ByVal dwFlags As Long, _
ByVal dwExtraInfo As Long)
Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer
Private Const WIN_APPS = &H5D
Private Const WIN_RWIN = &H5C
Private Const WIN_LWIN = &H5B

Private Sub Form_Load()
Me.Visible = False
End Sub

Private Sub Timer1_Timer()
Dim KState As Long
KState = GetKeyState(WIN_APPS)
If KState <> 0 And KState <> 1 Then keybd_event 27, 0, 0, 0: keybd_event 27, 0, &H2, 0
KState = GetKeyState(WIN_RWIN)
If KState <> 0 And KState <> 1 Then keybd_event 27, 0, 0, 0: keybd_event 27, 0, &H2, 0
KState = GetKeyState(WIN_LWIN)
If KState <> 0 And KState <> 1 Then keybd_event 27, 0, 0, 0: keybd_event 27, 0, &H2, 0
End Sub

Please accept my program !!!

:-p Bricomix :-p
0