Samp Keybinder

    • VB.NET

    Es gibt 7 Antworten in diesem Thema. Der letzte Beitrag () ist von Neoner.

      Samp Keybinder

      Hallo,
      Hier ist mal der Code von meinem Samp Keybinder.
      Form1 Code:
      Spoiler anzeigen

      VB.NET-Quellcode

      1. Public Class Form1
      2. Private Declare Function GetAsyncKeyState Lib "User32" (ByVal vKey As Integer) As Short
      3. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
      4. TextBox1.Visible = False
      5. TextBox2.Visible = False
      6. TextBox3.Visible = False
      7. TextBox4.Visible = False
      8. TextBox5.Visible = False
      9. TextBox6.Visible = False
      10. TextBox7.Visible = False
      11. TextBox8.Visible = False
      12. Label1.Visible = False
      13. Label2.Visible = False
      14. Label3.Visible = False
      15. Label4.Visible = False
      16. Label5.Visible = False
      17. Label6.Visible = False
      18. Label7.Visible = False
      19. Label8.Visible = False
      20. MenuStrip1.Visible = False
      21. End Sub
      23. Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
      24. If GetAsyncKeyState(Keys.NumPad1) Then
      25. If TextBox1.Text <> "" Then
      26. My.Computer.Keyboard.SendKeys("T")
      27. My.Computer.Keyboard.SendKeys(TextBox1.Text)
      28. My.Computer.Keyboard.SendKeys("{Enter}")
      29. End If
      30. End If
      31. If GetAsyncKeyState(Keys.NumPad2) Then
      32. If TextBox1.Text <> "" Then
      33. My.Computer.Keyboard.SendKeys("T")
      34. My.Computer.Keyboard.SendKeys(TextBox2.Text)
      35. My.Computer.Keyboard.SendKeys("{Enter}")
      36. End If
      37. End If
      38. If GetAsyncKeyState(Keys.NumPad3) Then
      39. If TextBox1.Text <> "" Then
      40. My.Computer.Keyboard.SendKeys("T")
      41. My.Computer.Keyboard.SendKeys(TextBox3.Text)
      42. My.Computer.Keyboard.SendKeys("{Enter}")
      43. End If
      44. End If
      45. If GetAsyncKeyState(Keys.NumPad4) Then
      46. If TextBox1.Text <> "" Then
      47. My.Computer.Keyboard.SendKeys("T")
      48. My.Computer.Keyboard.SendKeys(TextBox4.Text)
      49. My.Computer.Keyboard.SendKeys("{Enter}")
      50. End If
      51. End If
      52. If GetAsyncKeyState(Keys.NumPad5) Then
      53. If TextBox1.Text <> "" Then
      54. My.Computer.Keyboard.SendKeys("T")
      55. My.Computer.Keyboard.SendKeys(TextBox5.Text)
      56. My.Computer.Keyboard.SendKeys("{Enter}")
      57. End If
      58. End If
      60. If GetAsyncKeyState(Keys.NumPad6) Then
      61. If TextBox1.Text <> "" Then
      62. My.Computer.Keyboard.SendKeys("T")
      63. My.Computer.Keyboard.SendKeys(TextBox6.Text)
      64. My.Computer.Keyboard.SendKeys("{Enter}")
      65. End If
      66. End If
      67. If GetAsyncKeyState(Keys.NumPad7) Then
      68. If TextBox1.Text <> "" Then
      69. My.Computer.Keyboard.SendKeys("T")
      70. My.Computer.Keyboard.SendKeys(TextBox7.Text)
      71. My.Computer.Keyboard.SendKeys("{Enter}")
      72. End If
      73. End If
      74. If GetAsyncKeyState(Keys.NumPad8) Then
      75. If TextBox1.Text <> "" Then
      76. My.Computer.Keyboard.SendKeys("T")
      77. My.Computer.Keyboard.SendKeys(TextBox8.Text)
      78. My.Computer.Keyboard.SendKeys("{Enter}")
      79. End If
      80. End If
      82. End Sub
      84. Private Sub TexteSpeichernToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TexteSpeichernToolStripMenuItem.Click
      85. My.Settings.Text1 = TextBox1.Text
      86. My.Settings.Text2 = TextBox2.Text
      87. My.Settings.Text3 = TextBox3.Text
      88. My.Settings.Text4 = TextBox4.Text
      89. My.Settings.Text5 = TextBox5.Text
      90. My.Settings.Text6 = TextBox6.Text
      91. My.Settings.Text7 = TextBox7.Text
      92. My.Settings.Text8 = TextBox8.Text
      93. My.Settings.Save()
      94. End Sub
      96. Private Sub AlleTexteLöchenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AlleTexteLöchenToolStripMenuItem.Click
      97. TextBox1.Text = ""
      98. TextBox2.Text = ""
      99. TextBox3.Text = ""
      100. TextBox4.Text = ""
      101. TextBox5.Text = ""
      102. TextBox6.Text = ""
      103. TextBox7.Text = ""
      104. TextBox8.Text = ""
      105. End Sub
      107. Private Sub GespeicherteTexttÖffnenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GespiecherteTexttÖffnenToolStripMenuItem.Click
      108. laden()
      109. End Sub
      110. Public Function laden()
      111. TextBox1.Text = My.Settings.Text1
      112. TextBox2.Text = My.Settings.Text2
      113. TextBox3.Text = My.Settings.Text3
      114. TextBox4.Text = My.Settings.Text4
      115. TextBox5.Text = My.Settings.Text5
      116. TextBox6.Text = My.Settings.Text6
      117. TextBox7.Text = My.Settings.Text7
      118. TextBox8.Text = My.Settings.Text8
      119. End Function
      121. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
      122. If TextBox9.Text <> My.Settings.passwort Then
      123. MsgBox("Falsches Passwort!!!", MsgBoxStyle.Critical)
      124. End If
      125. If TextBox9.Text = My.Settings.passwort Then
      126. TextBox1.Visible = True
      127. TextBox2.Visible = True
      128. TextBox3.Visible = True
      129. TextBox4.Visible = True
      130. TextBox5.Visible = True
      131. TextBox6.Visible = True
      132. TextBox7.Visible = True
      133. TextBox8.Visible = True
      134. Label1.Visible = True
      135. Label2.Visible = True
      136. Label3.Visible = True
      137. Label4.Visible = True
      138. Label5.Visible = True
      139. Label6.Visible = True
      140. Label7.Visible = True
      141. Label8.Visible = True
      142. MenuStrip1.Visible = True
      143. TextBox9.Visible = False
      144. Button1.Visible = False
      145. laden()
      146. End If
      147. End Sub
      149. Private Sub TextBox9_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox9.KeyDown
      150. If e.KeyCode = Keys.Enter Then
      151. e.Handled = True
      152. Button1.PerformClick()
      153. End If
      154. End Sub
      156. Private Sub HilfeToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HilfeToolStripMenuItem.Click
      157. Me.UseWaitCursor = True
      158. Form2.Show()
      159. End Sub
      161. Private Sub AboutToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AboutToolStripMenuItem.Click
      162. Me.UseWaitCursor = True
      163. Form3.Show()
      164. End Sub
      166. Private Sub EinstellungenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EinstellungenToolStripMenuItem.Click
      167. Einstellungen.Show()
      168. Me.UseWaitCursor = True
      169. End Sub
      170. End Class

      Form 1 Screen:
      Spoiler anzeigen



      Form2 Code:
      Spoiler anzeigen

      VB.NET-Quellcode

      1. Public Class Form2
      3. Private Sub Form2_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
      4. Form1.UseWaitCursor = False
      5. End Sub
      7. Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
      8. Me.ShowInTaskbar = False
      9. End Sub
      10. End Class


      Form 2 Screen:
      Spoiler anzeigen



      Form 3 Code:
      Spoiler anzeigen

      VB.NET-Quellcode

      1. Public Class Form3
      3. Private Sub Form3_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
      4. Form1.UseWaitCursor = False
      5. End Sub
      7. Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
      8. Me.ShowInTaskbar = False
      9. End Sub
      10. End Class


      Form3 Screen:
      Spoiler anzeigen




      Form Einstellungen Code:
      Spoiler anzeigen

      VB.NET-Quellcode

      1. Public Class Einstellungen
      3. Private Sub Einstellungen_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
      4. Form1.UseWaitCursor = False
      5. End Sub
      7. Private Sub Einstellungen_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
      8. Label2.Text = My.Settings.passwort
      9. End Sub
      11. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
      12. TextBox1.Visible = True
      13. TextBox2.Visible = True
      14. Button2.Visible = True
      15. End Sub
      17. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
      18. If TextBox1.Text <> TextBox2.Text Then
      19. MsgBox("Die eingaben stimmen nicht überein", MsgBoxStyle.Critical)
      20. TextBox1.Text = ""
      21. TextBox2.Text = ""
      22. End If
      23. If TextBox1.Text = TextBox2.Text Then
      24. My.Settings.passwort = TextBox1.Text
      25. MsgBox("Passwort geändert")
      26. End If
      27. End Sub
      28. End Class


      Form Einstellungen Screen:
      Spoiler anzeigen




      Ps.: Treenix ist mein Samp Name.

      Wenn auch scherzhaft gemeint, ist dein Post dennoch eine Unverschämtheit. :thumbdown:

      Neoners Bitte ist vollkommen berechtigt :thumbup: , denn es ist doch Quatsch, wenner jetzt eine neue Solution aufsetzen muß, und aussm Browser die Codes einpastet (du würdest sie wahrscheinlich vom Browser abschreiben, um C&P zu vermeiden? ;)), und dann gibts immer noch tausend Möglichkeiten, wies nicht funktioniert, weil die Codes ja in der richtigen Beziehung zueinander stehen müssen.

      Dabei existiert genau diese Solution bereits fixnfertig und durchgetestet beim TE, und er bräuchte sie nur hochzuladen.

      Neoner möchte halt effizient arbeiten und lernen, und am besten versteht man einen Code halt, wenn man ihn laufen lassen kann.

      (Im Grunde ist C&P doch eine absolut feine Sache - problematisch ists nur, wenn kein Wille besteht, das kopierte auch zu verstehen: Dann kommen diese blöden Nachfragen "aber hier geht nicht..., und da geht nicht...")

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

      Zur gewählten Lösung mit GetAsyncKeyState: diese Lösung mit ständiger Abfrage (=Polling) ist eher suboptimal - entweder Du wählst das Timer.Interval sehr niedrig und belastest die CPU dadurch stark, oder Du verpasst Tastaturanschläge. Ausserdem sollten in einer solchen Lösung auch ModifierKeys (Ctrl, Alt, Shift) zulässig sein.

      Besser ist eine Event-basierte Lösung wie in Mike's Post : [VB.NET] Tastatur Systemweit abfangen (Tastatur Hook)

      Ich bin nicht wirklich ein Freund von Copy&Paste.
      Ich würde mir den Code Natürlich anschauen, ihn laufen lassen (um eventuelle Fehler zu erkennen)
      und ihn danach selbst schreiben, um es lernen zu können (OHNE das Fertige Programm anzusehen).


      Gruß,
      Neoner

    Facebook
    Telefonspende