Hi! Ich habe einen Keybinder gemacht aber das Problem ist, manche Wörter sind abgehakt in SAMP im Chat und die Zeichen sollen eine Box geben, tun sie aber nicht obwohl ich es gleich lang habe.

Also So z.B.:

------------------------------
| Text 1 |
|---------------------------- |
| Text 2 |
__________________________
[/quote}
Usw.

Hier mein Code:

VB.NET-Quellcode

1. Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
2. If GetAsyncKeyState(Keys.Divide) = -32767 Then
3. If an = True Then
4. an = False
5. My.Computer.Keyboard.SendKeys("T")
6. My.Computer.Keyboard.SendKeys("/me hat Digots KEYBind ausgeschaltet")
7. My.Computer.Keyboard.SendKeys("{Enter}")
9. ElseIf an = False Then
10. an = True
11. My.Computer.Keyboard.SendKeys("T")
12. My.Computer.Keyboard.SendKeys("/me hat Digots KEYBind eingeschaltet")
13. My.Computer.Keyboard.SendKeys("{Enter}")
14. End If
15. End If
16. If an = True Then
17. If GetAsyncKeyState(Keys.F3) = -32767 Then
18. My.Computer.Keyboard.SendKeys("T")
19. My.Computer.Keyboard.SendKeys("______________________________________________________")
20. My.Computer.Keyboard.SendKeys("{Enter}")
21. Threading.Thread.Sleep(2000)
22. My.Computer.Keyboard.SendKeys("T")
23. My.Computer.Keyboard.SendKeys("| Herzlich Willkommen in einem der vielen Taxis von: |")
24. My.Computer.Keyboard.SendKeys("{Enter}")
25. My.Computer.Keyboard.SendKeys("T")
26. My.Computer.Keyboard.SendKeys("|~~~~~~~~~~~~~~~~~~ .: Cesko TAXI GmbH :. ~~~~~~~~~~~|")
27. My.Computer.Keyboard.SendKeys("{Enter}")
28. Threading.Thread.Sleep(2000)
29. My.Computer.Keyboard.SendKeys("T")
30. My.Computer.Keyboard.SendKeys("|----------------------------------------------------|")
31. My.Computer.Keyboard.SendKeys("{Enter}")
32. Threading.Thread.Sleep(2000)
33. My.Computer.Keyboard.SendKeys("T")
34. My.Computer.Keyboard.SendKeys("| Wohin möchten Sie gefahren werden? 250$/15 Sekunden|")
35. My.Computer.Keyboard.SendKeys("{Enter}")
36. My.Computer.Keyboard.SendKeys("T")
37. My.Computer.Keyboard.SendKeys("------------------------------------------------------")
38. My.Computer.Keyboard.SendKeys("{Enter}")
40. ElseIf GetAsyncKeyState(Keys.F4) = -32767 Then
41. My.Computer.Keyboard.SendKeys("T")
42. My.Computer.Keyboard.SendKeys("______________________________________________________")
43. My.Computer.Keyboard.SendKeys("{Enter}")
44. Threading.Thread.Sleep(2000)
45. My.Computer.Keyboard.SendKeys("T")
46. My.Computer.Keyboard.SendKeys("| Vielen Dank für Ihre Mitfahrt bei einem Taxi von: |")
47. My.Computer.Keyboard.SendKeys("{Enter}")
48. My.Computer.Keyboard.SendKeys("T")
49. My.Computer.Keyboard.SendKeys("|~~~~~~~~~~~~~~~~~~ .: Cesko TAXI GmbH :. ~~~~~~~~~~~|")
50. My.Computer.Keyboard.SendKeys("{Enter}")
51. Threading.Thread.Sleep(2000)
52. My.Computer.Keyboard.SendKeys("T")
53. My.Computer.Keyboard.SendKeys("|----------------------------------------------------|")
54. My.Computer.Keyboard.SendKeys("{Enter}")
55. Threading.Thread.Sleep(2000)
56. My.Computer.Keyboard.SendKeys("T")
57. My.Computer.Keyboard.SendKeys("| Empfehlen Sie uns weiter....Noch einen schönen Tag!|")
58. My.Computer.Keyboard.SendKeys("{Enter}")
59. My.Computer.Keyboard.SendKeys("T")
60. My.Computer.Keyboard.SendKeys("------------------------------------------------------")
61. My.Computer.Keyboard.SendKeys("{Enter}")
63. ElseIf GetAsyncKeyState(Keys.NumPad7) = -32767 Then
64. My.Computer.Keyboard.SendKeys("T")
65. My.Computer.Keyboard.SendKeys("______________________________________________________")
66. My.Computer.Keyboard.SendKeys("{Enter}")
67. Threading.Thread.Sleep(2000)
68. My.Computer.Keyboard.SendKeys("T")
69. My.Computer.Keyboard.SendKeys("|~~~~~~ Guten Tag! Benötigen Sie ein Taxi von: ~~~~~~|")
70. My.Computer.Keyboard.SendKeys("{Enter}")
71. My.Computer.Keyboard.SendKeys("T")
72. My.Computer.Keyboard.SendKeys("|~~~~~~~~~~~~~~~~~~ .: Cesko TAXI GmbH :. ~~~~~~~~~~~|")
73. My.Computer.Keyboard.SendKeys("{Enter}")
74. Threading.Thread.Sleep(2000)
75. My.Computer.Keyboard.SendKeys("T")
76. My.Computer.Keyboard.SendKeys("|----------------------------------------------------|")
77. My.Computer.Keyboard.SendKeys("{Enter}")
78. Threading.Thread.Sleep(2000)
79. My.Computer.Keyboard.SendKeys("T")
80. My.Computer.Keyboard.SendKeys("| Wenn JA, dann steigen Sie bitte mit der Taste G ein|")
81. My.Computer.Keyboard.SendKeys("{Enter}")
82. My.Computer.Keyboard.SendKeys("T")
83. My.Computer.Keyboard.SendKeys("------------------------------------------------------")
84. My.Computer.Keyboard.SendKeys("{Enter}")
86. ElseIf GetAsyncKeyState(Keys.NumPad9) = -32767 Then
87. My.Computer.Keyboard.SendKeys("T")
88. My.Computer.Keyboard.SendKeys("______________________________________________________")
89. My.Computer.Keyboard.SendKeys("{Enter}")
90. Threading.Thread.Sleep(2000)
91. My.Computer.Keyboard.SendKeys("T")
92. My.Computer.Keyboard.SendKeys("|~~~~~ Guten Tag! Sie haben ein Taxi bestellt bei ~~~~")
93. My.Computer.Keyboard.SendKeys("{Enter}")
94. My.Computer.Keyboard.SendKeys("T")
95. My.Computer.Keyboard.SendKeys("|~~~~~~~~~~~~~~~~~~ .: Cesko TAXI GmbH :. ~~~~~~~~~~~|")
96. My.Computer.Keyboard.SendKeys("{Enter}")
97. Threading.Thread.Sleep(2000)
98. My.Computer.Keyboard.SendKeys("T")
99. My.Computer.Keyboard.SendKeys("|----------------------------------------------------|")
100. My.Computer.Keyboard.SendKeys("{Enter}")
101. Threading.Thread.Sleep(2000)
102. My.Computer.Keyboard.SendKeys("T")
103. My.Computer.Keyboard.SendKeys("|~~~~~~ Bitte steigen Sie mit der Taste G ein. ~~~~~~|")
104. My.Computer.Keyboard.SendKeys("{Enter}")
105. My.Computer.Keyboard.SendKeys("T")
106. My.Computer.Keyboard.SendKeys("------------------------------------------------------")
107. My.Computer.Keyboard.SendKeys("{Enter}")
108. End If
109. End If
110. End Sub
111. End Class