Macro lösst sich selbst aus.

  • VB.NET

Es gibt 8 Antworten in diesem Thema. Der letzte Beitrag () ist von GimpTutWorks.

    Macro lösst sich selbst aus.

    Hey,
    Ich versuche momentan einen Keybinder für mich zu machen, jedoch wenn Zahlen in diesen Keybinder drinne vorkommen, dann lösst er sich selber erneu aus.

    VB.NET-Quellcode

    1. Private Declare Function RegisterHotKey Lib "user32" (ByVal hWnd As IntPtr, ByVal id As Integer, ByVal fsModifier As Integer, ByVal vk As Integer) As Integer
    2. Private Const Key_NONE As Integer = &H0
    3. Private Const WM_HOTKEY As Integer = &H312
    6. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    7. RegisterHotKey(Me.Handle, 1, Key_NONE, Keys.D1)
    9. Protected Overrides Sub WndProc(ByRef m As Message)
    11. If m.Msg = WM_HOTKEY Then
    12. Select Case m.WParam
    13. Case 1
    14. My.Computer.Keyboard.SendKeys("Test 123")
    16. End Select
    17. End If
    18. MyBase.WndProc(m)
    19. End Sub
    21. End Class

    SendKeys sendet an das Fenster, das den Fokus hat.
    Öffne ein Notepad und klick darauf, bevor Du Deinen Hotkey auslöst. :D
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Im Augenblick sehe ich nichts, was irgendwie nach Makro aussieht.
    Kannst Du bitte mal Deinen aktuellen Code posten?
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Code ist im Anfangsstadium =D

    VB.NET-Quellcode

    1. Public Class Form1
    2. Private Declare Function RegisterHotKey Lib "user32" (ByVal hWnd As IntPtr, ByVal id As Integer, ByVal fsModifier As Integer, ByVal vk As Integer) As Integer
    3. Private Declare Sub UnregisterHotKey Lib "user32" (ByVal hWnd As IntPtr, ByVal id As Integer)
    4. Private Const Key_NONE As Integer = &H0
    5. Private Const WM_HOTKEY As Integer = &H312
    6. Private Senden As String = "{t}"
    7. Private Player As String = "USER"
    8. Private Absenden As String = "{ENTER}"
    11. Protected Overrides Sub WndProc(ByRef m As Message)
    12. 'die messages auswerten
    13. If m.Msg = WM_HOTKEY Then
    14. 'hier wird entschieden welcher hotkey es war
    15. 'einfach die übergebene id auswerten
    16. Select Case m.WParam
    17. Case 1
    18. MessageBox.Show("Sie haben die Tab-Taste gedrückt!")
    19. Case 0
    20. My.Computer.Keyboard.SendKeys(Senden)
    21. My.Computer.Keyboard.SendKeys("RechungsbettRerag: 5.000,-$ /spay ")
    22. My.Computer.Keyboard.SendKeys(Player)
    23. My.Computer.Keyboard.SendKeys(" 5000")
    24. My.Computer.Keyboard.SendKeys(Absenden)
    25. End Select
    26. End If
    27. MyBase.WndProc(m)
    28. End Sub
    30. Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
    31. 'die tab taste wieder freigeben
    32. UnregisterHotKey(Me.Handle, 1)
    33. UnregisterHotKey(Me.Handle, 2)
    34. End Sub
    36. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    37. 'die tab taste abfangen
    38. RegisterHotKey(Me.Handle, 1, Key_NONE, Keys.D1)
    39. RegisterHotKey(Me.Handle, 0, Key_NONE, Keys.D0)
    40. End Sub
    41. End Class

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „TheKeram007“ ()

    Sieht blöd aus.
    Frau Google sagt, mit

    VB.NET-Quellcode

    1. Private Const MOD_NOREPEAT As Integer = &H4000
    2. ' und
    3. RegisterHotKey(Me.Handle, 0, Key_NONE Or MOD_NOREPEAT, Keys.D0)
    soll es gehen, tut es bei mir aber nicht. :S
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Ich hatte selber das Problem ^^
    Ist aber auch ganz einfach herauszufinden, warum das passiert ^^

    Du hast die Taste 1 belegt. und im SendKey kommt die 1 auch vor. Darauf reagiert der!

    Lösung(Achte auch die Kommentare)

    VB.NET-Quellcode

    1. Select Case m.WParam
    2. Case 1
    4. 'Die 1 Taste ausloggen(Unregister)
    6. My.Computer.Keyboard.SendKeys("Test 123")
    8. 'Hier die Taste wieder registrieren
    10. Case 2
    12. 'nächster Bind... etc.
    14. End Select


    MfG GTW

Facebook
Telefonspende