Code-Beispiel
Desktop anzeigen
| Lizenz: | Erster Autor: | Letzte Bearbeitung: |
| k. A. |  hhr |  09.03.2020 |
ToggleDesktop.bas - zu kompilieren mit -s gui (Windows GUI)
An Taskleiste anheften, Symbol wählen.
keybd_event:
#include "windows.bi"
keybd_event(VK_LWIN,0,0,0) 'Windows-Taste drücken
keybd_event(&h44,0,0,0) 'D-Taste drücken
keybd_event(&h44,0,KEYEVENTF_KEYUP,0) 'D-Taste loslassen
keybd_event(VK_LWIN,0,KEYEVENTF_KEYUP,0) 'Windows-Taste loslassen
End
'
SendInput:
#include "windows.bi"
Dim ki(0 To 3) As INPUT_
ki(0).type = INPUT_KEYBOARD
ki(0).ki.wVk = VK_LWIN
ki(0).ki.dwFlags = 0
ki(1).type = INPUT_KEYBOARD
ki(1).ki.wVk = &h44
ki(1).ki.dwFlags = 0
ki(2).type = INPUT_KEYBOARD
ki(2).ki.wVk = &h44
ki(2).ki.dwFlags = KEYEVENTF_KEYUP
ki(3).type = INPUT_KEYBOARD
ki(3).ki.wVk = VK_LWIN
ki(3).ki.dwFlags = KEYEVENTF_KEYUP
SendInput(4,@ki(0),Sizeof(ki)) ' SendInput(Ubound(ki)-Lbound(ki)+1,@ki(Lbound(ki)),Sizeof(ki))
End
'Symbole:
%SystemRoot%\system32\SHELL32.dll
%SystemRoot%\explorer.exe
%SystemRoot%\System32\imageres.dll
Quellen:
https://docs.microsoft.com/en-us/windows/win32/api/winuser/nf-winuser-keybd_event
https://docs.microsoft.com/de-de/windows/win32/api/winuser/nf-winuser-sendinput
https://www.freebasic.net/forum/viewtopic.php?t=4352&highlight=sendinput -> MichaelW » Jun 05, 2006 18:49
Dim As INPUT_: FreeBASIC\changelog.txt, FreeBASIC\inc\win\winuser.bi
| Zusätzliche Informationen und Funktionen |
|---|
- Das Code-Beispiel wurde am 25.02.2020 von hhr angelegt.
- Die aktuellste Version wurde am 09.03.2020 von hhr gespeichert.
|
|
Wer ist online?
Buchempfehlung
FreeBASIC-Chat
FreeBASIC-Nachrichten jetzt auch über Twitter erhalten. Follow us!
Bearbeiten
Versionen