Buchempfehlung
Windows System Programming
Windows System Programming
Das Kompendium liefert viele interessante Informationen zur Windows-Programmierung auf Englisch. [Mehr Infos...]
FreeBASIC-Chat
Es sind Benutzer im FreeBASIC-Chat online.
(Stand:  )
FreeBASIC bei Twitter
Twitter FreeBASIC-Nachrichten jetzt auch über Twitter erhalten. Follow us!

Code-Beispiel

Code-Beispiele » Kleine Helferlein

Desktop anzeigen

Lizenz:Erster Autor:Letzte Bearbeitung:
k. A.Mitgliedhhr 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 Mitgliedhhr angelegt.
  • Die aktuellste Version wurde am 09.03.2020 von Mitgliedhhr gespeichert.
  Bearbeiten Bearbeiten  

  Versionen Versionen