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

Question

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

Bricomix · Answer

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

Bricomix · Answer

J'ai fini, je te l'envoie où ?

 :-p  Bricomix  :-p 

PS : L'anglais c'est pas mon fort (j'ai que 13 ans)

Bricomix · Answer

J'ai fini, je te l'envoie où ?

 :-p  Bricomix  :-p 

PS : L'anglais c'est pas mon fort (j'ai que 13 ans)

Bricomix · Answer

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

Bricomix · Answer

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

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

5 réponses

Discussions similaires