Inhalt einer Textbox per Tastendruck posten? Problem!

  • VB.NET

Es gibt 12 Antworten in diesem Thema. Der letzte Beitrag () ist von DeathSpirit.

    Inhalt einer Textbox per Tastendruck posten? Problem!

    Das ist der Ganze befehl, entweder ist der ganze befehl dafür falsch oder da ist irgendwo ein fehler den ich nicht verstehe...
    Das Problem ist dass wenn ich jetzt Numpad1 drücke um den in der Textbox geschreibenden Satz zu "posten" sei es in einer Textdatei, in Foren, oder spielen wird einfach nur eine "1" geschrieben anstatt jetzt Texbox1.text = Hallo ich liebe euch...

    Hier mal der komplette befehl.


    VB.NET-Quellcode

    1. Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    3. If GetAsyncKeyState(Keys.NumPad1) Then
    4. If TextBox1.Text <> "" Then
    5. My.Computer.Keyboard.SendKeys("T")
    6. My.Computer.Keyboard.SendKeys(TextBox1.Text)
    7. My.Computer.Keyboard.SendKeys("{Enter}")
    8. End If
    9. End If
    10. If GetAsyncKeyState(Keys.NumPad2) Then
    11. If TextBox1.Text <> "" Then
    12. My.Computer.Keyboard.SendKeys("T")
    13. My.Computer.Keyboard.SendKeys(TextBox2.Text)
    14. My.Computer.Keyboard.SendKeys("{Enter}")
    15. End If
    16. End If
    17. If GetAsyncKeyState(Keys.NumPad3) Then
    18. If TextBox1.Text <> "" Then
    19. My.Computer.Keyboard.SendKeys("T")
    20. My.Computer.Keyboard.SendKeys(TextBox3.Text)
    21. My.Computer.Keyboard.SendKeys("{Enter}")
    22. End If
    23. End If
    24. If GetAsyncKeyState(Keys.NumPad4) Then
    25. If TextBox1.Text <> "" Then
    26. My.Computer.Keyboard.SendKeys("T")
    27. My.Computer.Keyboard.SendKeys(TextBox4.Text)
    28. My.Computer.Keyboard.SendKeys("{Enter}")
    29. End If
    30. End If
    31. If GetAsyncKeyState(Keys.NumPad5) Then
    32. If TextBox1.Text <> "" Then
    33. My.Computer.Keyboard.SendKeys("T")
    34. My.Computer.Keyboard.SendKeys(TextBox5.Text)
    35. My.Computer.Keyboard.SendKeys("{Enter}")
    36. End If
    37. End If
    38. If GetAsyncKeyState(Keys.NumPad6) Then
    39. If TextBox1.Text <> "" Then
    40. My.Computer.Keyboard.SendKeys("T")
    41. My.Computer.Keyboard.SendKeys(TextBox6.Text)
    42. My.Computer.Keyboard.SendKeys("{Enter}")
    43. End If
    44. End If
    45. If GetAsyncKeyState(Keys.NumPad7) Then
    46. If TextBox1.Text <> "" Then
    47. My.Computer.Keyboard.SendKeys("T")
    48. My.Computer.Keyboard.SendKeys(TextBox7.Text)
    49. My.Computer.Keyboard.SendKeys("{Enter}")
    50. End If
    51. End If
    52. If GetAsyncKeyState(Keys.NumPad8) Then
    53. If TextBox1.Text <> "" Then
    54. My.Computer.Keyboard.SendKeys("T")
    55. My.Computer.Keyboard.SendKeys(TextBox8.Text)
    56. My.Computer.Keyboard.SendKeys("{Enter}")
    57. End If
    58. End If
    59. If GetAsyncKeyState(Keys.NumPad9) Then
    60. If TextBox1.Text <> "" Then
    61. My.Computer.Keyboard.SendKeys("T")
    62. My.Computer.Keyboard.SendKeys(TextBox9.Text)
    63. My.Computer.Keyboard.SendKeys("{Enter}")
    64. End If
    65. End If
    66. If GetAsyncKeyState(Keys.NumPad0) Then
    67. If TextBox1.Text <> "" Then
    68. My.Computer.Keyboard.SendKeys("T")
    69. My.Computer.Keyboard.SendKeys(TextBox10.Text)
    70. My.Computer.Keyboard.SendKeys("{Enter}")
    71. End If
    72. End If
    74. End Sub



    Danke für die Hilfe :)

    Warum packst du das alles in einen Timer wenn du Enter drücken willst ?

    *Edit*
    Pack das ganze doch in ein Select Case anstatt 5 Millionen If verschatelungen

    versuche es mal so:

    Erstelle noch eine textbox11

    Stelle visible auf false und mache in jedem if/case das rein:

    VB.NET-Quellcode

    1. TextBox11.Focus()
    2. Textbox11.text=nothing
    3. 'Dein weiterer Quellcode

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

    @kj4: if-schleife.de/

    Zuviele IF Verschachtelungen sind nicht der renner. Er sollte es lieber mit Select Case oder ähnlichem machen

    Für jede Textbox:

    VB.NET-Quellcode

    1. Private Sub Textbox1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyDown
    2. If e.KeyCode = Keys.NumPad1 Then
    3. If TextBox1.Text <> "" ThenMy.Computer.Keyboard.SendKeys("T")
    4. My.Computer.Keyboard.SendKeys(TextBox1.Text)My.Computer.Keyboard.SendKeys("{Enter}")
    5. End If
    6. End If
    7. End Sub

    kj4 schrieb:

    versuche es mal so:

    Erstelle noch eine textbox11

    Stelle visible auf false und mache in jedem if/case das rein:

    VB.NET-Quellcode

    1. TextBox11.Focus()
    2. Textbox11.text=nothing
    3. 'Dein weiterer Quellcode

    kj4 schrieb:

    Für jede Textbox:

    VB.NET-Quellcode

    1. Private Sub Textbox1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyDown
    2. If e.KeyCode = Keys.NumPad1 Then
    3. If TextBox1.Text <> "" ThenMy.Computer.Keyboard.SendKeys("T")
    4. My.Computer.Keyboard.SendKeys(TextBox1.Text)My.Computer.Keyboard.SendKeys("{Enter}")
    5. End If
    6. End If
    7. End Sub
    Verstehe ich nicht ganz wie stehen deine 2 Posts jetzt miteinander in verbindung?
    Oder muss ich Zitat 1 in den Timer1_Tick einfügen
    und für das 2te dann einen neuen privat sub machen?
    Weil so wie du mir den befehl geschrieben hast auch nachdem ich da die leerzeichen und einige weitere kleine Fehler behoben habe, funktioniert er immer noch nicht in der ausführung...


    Fehler gefunden, ich hatte ja den Code nicht zu hunderprozent selber gamacht
    und siehe da was ich gefunden habe...

    VB.NET-Quellcode

    1. Private Declare Function GetAsyncKeyState Lib "User32" (ByVal vKey As Integer) As Short


    Wobei ich jetzt nicht weiß was ich nach dem lib eingeben muss damit ich das immer schreiben kann... und den Code umschreiben geht auch nicht weil dieser GetAsynckeystate geht irgendwie nur mit diesem Private Declare...

    Bitte mal einen Tipp oder sowas geben wie ich das ändern bzw. umgehen kann

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „DeathSpirit“ ()

    Patrick1993 schrieb:

    Zuviele IF Verschachtelungen sind nicht der renner. Er sollte es lieber mit Select Case oder ähnlichem machen


    Duweißt das, dass garkeine If verschachtelung ist oder? Sieht zwar auch unschön aus, und kann man mit Select Case verschönern, aber das ist eine Verschachtelung:


    VB.NET-Quellcode

    1. If k = true Then
    3. If b = false Then
    5. if z = true then
    7. if Textbox1.Text = "Hallo" then
    9. MsgBox("ehm ja.")
    10. end if
    12. end if
    14. End if
    16. End If

    kj4 schrieb:

    Hast du in für jede textbox widerholt?
    nein ich habe halt das so gemacht

    VB.NET-Quellcode

    1. Private Sub Textbox1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyDown
    2. If e.KeyCode = Keys.NumPad1 Then
    3. If TextBox1.Text <> "" Then My.Computer.Keyboard.SendKeys("T")
    4. My.Computer.Keyboard.SendKeys(TextBox1.Text)
    5. My.Computer.Keyboard.SendKeys("{Enter}")
    6. End If
    8. End Sub
    10. Private Sub TextBox2_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox2.KeyDown
    11. If e.KeyCode = Keys.NumPad2 Then
    12. If TextBox2.Text <> "" Then My.Computer.Keyboard.SendKeys("T")
    13. My.Computer.Keyboard.SendKeys(TextBox2.Text)
    14. My.Computer.Keyboard.SendKeys("{Enter}")
    15. End If
    16. End Sub
    18. Private Sub TextBox3_Keydown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox3.KeyDown
    19. If e.KeyCode = Keys.NumPad3 Then
    20. If TextBox3.Text <> "" Then My.Computer.Keyboard.SendKeys("T")
    21. My.Computer.Keyboard.SendKeys(TextBox3.Text)
    22. My.Computer.Keyboard.SendKeys("{Enter}")
    23. End If
    24. End Sub
    26. Private Sub TextBox4_Keydown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox4.KeyDown
    27. If e.KeyCode = Keys.NumPad4 Then
    28. If TextBox4.Text <> "" Then My.Computer.Keyboard.SendKeys("T")
    29. My.Computer.Keyboard.SendKeys(TextBox4.Text)
    30. My.Computer.Keyboard.SendKeys("{Enter}")
    31. End If
    32. End Sub
    34. Private Sub TextBox5_Keydown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox5.KeyDown
    35. If e.KeyCode = Keys.NumPad5 Then
    36. If TextBox5.Text <> "" Then My.Computer.Keyboard.SendKeys("T")
    37. My.Computer.Keyboard.SendKeys(TextBox5.Text)
    38. My.Computer.Keyboard.SendKeys("{Enter}")
    39. End If
    40. End Sub
    42. Private Sub TextBox6_Keydown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox6.KeyDown
    43. If e.KeyCode = Keys.NumPad6 Then
    44. If TextBox6.Text <> "" Then My.Computer.Keyboard.SendKeys("T")
    45. My.Computer.Keyboard.SendKeys(TextBox6.Text)
    46. My.Computer.Keyboard.SendKeys("{Enter}")
    47. End If
    48. End Sub
    50. Private Sub TextBox7_Keydown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox7.KeyDown
    51. If e.KeyCode = Keys.NumPad7 Then
    52. If TextBox7.Text <> "" Then My.Computer.Keyboard.SendKeys("T")
    53. My.Computer.Keyboard.SendKeys(TextBox7.Text)
    54. My.Computer.Keyboard.SendKeys("{Enter}")
    55. End If
    56. End Sub
    58. Private Sub TextBox8_Keydown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox8.KeyDown
    59. If e.KeyCode = Keys.NumPad8 Then
    60. If TextBox8.Text <> "" Then My.Computer.Keyboard.SendKeys("T")
    61. My.Computer.Keyboard.SendKeys(TextBox8.Text)
    62. My.Computer.Keyboard.SendKeys("{Enter}")
    63. End If
    64. End Sub
    66. Private Sub TextBox9_Keydown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox9.KeyDown
    67. If e.KeyCode = Keys.NumPad9 Then
    68. If TextBox10.Text <> "" Then My.Computer.Keyboard.SendKeys("T")
    69. My.Computer.Keyboard.SendKeys(TextBox9.Text)
    70. My.Computer.Keyboard.SendKeys("{Enter}")
    71. End If
    72. End Sub
    74. Private Sub TextBox10_Keydown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox10.KeyDown
    75. If e.KeyCode = Keys.NumPad0 Then
    76. If TextBox10.Text <> "" Then My.Computer.Keyboard.SendKeys("T")
    77. My.Computer.Keyboard.SendKeys(TextBox10.Text)
    78. My.Computer.Keyboard.SendKeys("{Enter}")
    79. End If
    80. End Sub
    82. 'usw...'



    Funktioniert aber auch nicht

    Edit:

    VB.NET-Quellcode

    1. If TextBox10.Text <> "" ' Ich merke grade das die Ifclause doch sagt Wenn textbox10.text leer ist, dann wird erst der buchstabe T danach der Inhalt von textbox10 der ja leer ist gesendet und zum schluss nochmal die "enter" taste oder nicht?'

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

    Duweißt das, dass garkeine If verschachtelung ist oder? Sieht zwar auch unschön aus, und kann man mit Select Case verschönern, aber das ist eine Verschachtelung:


    Mir ist kein anderer Name eingefallen

    So nach einigem Überlegen und grübeln ist das meinem Hirn entsprungen, ich dachte das wäre die lösung meines Problems jedoch wars das nicht

    VB.NET-Quellcode

    1. Public Class Form1
    3. Private Declare Function GetAsyncKeyState Lib "User32" (ByVal vKey As Integer) As Short
    4. Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    6. If GetAsyncKeyState(Keys.NumPad1) Then
    7. SendKeys.Send("{T}")
    8. SendKeys.SendWait(TextBox1.Text)
    9. SendKeys.Send("{ENTER}")
    10. End If
    12. End Sub


    Spirch entweder muss der Timer starten damit dass gepostet wird, oder an dem befehl ist komplett richtig und da fiel mir ein das es einfach nur daran liegen kann das wenn ich zum beispiel in einem Spiel drinne bin und dass den posten will das der Keybinder nicht erkannt wird da ich halt im spiel bin und im spiel die Taste mit einer anderen Funktion belegt ist
    wäre das möglich?