Blokkeer input

Alles over het toepassen van API en DLL's in Liberty BASIC

Moderator: anthonio

Blokkeer input

Berichtdoor anthonio » zo aug 17, 2008 2:11 pm

Oké, de volgende is een leuke API call.
Het blokkeert namelijk alle toetsenbord en muis input.
Dit werkt heel goed alleen het deblokkeren lukt me niet.
Ik heb al verschillende zaken geprobeerd maar niets blijkt te werken.
De code kan veilig uitgevoerd worden MAAR na op de "block" knop geduwd te hebben kan je dus niets meer doen met je windows.
Je moet dan het process liberty.exe stoppen via CONTROL+ALT+DELETE.

Code: Selecteer alles
nomainwin

WindowWidth = 100
WindowHeight = 100

button #main, "Block", [Block], UL, 10, 10
open "Block Input" for window as #main
#main, "trapclose [Quit]"
wait

[Block]

r = InputBlock(TRUE)
notice "Klik hier"
timer 2000, [Next]
wait
[Next]
timer 0
r = InputBlock(FALSE)
wait

[Quit]

close #main
end

Function InputBlock(what)
    calldll #user32, "BlockInput",_
        what as Long
End Function

Dual boot: Ubuntu 8.04 - WIndows XP SP2 (via VMware) - Windows Vista 32bit - Toshiba L40 - Dual Core @ 1,76GHz - 1GB RAM - 120GB HDD - VDSL Connection
Avatar gebruiker
anthonio
 
Berichten: 281
Geregistreerd: zo mei 20, 2007 9:58 pm

Re: Blokkeer input

Berichtdoor anthonio » ma aug 18, 2008 1:55 pm

Lol, heb de oplossing gevonden.
Had de API verkeerd gedeclareerd.
Wel een grappige api call.
Als je op de knop duwt zal je toetsenbord en muis 5seconden lang geen invoer kunnen geven :mrgreen:

Code: Selecteer alles
'Program written by anthonio (andy)

WindowWidth = 100
WindowHeight = 100

button #main, "Block", [Block], UL, 10, 10
open "Block Input" for window as #main
#main, "trapclose [Quit]"
wait

[Block]

hwnd = hwnd(#main)
callDll #user32, "BlockInput", 1 as long, r as long
print "Toetsenbord en muis input geblokkeerd"
timer 5000, [Next]
wait
[Next]
timer 0
print "Toetsenbord en muis input gedeblokkeerd"
callDll #user32, "BlockInput", 0 as long, r as long
wait

[Quit]

close #main
end
Dual boot: Ubuntu 8.04 - WIndows XP SP2 (via VMware) - Windows Vista 32bit - Toshiba L40 - Dual Core @ 1,76GHz - 1GB RAM - 120GB HDD - VDSL Connection
Avatar gebruiker
anthonio
 
Berichten: 281
Geregistreerd: zo mei 20, 2007 9:58 pm


Keer terug naar API/DLL

Wie is er online

Gebruikers op dit forum: Geen geregistreerde gebruikers. en 2 gasten

cron