Hotkeyprogramm - Umschalttaste+Windowstaste+Pfeiltaste links/rechts ausführen

  • VB.NET

Es gibt 14 Antworten in diesem Thema. Der letzte Beitrag () ist von Joshi.

    Hotkeyprogramm - Umschalttaste+Windowstaste+Pfeiltaste links/rechts ausführen

    Hallo zusammen,

    schreibe mir gerade ein kleines Hotkey-Programm.

    Nun möchte ich mit der Rollentaste oder Drucktaste das Drücken der o. g. Tastenkombination auslösen.

    Durch diese Tastenkombination kann man ja das aktive Programm von einem Monitor auf den anderen legen.

    Leiden habe ich nichts gefunden, wie man die Tastenkombination ausführen kann. Oder gibt es sogar eine Möglichkeit diese Aktion anders auszuführen?

    Die Drucktaste kann ich mit RegisterHotKey(Me.Handle, 4, KeyModifier.Keine, Keys.PrintScreen) abfangen.

    - Kann mir jemand helfen, wie man einmal die Rollentaste abfangen kann und
    - dann die o. g. Tastenkombination ausführt?

    Hier Windows Taste simulieren mit sendkeys (letzter Post) funktioniert zwar die Windowstaste, aber ich benötige ja eine 3er Tastenkombination

    Wäre schön, wenn mir jemand helfen könnte.

    Freundliche Grüße

    Volker

    Hi @Volker Bunge

    Die Umschalttaste und die Windowstaste sind Modifier, also beide zusammen.
    Beim Senden einer Tastenkombination werden die Modifier mit einem logischen Oder-Operator zu einem Wert zusammengesetzt.
    Dieses wird im Betriebssystem auch so erwartet.

    Also bei deinem Beispiel:

    VB.NET-Quellcode

    1. RegisterHotKey(Me.Handle, 4, KeyModifier.Win Or KeyModifier.Shift, Keys.PrintScreen)


    OOODER... es ist dann doch ein AND

    Und hier ein Link zur Liste der Windows Keys.
    docs.microsoft.com/de-de/dotne…&viewFallbackFrom=net-6.0

    Kann mich gerade nicht so gut erinnern wie genau, aber überm Daumen die Windows-Taste und so... und, oder, aber... ;)

    Viel Erfolg und c.u Joshi

    Hallo Joshi,

    sorry, dass ich mich jetzt erst melde. Es kam mal wieder viele andere Dinge dazwischen.

    Mit RegisterHotKey registriert man doch nur eine Taste und kann diese dann mit der 4 (als Beispiel) in einer Select-Case auswerten.

    Ich möchte aber, dass beim drücken der Printtaste das aktuelle Programm auf einen anderen Monitor verschoben wird. Das kann man normaler weise mit Shift+Windowstaste und den Pfeiltasten Links/Rechts erledigen.

    Die Lösung kann auch über das ermitteln des aktuellen Programmes gehen, welches dann über eine Verschieberoutine auf einen anderen Monitor verschoben wird, gelöst werden. Die Tastenkombination wird aber wahrscheinlich die einfachste Lösung sein.

    Hast Du, oder jemand anderes hier eine Lösung für mich?

    Gruß
    Volker

    Hi @Volker Bunge

    Auf dem Handle des aktiven Fensters (oder vielleicht Control),
    das Keypress-Event des Hotkeys (Drucken-Taste) abfangen und
    als Handled = True setzen,
    dann den gewünschten Aufruf (Sende Bildschirm wechsel Anweisung) ausführen.

    Wie ein Relay; schaltet etwas ein, dann was Anderes/Zusätzliches (evtl. Mehrere Operationen) ausführen.

    Ich mache sonst keine Verweise auf StackOverflow, aber dort ist eine Implementierung in VB zu finden.

    stackoverflow.com/a/34755545/5955856

    Fragestellung: Set global hotkeys using C#

    Weiter unten ist die VB-Version.

    c.u. Joshi TLDR; :D

    Hallo Joshi,

    vielen Dank für Deine Antwort,

    Wenn ich das richtig verstanden habe, zielt Deine Antwort auf das Verschieben einer VB.Net Lösung ab.

    Ich möchte aber mit meiner VB.Net Lösung das gerade aktive Programm (Chrome, Word, Excel usw.) auf den Monitoren hin und her bewegen. Dort kann ich ja leider, so wie Du es beschreibst, leider nicht eingreifen.

    Wie gesagt: Wenn ich die Print-Taste drücke, dann reagiert mein Programm (zum Testen habe ich eine MSGBox eingebaut). Ich suche jetzt eigentlich nur noch eine Möglichkeit, die Tastenkombination Shift+Windowstaste+Linke/Rechte Pfeiltaste zu simulieren, so dass sich das aktuelle Programm über die Monitore bewegt.

    Gruß

    Volker

    Hallo Joshi,

    habe gerade die Lösung gefunden.
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public Declare Sub keybd_event Lib "user32.dll" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Int32, ByVal dwExtraInfo As Int32)
    2. ' keybd_event dwFlags-Konstanten
    3. Public Const KEYEVENTF_EXTENDEDKEY = &H1 ' Erweiterte Tastatureingabe
    4. Public Const KEYEVENTF_KEYUP = &H2 ' Die angegebene Taste wird losgelassen
    6. ' GetAsyncKeyState vKey-Konstanten
    7. Public Const VK_LWIN = &H5B ' Windows-Taste
    8. Public Const VK_SHIFT = &H10 ' Shift Taste
    9. Public Const VK_LEFT = &H25 ' Linke Pfeiltaste
    11. keybd_event(VK_SHIFT, 0, KEYEVENTF_EXTENDEDKEY , 0) ' Umschalt-Taste
    12. keybd_event(VK_LWIN, 0, KEYEVENTF_EXTENDEDKEY , 0) ' Windows-Taste
    13. keybd_event(VK_LEFT, 0, KEYEVENTF_EXTENDEDKEY , 0) ' Linke Pfeiltaste-Taste
    14. keybd_event(VK_SHIFT, 0, KEYEVENTF_KEYUP, 0)
    15. keybd_event(VK_LWIN, 0, KEYEVENTF_KEYUP, 0)
    16. keybd_event(VK_LEFT, 0, KEYEVENTF_KEYUP, 0)


    So, werde es morgen noch einmal alles testen und hoffe, dass mein Programm damit fertig ist.

    Gruß

    Volker

    *Korrekten Code-Tag eingefügt*

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „Marcus Gräfe“ ()

    Moinsen. @Volker Bunge

    Genau so geht das mit den Tastaturanschlägen.

    Könntest Du uns allen ein Gefallen tun?

    Wenn Du fertig hast, einmal für alle Bildschirm Richtungen den Quellcode hier reinstellen?

    Soweit ich mich erinnern kann sind diese Aufgaben so häufig in der Fragestellung, dass alle Suchmaschinen darunter ächzen. :)

    Danke Dir im Voraus.

    c.u. Joshi mit Kaffe und so...

    Hallo Joshi,

    habe gerade noch meinen Code von oben ein wenig geändert.

    aus 0, 0, 0 wurde 0, KEYEVENTF_EXTENDEDKEY, 0. Hatte nämlich heute morgen das Problem, dass mein Programm nicht mehr so wollte wie gestern.

    Hoffe jetzt, dass es jetzt klappt.

    Werde den Code hier noch einmal einstellen. Aber zuvor wird noch auf ein paar anderen Rechnern getestet.

    Ich wollte evtl. noch ein Video drehen und werde es dann auch hier verlinken.

    Gruß
    Volker

    Ich sehe, dass ich das Thema viel zu lange nicht gelesen habe.
    Solch ein Problem würde ich nicht per Hotkeydatensenden lösen, sondern per UIAutomation. Einfach dem Fenster den Befehl geben: Beweg Dich woanders hin.
    Ausführlich habe ich sowas in externe .Net-Programme auslesen und manipulieren beschrieben.

    Zuerst die Zielkoordinaten ermitteln:

    VB.NET-Quellcode

    1. Dim OtherScreen = Screen.AllScreens.FirstOrDefault(Function(x) Not x.Primary) 'hier als Beispiel: Den ersten Nichtprimärscreen hernehmen, um das Fenster später dorthin zu verschieben
    2. Dim Zielkoordinaten As Drawing.Point = New Drawing.Point(0, 0)
    3. If OtherScreen.Exists Then Zielkoordinaten = OtherScreen.Bounds.Location

    und dann:

    VB.NET-Quellcode

    1. Dim ZielApp = AutomationElement.RootElement.FindFirst(TreeScope.Children, New PropertyCondition(AutomationElement.NameProperty, TitelDerZielApp))
    2. ZielApp?.TryToGetPattern(Of TransformPattern)?.Move(Zielkoordinaten.X, Zielkoordinaten.Y)


    ##########

    Aber Moment. Wenn es darum geht, das sich das eigene Programm umplatziert, geht es noch viel einfacher:

    VB.NET-Quellcode

    1. Dim OtherScreen = Screen.AllScreens.FirstOrDefault(Function(x) Not x.Primary) 'hier als Beispiel: Den ersten Nichtprimärscreen hernehmen, um das Fenster später dorthin zu verschieben
    2. If OtherScreen IsNot Nothing Then Me.Location = OtherScreen.Bounds.Location

    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

    Dieser Beitrag wurde bereits 4 mal editiert, zuletzt von „VaporiZed“ ()

    Hallo zusammen,

    hier nun mal der Code von meinem Hotkey-Programm mit Erklärungen.

    Spoiler anzeigen

    VB.NET-Quellcode

    1. ' Wird für das Warten benötigt
    2. Imports System.Threading
    4. ' Für das Einstellen der Autostartfunktion
    5. Imports Microsoft.Win32
    6. Module Deklarationen
    8. #Region "Ein paar Deklarationen"
    9. ' Diese Funktion wird für die Tastendefinition benötigt
    10. Public Declare Function RegisterHotKey Lib "user32" (ByVal hWnd As IntPtr, ByVal id As Integer, ByVal fsModifier As Integer, ByVal vk As Integer) As Integer
    12. Public Declare Sub keybd_event Lib "user32.dll" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Int32, ByVal dwExtraInfo As Int32)
    14. ' Es wird ein Verweis auf den Registry-Schlüssel Computer\HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Run gesetzt.
    15. ' In diesem Zweig sind alle Autostartprogramme aufgeführt
    16. Public RegKey As Microsoft.Win32.RegistryKey = Registry.CurrentUser.CreateSubKey("Software\Microsoft\Windows\CurrentVersion\Run")
    18. ' keybd_event dwFlags-Konstanten
    19. Public Const KEYEVENTF_EXTENDEDKEY = &H1 ' Erweiterte Tastatureingabe
    20. Public Const KEYEVENTF_KEYUP = &H2 ' Die angegebene Taste wird losgelassen
    22. ' Eine Konstante für den späteren Abgleich festlegen
    23. Public Const WM_HOTKEY As Integer = &H312
    25. ' Festhalten, ob das Programm gestartet wurde
    26. Public Programmstart As Boolean
    28. ' Damit wird eine Warteschleife ermöglicht zu starten
    29. Public Warten As New ManualResetEvent(False)
    31. Public Enum KeyModifier
    32. ' Werteliste für die möglichen Zusatztasten festlegen
    33. Keine = 0
    34. Alt = 1
    35. Control = 2
    36. Shift = 4
    37. End Enum
    39. #End Region
    41. #Region "Tastaturwerte"
    42. ' Herkunft: https://www.vbarchiv.net/api/api_kybd_event.html
    44. ' Die Werte für die einzelnen Tasten
    45. ' Hier die benötigten Tastenwerte
    46. Public Const VK_C = &H43 ' Taste C
    47. Public Const VK_V = &H56 ' Taste V
    48. Public Const VK_X = &H58 ' Taste X
    50. Public Const VK_S = &H53 ' Taste S
    52. Public Const VK_LWIN = &H5B ' Windows-Taste
    53. Public Const VK_SHIFT = &H10 ' Shift Taste
    54. Public Const VK_LEFT = &H25 ' Linke Pfeiltaste
    55. ' Public Const VK_RIGHT = &H27 ' Rechte Pfeiltaste
    57. ' und hier alle weiteren, die möglich sind
    58. Public Const VK_LBUTTON = &H1 ' Linker Mausbutton
    59. Public Const VK_RBUTTON = &H2 ' Rechter Mausbutton
    60. Public Const VK_MBUTTON = &H4 ' Mittlerer Masubutton
    61. Public Const VK_BACK = &H8 ' Backspace Taste
    62. Public Const VK_TAB = &H9 ' Tab Taste
    63. Public Const VK_CLEAR = &HC ' Numpad 5 ohne Numlock
    64. Public Const VK_RETURN = &HD ' Enter Taste
    65. Public Const VK_CONTROL = &H11 ' STRG Taste
    66. Public Const VK_MENU = &H12 ' Alt Taste
    67. Public Const VK_PAUSE = &H13 ' Pause/Untbr
    68. Public Const VK_CAPITAL = &H14 ' Caps Lock/Feststelltaste
    69. Public Const VK_ESCAPE = &H1B ' Escape
    70. Public Const VK_SPACE = &H20 ' Space/Leertaste
    71. Public Const VK_PRIOR = &H21 ' PageUp/Bild hoch
    72. Public Const VK_NEXT = &H22 ' PageDown/Bild runter
    73. Public Const VK_END = &H23 ' Ende
    74. Public Const VK_HOME = &H24 ' Home/Pos1
    75. Public Const VK_UP = &H26 ' Obere Pfeilaste
    76. Public Const VK_DOWN = &H28 ' Untee Pfeiltaste
    77. Public Const VK_PRINT = &H2A ' Drucken (Nokia Tastaturen)
    78. Public Const VK_SNAPSHOT = &H2C ' Drucken/S-Abf
    79. Public Const VK_INSERT = &H2D ' Einfügen
    80. Public Const VK_DELETE = &H2E ' Entfernen
    81. Public Const VK_HELP = &H2F ' Hilfe
    82. Public Const VK_0 = &H30 ' Taste 0
    83. Public Const VK_1 = &H31 ' Taste 1
    84. Public Const VK_2 = &H32 ' Taste 2
    85. Public Const VK_3 = &H33 ' Taste 3
    86. Public Const VK_4 = &H34 ' Taste 4
    87. Public Const VK_5 = &H35 ' Taste 5
    88. Public Const VK_6 = &H36 ' Taste 6
    89. Public Const VK_7 = &H37 ' Taste 7
    90. Public Const VK_8 = &H38 ' Taste 8
    91. Public Const VK_9 = &H39 ' Taste 9
    92. Public Const VK_A = &H41 ' Taste A
    93. Public Const VK_B = &H42 ' Taste B
    94. Public Const VK_D = &H44 ' Taste D
    95. Public Const VK_E = &H45 ' Taste E
    96. Public Const VK_F = &H46 ' Taste F
    97. Public Const VK_G = &H47 ' Taste G
    98. Public Const VK_H = &H48 ' Taste H
    99. Public Const VK_I = &H49 ' Taste I
    100. Public Const VK_J = &H4A ' Taste J
    101. Public Const VK_K = &H4B ' Taste K
    102. Public Const VK_L = &H4C ' Taste L
    103. Public Const VK_M = &H4D ' Taste M
    104. Public Const VK_N = &H4E ' Taste N
    105. Public Const VK_O = &H4F ' Taste O
    106. Public Const VK_P = &H50 ' Taste P
    107. Public Const VK_Q = &H51 ' Taste Q
    108. Public Const VK_R = &H52 ' Taste R
    109. Public Const VK_T = &H54 ' Taste T
    110. Public Const VK_U = &H55 ' Taste U
    111. Public Const VK_W = &H57 ' Taste W
    112. Public Const VK_Y = &H59 ' Taste Y
    113. Public Const VK_Z = &H5A ' Taste Z
    114. Public Const VK_STARTKEY = &H5B ' Startmenütaste
    115. Public Const VK_CONTEXTKEY = &H5D ' Kentextmenü
    116. Public Const VK_NUMPAD0 = &H60 ' Numpad Taste 0
    117. Public Const VK_NUMPAD1 = &H61 ' Numpad Taste 1
    118. Public Const VK_NUMPAD2 = &H62 ' Numpad Taste 2
    119. Public Const VK_NUMPAD3 = &H63 ' Numpad Taste 3
    120. Public Const VK_NUMPAD4 = &H64 ' Numpad Taste 4
    121. Public Const VK_NUMPAD5 = &H65 ' Numpad Taste 5
    122. Public Const VK_NUMPAD6 = &H66 ' Numpad Taste 6
    123. Public Const VK_NUMPAD7 = &H67 ' Numpad Taste 7
    124. Public Const VK_NUMPAD8 = &H68 ' Numpad Taste 8
    125. Public Const VK_NUMPAD9 = &H69 ' Numpad Taste 9
    126. Public Const VK_MULTIPLY = &H6A ' Numpad Multiplikations Taste (*)
    127. Public Const VK_ADD = &H6B ' Numpad Additions Taste (+)
    128. Public Const VK_SUBTRACT = &H6D ' Numpad Subtrations Taste (-)
    129. Public Const VK_DECIMAL = &H6E ' Numpad Komma Taste (,)
    130. Public Const VK_DIVIDE = &H6F ' Numpad Devidierungs Taste (/)
    131. Public Const VK_F1 = &H70 ' F1 Taste
    132. Public Const VK_F2 = &H71 ' F2 Taste
    133. Public Const VK_F3 = &H72 ' F3 Taste
    134. Public Const VK_F4 = &H73 ' F4 Taste
    135. Public Const VK_F5 = &H74 ' F5 Taste
    136. Public Const VK_F6 = &H75 ' F6 Taste
    137. Public Const VK_F7 = &H76 ' F7 Taste
    138. Public Const VK_F8 = &H77 ' F8 Taste
    139. Public Const VK_F9 = &H78 ' F9 Taste
    140. Public Const VK_F10 = &H79 ' F10 Taste
    141. Public Const VK_F11 = &H7A ' F11 Taste
    142. Public Const VK_F12 = &H7B ' F12 Taste
    143. Public Const VK_F13 = &H7C ' F13 Taste
    144. Public Const VK_F14 = &H7D ' F14 Taste
    145. Public Const VK_F15 = &H7E ' F15 Taste
    146. Public Const VK_F16 = &H7F ' F16 Taste
    147. Public Const VK_F17 = &H80 ' F17 Taste
    148. Public Const VK_F18 = &H81 ' F18 Taste
    149. Public Const VK_F19 = &H82 ' F19 Taste
    150. Public Const VK_F20 = &H83 ' F20 Taste
    151. Public Const VK_F21 = &H84 ' F21 Taste
    152. Public Const VK_F22 = &H85 ' F22 Taste
    153. Public Const VK_F23 = &H86 ' F23 Taste
    154. Public Const VK_F24 = &H87 ' F24 Taste
    155. Public Const VK_NUMLOCK = &H90 ' Numlock Taste
    156. Public Const VK_OEM_SCROLL = &H91 ' Scroll Lock (Rollen-Taste)
    157. Public Const VK_LSHIFT = &HA0 ' Linke Shift-Taste
    158. Public Const VK_RSHIFT = &HA1 ' Rechte Shift-Taste
    159. Public Const VK_LCONTROL = &HA2 ' Linke STRG-Taste
    160. Public Const VK_RCONTROL = &HA3 ' Rechte STRG-Taste
    161. Public Const VK_LMENU = &HA4 ' Linke ALT-Taste
    162. Public Const VK_RMENU = &HA5 ' Rechte ALT-Taste
    163. Public Const VK_OEM_1 = &HBA ' ";"-Taste
    164. Public Const VK_OEM_PLUS = &HBB ' "
    165. Public Const VK_OEM_COMMA = &HBC ' ","-Taste
    166. Public Const VK_OEM_MINUS = &HBD ' "-"-Taste
    167. Public Const VK_OEM_PERIOD = &HBE ' "."-taste
    168. Public Const VK_OEM_2 = &HBF ' "/"-Taste
    169. Public Const VK_OEM_3 = &HC0 ' "`"-Taste
    170. Public Const VK_OEM_4 = &HDB ' "["-Taste
    171. Public Const VK_OEM_5 = &HDC ' "\"-Taste
    172. Public Const VK_OEM_6 = &HDD ' "]"-Taste
    173. Public Const VK_OEM_7 = &HDE ' "
    174. Public Const VK_ICO_F17 = &HE0 ' F17 einer Olivetti Tastatur (Intern)
    175. Public Const VK_ICO_F18 = &HE1 ' F18 einer Olivetti Tastatur (Intern)
    176. Public Const VK_OEM102 = &HE2 ' "<"-Taste oder "|"-Taste einer ' IBM-Kompatiblen 102 Tastatur (Nicht US)
    177. Public Const VK_ICO_HELP = &HE3 ' Hilfetaste einer Olivetti Tastatur ' (Intern)
    178. Public Const VK_ICO_00 = &HE4 ' 00-Taste einer Olivetti Tastatur (Intern)
    179. Public Const VK_ICO_CLEAR = &HE6 ' Löschen Taste einer Olivetti Tastatur ' (Intern)
    180. Public Const VK_OEM_RESET = &HE9 ' Reset Taste (Nokia)
    181. Public Const VK_OEM_JUMP = &HEA ' Springen Taste (Nokia)
    182. Public Const VK_OEM_PA1 = &HEB ' PA1 Taste (Nokia)
    183. Public Const VK_OEM_PA2 = &HEC ' PA2 Taste (Nokia)
    184. Public Const VK_OEM_PA3 = &HED ' PA3 Taste (Nokia)
    185. Public Const VK_OEM_WSCTRL = &HEE ' WSCTRL Taste (Nokia)
    186. Public Const VK_OEM_CUSEL = &HEF ' WSCTRL Taste (Nokia)
    187. Public Const VK_OEM_ATTN = &HF0 ' ATTN Taste (Nokia)
    188. Public Const VK_OEM_FINNISH = &HF1 ' Fertig Taste (Nokia)
    189. Public Const VK_OEM_COPY = &HF2 ' Kopieren Taste (Nokia)
    190. Public Const VK_OEM_AUTO = &HF3 ' Auto Taste (Nokia)
    191. Public Const VK_OEM_ENLW = &HF4 ' ENLW Taste (Nokia)
    192. Public Const VK_OEM_BACKTAB = &HF5 ' BackTab Taste (Nokia)
    193. Public Const VK_ATTN = &HF6 ' ATTN-Taste
    194. Public Const VK_CRSEL = &HF7 ' CRSEL-Taste
    195. Public Const VK_EXSEL = &HF8 ' EXSEL-Taste
    196. Public Const VK_EREOF = &HF9 ' EREOF-Taste
    197. Public Const VK_PLAY = &HFA ' PLAY-Taste
    198. Public Const VK_ZOOM = &HFB ' ZOOM-Taste
    199. Public Const VK_NONAME = &HFC ' NONAME-Taste
    200. Public Const VK_PA1 = &HFD ' PA1-Taste
    201. Public Const VK_OEM_CLEAR = &HFE ' OEM_CLEAR-Taste
    203. #End Region
    205. End Module


    Spoiler anzeigen

    Quellcode

    1. Public Class Form1
    3. #Region "Hauptteil"
    4. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    5. ' Das Programm wurde gestartet
    6. Programmstart = True
    8. ' Die Checkboxen für die Möglichkeiten werden wieder so eingestellt, wie sie beim letzten Verlassen waren
    9. Call Checkboxen_wiederherstellen()
    11. ' Das Icon links neben der Uhr anzeigen
    12. NotifyIcon1.Visible = True
    14. ' Die Auswahl - Form wird ausgeblendet
    15. Me.Hide()
    17. ' Wenn das Programm gestartet wird dieser Hinweis für x Sekunden angezeigt
    18. ' HINWEIS: Falls kein Text angezeigt wird, dann bei Windows 10 mal ganz unten rechts auf das Symbol klicken und bei Benachrichtigung & Aktionen suchen
    19. ' Der Benachrichtigungsasistant sollte grau sein.
    20. ' In der Liste der Programme sollte dieses hier eingeschaltet sein.
    21. ' So
    22. If My.Settings.Hinweistext_Anzeigen = True Then
    23. ' NotifyIcon1.ShowBalloonTip(my.settings.Hinweistext_Anzeigen_Sekunden*1000)
    24. ' NotifyIcon1.BalloonTipTitle = "VB Hotkeys"
    25. ' NotifyIcon1.BalloonTipText = "Volker Bunge's Hotkeyprogramm ist gestartet"
    26. ' NotifyIcon1.BalloonTipIcon = ToolTipIcon.Info
    27. ' oder kürzer
    28. NotifyIcon1.ShowBalloonTip(My.Settings.Hinweistext_Anzeigen_Sekunden * 1000, "VB Hotkeys", "Volker Bunge's Hotkeyprogramm ist gestartet", ToolTipIcon.Info)
    29. End If
    31. ' Das Programm wird in der Taskleiste nicht angezeigt
    32. ShowInTaskbar = False
    34. ' Die Tasten werden festgelegt (Sollte möglichst am Ende erfolgen, da es sonst nicht funktionieren könnte)
    35. Call Tasten_festlegen()
    37. ' Die globale Variable wird wieder zurück gesetzt
    38. Programmstart = False
    39. End Sub
    41. Sub Checkboxen_wiederherstellen()
    42. ' Die zuletzt eingestellten Werte der Checkboxen werden aus den Internen My.Settingvariablen wiederhergestellt.
    43. CBox_STRG_C.Checked = My.Settings.Taste_STRG_C
    44. CBox_STRG_V.Checked = My.Settings.Taste_STRG_V
    45. CBox_Umschalt_Enter.Checked = My.Settings.Taste_STRG_X
    46. CBox_STRG_S.Checked = My.Settings.Taste_STRG_S
    48. CBox_Drucktaste.Checked = My.Settings.Taste_Drucken
    49. CBox_Rollentaste.Checked = My.Settings.Taste_Rollen
    51. CBox_Hinweis_Ballon_anzeigen.Checked = My.Settings.Hinweistext_Anzeigen
    52. TBox_Hinweistext_Anzeigedauer.Text = CStr(My.Settings.Hinweistext_Anzeigen_Sekunden) ' So, wenn Option Strict = On ist, ansonsten reicht auch My.Settings.Hinweistext_Anzeigen_Sekunden
    54. CBox_Autostart.Checked = My.Settings.Autostart
    56. ' Das Icon wird noch schnell anpasst
    57. Call TrayIcon_anpassen()
    59. End Sub
    61. Sub Checkboxen_sichern()
    62. ' Hier werden die aktuellen Einstellungen in den internen Variablen gesichert
    63. My.Settings.Taste_STRG_C = CBox_STRG_C.Checked
    64. My.Settings.Taste_STRG_V = CBox_STRG_V.Checked
    65. My.Settings.Taste_STRG_X = CBox_Umschalt_Enter.Checked
    66. My.Settings.Taste_STRG_S = CBox_STRG_S.Checked
    68. My.Settings.Taste_Drucken = CBox_Drucktaste.Checked
    69. My.Settings.Taste_Rollen = CBox_Rollentaste.Checked
    71. My.Settings.Hinweistext_Anzeigen = CBox_Hinweis_Ballon_anzeigen.Checked
    72. My.Settings.Hinweistext_Anzeigen_Sekunden = CInt(TBox_Hinweistext_Anzeigedauer.Text) ' So, wenn Option Strict = On ist, ansonsten reicht auch TBox_Hinweistext_Anzeigedauer.Text
    74. My.Settings.Autostart = CBox_Autostart.Checked
    76. My.Settings.Save()
    77. End Sub
    79. Sub TrayIcon_anpassen()
    80. ' Je nachdem, welche Tastenkombinationen gewählt wurde, wird das Programmicon geändert
    81. If My.Settings.Taste_Drucken = True Then
    82. ' Bei der Druckentaste
    83. If My.Settings.Taste_STRG_C = True Then
    84. ' Wenn die STRG + C Taste per STRG - Taste gedrückt wird, wird das schwarze D angezeigt
    85. Me.NotifyIcon1.Icon = My.Resources.Icon_schwarz_D
    86. Else
    87. ' Wenn die STRG + S Taste per STRG - Taste gedrückt wird, wird das rote D angezeigt
    88. Me.NotifyIcon1.Icon = My.Resources.Icon_rot_D
    89. End If
    90. Else
    91. ' Bei der Rollentaste
    92. If My.Settings.Taste_STRG_C = True Then
    93. ' Wenn die STRG + C Taste per STRG - Taste gedrückt wird, wird das schwarze D angezeigt
    94. Me.NotifyIcon1.Icon = My.Resources.Icon_schwarz_R
    95. Else
    96. ' Wenn die STRG + S Taste per STRG - Taste gedrückt wird, wird das rote D angezeigt
    97. Me.NotifyIcon1.Icon = My.Resources.Icon_rot_R
    98. End If
    99. End If
    101. End Sub
    103. Sub Tasten_festlegen()
    104. ' Hier werden die Tasten bzw. deren Kombinationen festgelegt
    105. ' Me.Handle ist das aktuelle Formular
    106. ' 1-4 sind die späteren Indexe
    107. ' danach folgen die KeyModifier-Tasten
    108. ' zum Schluss noch die "normalen" Tasten per Keys (Wenn keine weitere "normale" Taste benötigt wird, dann wird diess mit KeyModifier.Keine eingestellt
    109. RegisterHotKey(Me.Handle, 1, KeyModifier.Control, KeyModifier.Keine) ' STRG - Taste
    110. RegisterHotKey(Me.Handle, 2, KeyModifier.Control + KeyModifier.Shift, KeyModifier.Keine) ' STRG + Umschalttastee
    111. RegisterHotKey(Me.Handle, 3, KeyModifier.Shift, Keys.Enter) ' Umschalttaste + Enter
    112. ' RegisterHotKey(Me.Handle, 3, KeyModifier.Shift, Keys.OemQuestion) ' Umschalt und die #' - Taste (Im amerikanischen ist hier das Fragezeichen zu finden=
    114. ' Hier nun entweder die Drucktaste oder die Rollentaste aktivieren
    115. If My.Settings.Taste_Drucken = True Then
    116. RegisterHotKey(Me.Handle, 4, KeyModifier.Keine, Keys.PrintScreen) ' Drucktaste
    117. Else
    118. RegisterHotKey(Me.Handle, 4, KeyModifier.Keine, Keys.Scroll) ' Rollentaste
    119. End If
    121. End Sub
    123. Protected Overrides Sub WndProc(ByRef m As Message)
    125. ' Hier werden nun die Tastendrücke ausgewertet
    126. If m.Msg = WM_HOTKEY Then
    127. ' Wurde ein Hotkey gedrückt
    128. Select Case CInt(m.WParam) ' So, wenn Option Strict = On ist, ansonsten reicht auch m.WParam
    129. ' Dann werden hier die einzelnen Indiezes ausgewertet
    130. Case 1 ' STRG-Taste
    132. ' Da hier zwei Funktionen möglich sind, wird erst einmal die erste überprüft
    133. If My.Settings.Taste_STRG_C = True Then
    134. ' Die jeweilige Aktion wird hier nun ausgeführt
    135. ' SendKeys.SendWait("^c")
    136. keybd_event(VK_CONTROL, 0, KEYEVENTF_EXTENDEDKEY, 0) ' Linke Pfeiltaste-Taste
    137. keybd_event(VK_C, 0, KEYEVENTF_EXTENDEDKEY, 0) ' Linke Pfeiltaste-Taste
    139. ' und wieder loslassen
    140. keybd_event(VK_CONTROL, 0, KEYEVENTF_EXTENDEDKEY + KEYEVENTF_KEYUP, 0)
    141. keybd_event(VK_C, 0, KEYEVENTF_EXTENDEDKEY + KEYEVENTF_KEYUP, 0)
    142. Else
    143. ' und dann die zweite
    144. ' Die jeweilige Aktion wird hier nun ausgeführt
    145. ' SendKeys.SendWait("^s")
    146. keybd_event(VK_CONTROL, 0, KEYEVENTF_EXTENDEDKEY, 0) ' Linke Pfeiltaste-Taste
    147. keybd_event(VK_S, 0, KEYEVENTF_EXTENDEDKEY, 0) ' Linke Pfeiltaste-Taste
    149. ' und wieder loslassen
    150. keybd_event(VK_CONTROL, 0, KEYEVENTF_EXTENDEDKEY + KEYEVENTF_KEYUP, 0)
    151. keybd_event(VK_S, 0, KEYEVENTF_EXTENDEDKEY + KEYEVENTF_KEYUP, 0)
    152. End If
    154. Case 2 'STRG- + Umschalttaste
    156. If My.Settings.Taste_STRG_V = True Then
    157. ' Die jeweilige Aktion wird hier nun ausgeführt
    158. ' SendKeys.SendWait("^v")
    159. keybd_event(VK_CONTROL, 0, KEYEVENTF_EXTENDEDKEY, 0) ' Linke Pfeiltaste-Taste
    160. keybd_event(VK_V, 0, KEYEVENTF_EXTENDEDKEY, 0) ' Linke Pfeiltaste-Taste
    162. ' und wieder loslassen
    163. keybd_event(VK_CONTROL, 0, KEYEVENTF_EXTENDEDKEY + KEYEVENTF_KEYUP, 0)
    164. keybd_event(VK_V, 0, KEYEVENTF_EXTENDEDKEY + KEYEVENTF_KEYUP, 0)
    165. End If
    167. Case 3 ' Umschalt- + Entertaste
    169. If My.Settings.Taste_STRG_X = True Then
    170. ' Die jeweilige Aktion wird hier nun ausgeführt
    171. 'SendKeys.SendWait("^x")
    172. keybd_event(VK_CONTROL, 0, KEYEVENTF_EXTENDEDKEY, 0) ' Linke Pfeiltaste-Taste
    173. keybd_event(VK_X, 0, KEYEVENTF_EXTENDEDKEY, 0) ' Linke Pfeiltaste-Taste
    175. ' und wieder loslassen
    176. keybd_event(VK_CONTROL, 0, KEYEVENTF_EXTENDEDKEY + KEYEVENTF_KEYUP, 0)
    177. keybd_event(VK_X, 0, KEYEVENTF_EXTENDEDKEY + KEYEVENTF_KEYUP, 0)
    178. End If
    180. Case 4 ' Drucken- oder Rollentaste
    182. ' Hier wird ein entsprechender Hinweistext je nach der gedrückten Taste (Drucken oder Rollen) angezeigt
    183. If My.Settings.Hinweistext_Anzeigen = True Then
    184. If My.Settings.Taste_Drucken = True Then
    185. NotifyIcon1.ShowBalloonTip(My.Settings.Hinweistext_Anzeigen_Sekunden * 1000, "VB Hotkeys", "Das aktuelle Programm wurde über die Drucktaste auf einen anderen Monitor verschoben", ToolTipIcon.Info)
    186. Else
    187. NotifyIcon1.ShowBalloonTip(My.Settings.Hinweistext_Anzeigen_Sekunden * 1000, "VB Hotkeys", "Das aktuelle Programm wurde über die Rollentaste auf einen anderen Monitor verschoben", ToolTipIcon.Info)
    188. End If
    189. End If
    191. ' Die drei notwendigen Tasten drücken
    192. keybd_event(VK_SHIFT, 0, KEYEVENTF_EXTENDEDKEY, 0) ' Umschalt-Taste
    193. keybd_event(VK_LWIN, 0, KEYEVENTF_EXTENDEDKEY, 0) ' Windows-Taste
    194. keybd_event(VK_LEFT, 0, KEYEVENTF_EXTENDEDKEY, 0) ' Linke Pfeiltaste-Taste
    196. ' und wieder loslassen
    197. keybd_event(VK_SHIFT, 0, KEYEVENTF_EXTENDEDKEY + KEYEVENTF_KEYUP, 0)
    198. keybd_event(VK_LWIN, 0, KEYEVENTF_EXTENDEDKEY + KEYEVENTF_KEYUP, 0)
    199. keybd_event(VK_LEFT, 0, KEYEVENTF_EXTENDEDKEY + KEYEVENTF_KEYUP, 0)
    201. End Select
    203. ' Nun wird noch die Tastennachricht zurückgesetzt
    204. m.Msg = Nothing
    206. ' und für 1 Sekunde gewartet
    207. ' Waiter.WaitOne(1000) ' Angaben in Millisekunden
    209. End If
    211. ' Werte die nächsten Tasten aus.
    212. MyBase.WndProc(m)
    213. End Sub
    215. #End Region
    217. #Region "Weitere Möglichkeiten"
    218. Private Sub NotifyIcon1_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles NotifyIcon1.DoubleClick
    219. ' Wenn auf das Icon mit einem Doppelklick gedrückt wird, dann
    220. ' wird das Programm angezeigt
    221. Me.Show()
    223. ' Die Fenstergröße auf Normal gestellt
    224. Me.WindowState = FormWindowState.Normal
    226. End Sub
    228. Private Sub CBox_STRG_S_CheckedChanged(sender As Object, e As EventArgs) Handles CBox_STRG_S.CheckedChanged
    229. ' Da durch, das es 4 Checkboxen gibt, sind aber nur jeweils folgende Einstellungen möglich
    230. ' 1. Die ersten 3 alle oder ein Teil davon
    231. ' 2. Nur die 4te und die ersten 3 alle nicht
    233. ' Da der Aufruf über das Ändern der Checkbox erfolgt, kommt der Aufruf hier auch zustande, wenn die Checkboxen wiederhergestellt werden.
    234. ' Ohne diese Hilfsvariable kommt es zu einer Endlosschleife und somit zu einem permanenten Neustart des Programmes
    235. If Programmstart = False Then
    236. ' dann werden nun die 4 Checkboxen gewechselt
    237. If Me.CBox_STRG_S.Checked = True Then
    238. ' Wenn also nur die eine Tastenkombination möglich sein soll, dann werden die anderen 3 deaktiviert
    239. Me.CBox_STRG_C.Checked = False
    240. Me.CBox_STRG_V.Checked = False
    241. Me.CBox_Umschalt_Enter.Checked = False
    243. ' Die Einstellungen werden gesichert
    244. Call Checkboxen_sichern()
    246. ' Ein kleiner Hinweis wird angezeigt
    247. MsgBox("Das Programm wird nun wegen der Änderungen der Tastenfunktionen beendet. Das Programm wird nun neu gestartet, um die neuen Möglichkeiten zu nutzen")
    249. ' Und das Programm wird mit den jetzt neuen Einstellungen kurz neu gestartet.
    250. ' Dadurch funktioniern dann die neuen Kombinationen
    251. Application.Restart()
    252. Else
    253. ' Andernfall werden die ersten drei Möglichkeiten alle aktiviert
    254. Me.CBox_STRG_C.Checked = True
    255. Me.CBox_STRG_V.Checked = True
    256. Me.CBox_Umschalt_Enter.Checked = True
    258. ' Die Einstellungen werden gesichert
    259. Call Checkboxen_sichern()
    261. ' Ein kleiner Hinweis wird angezeigt
    262. MsgBox("Das Programm wird nun wegen der Änderungen der Tastenfunktionen beendet. Das Programm wird nun neu gestartet, um die neuen Möglichkeiten zu nutzen")
    264. ' Und das Programm wird mit den jetzt neuen Einstellungen kurz neu gestartet.
    265. ' Dadurch funktioniern dann die neuen Kombinationen
    266. Application.Restart()
    267. End If
    268. End If
    269. End Sub
    271. Private Sub CBox_Drucktaste_CheckedChanged(sender As Object, e As EventArgs) Handles CBox_Drucktaste.CheckedChanged
    272. ' Da der Aufruf über das Ändern der Checkbox erfolgt, kommt der Aufruf hier auch zustande, wenn die Checkboxen wiederhergestellt werden.
    273. ' Ohne diese Hilfsvariable kommt es zu einer Endlosschleife und somit zu einem permanenten Neustart des Programmes
    274. If Programmstart = False Then
    275. If CBox_Drucktaste.Checked = True Then
    276. CBox_Rollentaste.Checked = False
    277. Else
    278. CBox_Rollentaste.Checked = True
    279. End If
    281. ' Die aktuellen Einstellungen sichern
    282. Call Checkboxen_sichern()
    284. ' Ein kleiner Hinweis wird angezeigt
    285. MsgBox("Das Programm wird nun wegen der Änderungen der Tastenfunktionen beendet. Das Programm wird nun neu gestartet, um die neuen Möglichkeiten zu nutzen")
    287. ' Und das Programm wird mit den jetzt neuen Einstellungen kurz neu gestartet.
    288. ' Dadurch funktioniern dann die neuen Kombinationen
    289. Application.Restart()
    290. End If
    291. End Sub
    293. Private Sub CBox_Autostart_CheckedChanged(sender As Object, e As EventArgs) Handles CBox_Autostart.CheckedChanged
    295. If CBox_Autostart.Checked = True Then
    296. Try
    297. ' Der entsprechende Eintrag wird vorgenommen
    298. ' My.Application.Info.Title liefert den Titel des Projektes (hier VB_Hotkeys). Ihr könnt auch einen festen Namen mit "Mein Programmname" festlegen
    299. ' CHR(34) ist das interne Zeichen für die Anführungsstriche ". Das hinzufügen der Anführungsstriche sorgt dann für den Eintrag "<Pfad der EXE-Datei>" in der Registry
    300. RegKey.SetValue(My.Application.Info.Title, Chr(34) & System.Reflection.Assembly.GetEntryAssembly.Location & Chr(34))
    301. Catch ex As Exception
    302. MsgBox("Autostart ist bereits aktiviert!", MsgBoxStyle.Information, "Info")
    303. End Try
    304. Else
    305. Try
    306. ' Entfernt den Pfad auf die EXE-Datei. Somit wird das Programm beim nächsten Rechnerstart nicht mehr geöffnet.
    307. RegKey.DeleteValue(My.Application.Info.Title)
    308. Catch ex As Exception
    309. MsgBox("Autostart ist bereits deaktiviert!", MsgBoxStyle.Information, "Info")
    310. End Try
    311. End If
    313. ' Einstellungen sichern
    314. Call Checkboxen_sichern()
    316. End Sub
    318. Private Sub Btn_Minimieren_Click(sender As Object, e As EventArgs) Handles Btn_Minimieren.Click
    320. ' Die aktuellen Einstellungen sichern
    321. Call Checkboxen_sichern()
    323. ' Die Auswahl - Form wird ausgeblendet
    324. Me.Hide()
    326. ' Das Programm wird nicht in der Taskleiste angezeigt
    327. ShowInTaskbar = False
    329. End Sub
    331. Private Sub Btn_Programm_beenden_Click(sender As Object, e As EventArgs) Handles Btn_Programm_beenden.Click
    332. ' Hier wird das Programm beendet
    334. ' Die aktuellen Einstellungen sichern
    335. Call Checkboxen_sichern()
    337. ' Zuerst wird die Form minimiert
    338. Me.Hide()
    340. ' Dann der Hinweistext angezeigt für x Sekunden
    341. If My.Settings.Hinweistext_Anzeigen = True Then
    342. NotifyIcon1.ShowBalloonTip(My.Settings.Hinweistext_Anzeigen_Sekunden * 1000, "VB Hotkeys", "Volker Bunge's Hotkeyprogramm wird beendet", ToolTipIcon.Info)
    343. End If
    345. ' Dann wird noch 1 Sekunden gewartet
    346. Warten.WaitOne(My.Settings.Hinweistext_Anzeigen_Sekunden * 1000) 'to get it into milliseconds
    348. ' Das Icon ausgeblendet
    349. NotifyIcon1.Visible = False
    350. NotifyIcon1.Dispose()
    352. ' und das Programm beendet
    353. End
    355. End Sub
    357. #End Region
    359. End Class


    Hier gibt es auch ein passendes Erklärvideo von mir dazu. Die Icons sind auch noch im Anhang unten angefügt.

    Spoiler anzeigen


    Viel Spass

    Volker

    *Korrekten Code-Tag eingefügt*
    Dateien

    • ICO-Dateien.zip

      (11,71 kB, 39 mal heruntergeladen, zuletzt: )

    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „Marcus Gräfe“ ()

    Hallo zusammen,

    ich habe mein Hotkey-Programm optisch ein wenig überarbeitet und dabei leider festgestellt, dass das STRG+X zwar bei Texten funktioniert, aber nicht bei anderen Dingen wie Dateien und bspw. Grafiken in Word.

    Es geht um den zweiten Codeblock und dort um die Zeilen 167 - 178. Ich habe zwar gerade noch die Hotkey-Taste geändert, aber das Aufrufen dieser Zeilen funktioniert soweit erst einmal.

    Ob ich jetzt mit Sendkeys ober mit Keyb arbeite ändert leider am Ergebnis nichts.

    Könnte mir einer von Euch hier einen Grund bzw. natürlich eine Lösung nennen?

    Vielen Dank und noch allen ein schönes Wochenende.

    Gruß

    Volker

    Funktioniert es, wenn Du Dein Programm mit admin-Rechten startest?
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

    Hallo zusammen,

    sorry, dass ich mich erst jetzt melde, aber mir ist leider immer wieder was dazwischen gekommen.

    @VaporiZed: Leider nein. Selbst wenn ich es von meinem Netzlaufwerk auf C kopiere und von dort aus starte.

    Habe hier dann aber noch eine andere Frage: Gibt es eine Möglichkeit, die Linke und Rechte Shift bzw. STRG-Taste abzufragen und auf diese zu reagieren?

    Wäre hier mal auf kleine Hinweise angewiesen.

    Schönen Sonntag noch.

    Gruß

    Volker

    Moinsen.

    Ja. Eine Unterscheidung der linken und rechten Tasten ist gegeben.

    Schaue einmal in die KeyCodes Tabelle von Microsoft.

    z.B.:
    VK_LWIN - 0x5B - Left Windows key (Natural keyboard)
    VK_RWIN - 0x5C - Right Windows key (Natural keyboard)

    VK_LSHIFT - 0xA0 - Left SHIFT key
    VK_RSHIFT - 0xA1 - Right SHIFT key

    VK_LCONTROL - 0xA2 - Left CONTROL key
    VK_RCONTROL - 0xA3 - Right CONTROL key

    VK_LMENU - 0xA4 - Left ALT key
    VK_RMENU - 0xA5 - Right ALT key

    Quelle: https://docs.microsoft.com/en-us/windows/win32/inputdev/virtual-key-codes

    c.u. Joshi aus HaHa

Facebook
Telefonspende