neutraliser les click indésirables

label clic
dim i

list 10 : height 10,300 : on_click 10,clic
for i = 1 to 20
item_add 10,"Item N° " + str$(i)
next i
end
clic:
off_click 10  : ' interdire les clics
message item_read$(10,item_index(10)) + chr$(13) + "Les clics ne sont plus pris en charge pendan 5 s!"
pause 5000
message "Les clics sont à nouveaux actifs !"
on_click 10,clic : ' autoriser les clics
return

rem ============================================================================
rem            BlockInput de la user32.dll
rem The BlockInput function blocks keyboard and mouse input events from reaching
rem applications.
rem ============================================================================

label event
dim ret%
button 10 : top 10,100 : left 10,200 : font_bold 10 : caption 10,"Cliquer"
font_size 10,18 : width 10,100 : on_click 10,event
alpha 20 : top 20, 200 : left 20,10: font_bold 20 : font_size 20,18
dll_on "user32"
end
rem ============================================================================
Event:
' block the mouse and keyboard input
    caption 20,"La souris et le clavier sont bloqués pendant 10 s." + chr$(13) + "Tu ne peux plus cliquer ni utiliser le clavier !"
    ret% = dll_call1("BlockInput",1)
' wait 10 seconds before unblocking it
    pause 10000
' unblock the mouse and keyboard input
    caption 20,"La souris et le clavier sont à nouveau actifs." + chr$(13) + "Essaie pour voir !"
    ret% = dll_call1("BlockInput",0)
return
rem ============================================================================

INACTIVE N