Taste immer drücken lassen

  • VB.NET

Es gibt 10 Antworten in diesem Thema. Der letzte Beitrag () ist von doom1995.

    Taste immer drücken lassen

    Hey alle zusammen bin neu hier im Forum,

    ich bin gerade dabei ein programm zu schreiben das die ganze zeit eine bestimmte taste drücken soll. ich möchte aber das wenn man eine andere taste drückt, das die erste taste aufhört zu drücken.
    habe es schon mit einer for schleife probiert aber irgendwie habe ich das problem das ich die taste die ich drücken will nur eine bestimmte anzahl lang gedrückt werden kann.

    Ich bin anfänger nehmts mir bitte nicht übel xD

    bitte um hilfe!!!

    MFG doom

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

    Stichwort GetAsyncKeyState

    Hoffe ich liege richtig ?
    "Life isn't about winning the race. Life is about finishing the race and how many people we can help finish the race." ~Marc Mero

    Nun bin ich also auch soweit: Keine VB-Fragen per PM! Es gibt hier ein Forum, verdammt!

    Nein das ist nicht das was ich meine xD

    Ähm ich möchte ein prog schreiben was die ganze zeit wiederholt eine taste drückt. er soll das drücken der taste starten wenn ich auf den button start klicke. wenn ich auf den button stop klicke soll er aufhören die taste zu drücken hoffe ihr habt jetzt verstanden was ich meine :D ich habe irgendwo gelesen das das mit einem timer geht habe das aber nicht so richtig verstanden xD

    Ähm ja das hab ich ja auch gelesen aber ich kenne mich gar nicht mit einem timer usw. aus. wäre nett wenn du mir vlt einen code schicken würdest oder besser wenn du mir z.b erklärst wozu ein timer im allgemeinen gut is und was ein Intervall ist :D. Wie gesagt bin anfänger xD

    VB.NET-Quellcode

    1. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    3. timer1.interval = 1000 ' setzt den Timer auf 1 Sekunde
    5. If Timer1.Enabled = True Then ' Abfrage ob Timer läuft oder nicht
    7. Timer1.stop
    9. Else
    11. timer1.start
    13. End If
    17. End Sub
    19. Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    21. My.Computer.Keyboard.SendKeys("A") ' Sendet die Taste A
    23. End Sub


    mfg
    Yonda

    Taste drücken lassen

    Hier ein kleines, Beispiel taste numlock alle paar sek drücken:



    Du muß der Code noch an eigene wünsche anpassen !

    1.Öffne neue projekt
    2.Plaziere auf dein From Timer
    3.Stelle Eingenschaft "Enabled" von Timer1 auf True
    4.Zeit von Timer1 auf 1000 stellen (1s)
    5.Füge der Code in richtige events ein



    Code nicht getestet !

    VB.NET-Quellcode

    1. 'API Deklaration
    3. Private Structure OSVERSIONINFO
    4. Public dwOSVersionInfoSize As Int32
    5. Public dwMajorVersion As Int32
    6. Public dwMinorVersion As Int32
    7. Public dwBuildNumber As Int32
    8. Public dwPlatformId As Int32
    10. End Structure
    12. Private Declare Function GetVersionEx Lib "kernel32.dll" Alias "GetVersionExA" (ByRef lpVersionInformation As OSVERSIONINFO) As Int32
    13. Private Declare Sub keybd_event Lib "user32.dll" (ByRef ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Int32, ByVal dwExtraInfo As Int32)
    14. Private Declare Function GetKeyState Lib "user32.dll" (ByVal nVirtKey As Int32) As Short
    15. Private Declare Function GetKeyboardState Lib "user32.dll" (ByRef pbKeyState As Byte) As Int32
    16. Private Declare Function SetKeyboardState Lib "user32.dll" (ByRef lppbKeyState As Byte) As Int32
    18. Private Const VK_NUMLOCK As Int32 = &H90
    20. '=================================================================
    21. 'Diese Code in Form Load event
    23. Timer1.Start
    24. '==================================================================
    26. '==================================================================
    27. 'Diese Code in Timer Event
    30. Dim Key As Integer
    31. Dim o As OSVERSIONINFO
    33. Key = VK_NUMLOCK
    34. o.dwOSVersionInfoSize = Len(o)
    35. GetVersionEx o
    36. If o.dwPlatformId = VER_PLATFORM_WIN32_WINDOWS Then ' Win9x
    37. Dim keys(0 To 255) As Byte
    38. GetKeyboardState keys(1)
    39. If GetKeyState(Key) = 0 Then keys(Key) = 1 Else keys(Key) = 0
    40. SetKeyboardState keys(1) '
    41. ElseIf o.dwPlatformId = VER_PLATFORM_WIN32_NT Then ' NT, Win2k, XP ect.
    43. keybd_event Key, &H45, KEYEVENTF_EXTENDEDKEY Or 0, 0
    44. keybd_event Key, &H45, KEYEVENTF_EXTENDEDKEY Or KEYEVENTF_KEYUP, 0
    45. End If
    46. '===================================================================

    Dieser Beitrag wurde bereits 11 mal editiert, zuletzt von „SystemUnknow“ ()

Facebook
Telefonspende