Code : Tout sélectionner
Global Dim partoch(66,1)
partoch(1,0) = 440 : partoch(1,1) = 500
partoch(2,0) = 440 : partoch(2,1) = 500
partoch(3,0) = 440 : partoch(3,1) = 500
partoch(4,0) = 349 : partoch(4,1) = 350
partoch(5,0) = 523 : partoch(5,1) = 150
partoch(6,0) = 440 : partoch(6,1) = 500
partoch(7,0) = 349 : partoch(7,1) = 350
partoch(8,0) = 523 : partoch(8,1) = 150
partoch(9,0) = 440 : partoch(9,1) = 1000
partoch(10,0) = 659 : partoch(10,1) = 500
partoch(11,0) = 659 : partoch(11,1) = 500
partoch(12,0) = 659 : partoch(12,1) = 500
partoch(13,0) = 698 : partoch(13,1) = 350
partoch(14,0) = 523 : partoch(14,1) = 150
partoch(15,0) = 415 : partoch(15,1) = 500
partoch(16,0) = 349 : partoch(16,1) = 350
partoch(17,0) = 523 : partoch(17,1) = 150
partoch(18,0) = 440 : partoch(18,1) = 1000
partoch(19,0) = 880 : partoch(19,1) = 500
partoch(20,0) = 440 : partoch(20,1) = 350
partoch(21,0) = 440 : partoch(21,1) = 150
partoch(22,0) = 880 : partoch(22,1) = 500
partoch(23,0) = 830 : partoch(23,1) = 250
partoch(24,0) = 784 : partoch(24,1) = 250
partoch(25,0) = 740 : partoch(25,1) = 125
partoch(26,0) = 698 : partoch(26,1) = 125
partoch(27,0) = 740 : partoch(27,1) = 250
partoch(28,0) = 455 : partoch(28,1) = 250
partoch(29,0) = 622 : partoch(29,1) = 500
partoch(30,0) = 587 : partoch(30,1) = 250
partoch(31,0) = 554 : partoch(31,1) = 250
partoch(32,0) = 523 : partoch(32,1) = 125
partoch(33,0) = 466 : partoch(33,1) = 125
partoch(34,0) = 523 : partoch(34,1) = 250
partoch(35,0) = 349 : partoch(35,1) = 125
partoch(36,0) = 415 : partoch(36,1) = 500
partoch(37,0) = 349 : partoch(37,1) = 375
partoch(38,0) = 440 : partoch(38,1) = 125
partoch(39,0) = 523 : partoch(39,1) = 500
partoch(40,0) = 440 : partoch(40,1) = 375
partoch(41,0) = 523 : partoch(41,1) = 125
partoch(42,0) = 659 : partoch(42,1) = 1000
partoch(43,0) = 880 : partoch(43,1) = 500
partoch(44,0) = 440 : partoch(44,1) = 350
partoch(45,0) = 440 : partoch(45,1) = 150
partoch(46,0) = 880 : partoch(46,1) = 500
partoch(47,0) = 830 : partoch(47,1) = 250
partoch(48,0) = 784 : partoch(48,1) = 250
partoch(49,0) = 740 : partoch(49,1) = 125
partoch(50,0) = 698 : partoch(50,1) = 125
partoch(51,0) = 740 : partoch(51,1) = 250
partoch(52,0) = 455 : partoch(52,1) = 250
partoch(53,0) = 622 : partoch(53,1) = 500
partoch(54,0) = 587 : partoch(54,1) = 250
partoch(55,0) = 554 : partoch(55,1) = 250
partoch(56,0) = 523 : partoch(56,1) = 125
partoch(57,0) = 466 : partoch(57,1) = 125
partoch(58,0) = 523 : partoch(58,1) = 250
partoch(59,0) = 349 : partoch(59,1) = 250
partoch(60,0) = 415 : partoch(60,1) = 500
partoch(61,0) = 349 : partoch(61,1) = 375
partoch(62,0) = 523 : partoch(62,1) = 125
partoch(63,0) = 440 : partoch(63,1) = 500
partoch(64,0) = 349 : partoch(64,1) = 375
partoch(65,0) = 261 : partoch(65,1) = 125
partoch(66,0) = 440 : partoch(66,1) = 1000
Global hook, note = 1
Procedure.l Hook(nCode, wParam, *p.KBDLLHOOKSTRUCT)
If nCode = #HC_ACTION
If wParam = #WM_KEYDOWN
Beep_(partoch(note,0),partoch(note,1))
note + 1
If note = ArraySize(partoch()) : note = 1 : EndIf
EndIf
EndIf
ProcedureReturn CallNextHookEx_(hook, nCode, wParam, lParam)
EndProcedure
#WH_KEYBOARD_LL = 13
hook = SetWindowsHookEx_(#WH_KEYBOARD_LL,@Hook(),GetModuleHandle_(0),0)
OpenWindow(0,0,0,0,0,"",#PB_Window3D_Invisible)
Repeat : Until WaitWindowEvent() = #PB_Event_CloseWindow
