Textbox Text an eine Spiele Console Senden

  • VB.NET

Es gibt 14 Antworten in diesem Thema. Der letzte Beitrag () ist von scare96.

    Textbox Text an eine Spiele Console Senden

    Hallo,
    Ich weiß nicht ob einige AlterIWnet kennen ?
    Auf jeden Fall Schreibe ich Für das Game einen Helper und der Soll auch ein Connect auf eine Ip beinhalten.
    Also du Gibst in einer Textbox eine Ip ein und das Programm sendet dan "connect ip" an die Console.
    Die Console ist Frei Sichtbar.

    Habe Schon an Sendkeys gedacht aber Stehe in einer Sackgasse ohne licht :(

    Hoffe ihr könnt mir Helfen mfg, scare

    Also es ist nun mal so
    wenn ich das Spiel Starte dan öffnet sich neber dem Spiel die Spiel Console.
    Und in diese Console kann man Befehle eingeben wie z.B Connect 188.xxx.xxx.
    Und genau das soll das Programm Machen Ich Trage in eine textbox die IP ein und wenn ich dan auf den Button Klicke Soll mein Programm der Spiele Console den befehl Senden "Connect 188.xxx.xxx." und dan mit Enter Bestätigen.

    Das Soll mein Programm Machen.


    Hier der Cod Falls es was Bringt.

    VB.NET-Quellcode

    1. Imports System.IO
    2. Public Class Form1
    4. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    5. Shell(TextBox2.Text & ("\alterIWnet_configure.exe"))
    6. End Sub
    8. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    9. TextBox1.Text = TextBox1.Text & "^1"
    10. End Sub
    12. Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
    13. TextBox1.Text = TextBox1.Text & "^2"
    14. End Sub
    16. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    17. TextBox2.Text = My.Settings.Install
    18. TextBox4.Text = My.Settings.name1
    19. TextBox5.Text = My.Settings.name2
    20. TextBox7.Text = My.Settings.name3
    21. TextBox9.Text = My.Settings.name4
    22. TextBox11.Text = My.Settings.name5
    23. TextBox13.Text = My.Settings.name6
    24. TextBox15.Text = My.Settings.name7
    25. TextBox3.Text = My.Settings.ip1
    26. TextBox6.Text = My.Settings.ip2
    27. TextBox8.Text = My.Settings.ip3
    28. TextBox10.Text = My.Settings.ip4
    29. TextBox12.Text = My.Settings.ip5
    30. TextBox14.Text = My.Settings.ip6
    31. TextBox16.Text = My.Settings.ip7
    32. End Sub
    34. Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
    35. TextBox1.Text = TextBox1.Text & "^3"
    36. End Sub
    38. Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
    39. TextBox1.Text = TextBox1.Text & "^4"
    40. End Sub
    42. Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
    43. TextBox1.Text = TextBox1.Text & "^5"
    44. End Sub
    46. Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
    47. TextBox1.Text = TextBox1.Text & "^6"
    48. End Sub
    50. Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
    51. TextBox1.Text = TextBox1.Text & "^7"
    52. End Sub
    54. Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
    55. TextBox1.Text = TextBox1.Text & "^8"
    56. End Sub
    58. Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
    59. TextBox1.Text = TextBox1.Text & "^9"
    60. End Sub
    62. Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
    64. End Sub
    66. Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click
    67. MsgBox(" Mw2 Install Path Example : C:\Call of Duty Modern Warfare 2 AlterIWnet")
    68. End Sub
    70. Private Sub Button21_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
    71. End Sub
    73. Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click
    74. Shell(TextBox2.Text & ("\iw4mp.exe"))
    75. End Sub
    77. Private Sub Button20_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button20.Click
    78. Shell(TextBox2.Text & ("\iw4mp.exe"))
    79. Timer1.Start()
    81. End Sub
    83. Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    84. SendKeys.Send(TextBox19.Text)
    85. End Sub
    87. Private Sub Button22_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button22.Click
    88. My.Settings.name1 = TextBox4.Text
    89. My.Settings.name2 = TextBox5.Text
    90. My.Settings.name3 = TextBox7.Text
    91. My.Settings.name4 = TextBox9.Text
    92. My.Settings.name5 = TextBox11.Text
    93. My.Settings.name6 = TextBox13.Text
    94. My.Settings.name7 = TextBox15.Text
    95. My.Settings.ip1 = TextBox3.Text
    96. My.Settings.ip2 = TextBox6.Text
    97. My.Settings.ip3 = TextBox8.Text
    98. My.Settings.ip4 = TextBox10.Text
    99. My.Settings.ip5 = TextBox12.Text
    100. My.Settings.ip6 = TextBox14.Text
    101. My.Settings.ip7 = TextBox16.Text
    102. My.Settings.Save()
    103. My.Settings.Reload()
    104. End Sub
    106. Private Sub Button19_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
    108. End Sub
    110. Private Sub Button23_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button23.Click
    111. My.Settings.Install = TextBox2.Text
    112. My.Settings.name1 = TextBox4.Text
    113. My.Settings.name2 = TextBox5.Text
    114. My.Settings.name3 = TextBox7.Text
    115. My.Settings.name4 = TextBox9.Text
    116. My.Settings.name5 = TextBox11.Text
    117. My.Settings.name6 = TextBox13.Text
    118. My.Settings.name7 = TextBox15.Text
    119. My.Settings.Save()
    120. My.Settings.Reload()
    121. End Sub
    123. Private Sub Button19_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button19.Click
    124. Admin_Commands.Show()
    125. Admin_Commands.TextBox1.Text = "To kick a playet first Type : Status" & vbCrLf & "Followed by this command with the player ID code : clientkick" & vbCrLf & "Example : clientkick 5"
    126. End Sub
    128. Private Sub Button21_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button21.Click
    129. Admin_Commands.Show()
    130. Admin_Commands.TextBox1.Text = "To change a map Type one of the code listed depending on the map you want" & vbCrLf & "" & vbCrLf & "map mp_afghan" & vbCrLf & "map mp_boneyard (Scrapyard)" & vbCrLf & "map mp_brecourt (Wasteland)" & vbCrLf & "map mp_checkpoint (Karachi)" & vbCrLf & "map mp_derail" & vbCrLf & "map mp_estate" & vbCrLf & "map mp_favela" & vbCrLf & "map mp_highrise" & vbCrLf & "map mp_nightshift (Skidrow)" & vbCrLf & "map mp_invasion" & vbCrLf & "map mp_quarry" & vbCrLf & "map mp_rundown" & vbCrLf & "map mp_rust" & vbCrLf & "map mp_subbase" & vbCrLf & "map mp_terminal" & vbCrLf & "map mp_underpass"
    131. End Sub
    133. Private Sub Button24_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button24.Click
    134. Admin_Commands.Show()
    135. Admin_Commands.TextBox1.Text = "To always be the host of a game (add this code before you join a lobby, you only have to type it once you've started the game, but will have the re-do the next time you decide to open the game)" & vbCrLf & "" & vbCrLf & "party_hostmigration 0; party_connecttimeout 1; badhost_endgameifisuck 0"
    136. End Sub
    138. Private Sub Button25_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button25.Click
    139. Admin_Commands.Show()
    140. Admin_Commands.TextBox1.Text = "Change game type along with rules, (remember a restart of the map is required to change the game type but not the rules, e.g. would be playing in death match and wanting to change the time limit, to restart a game just type either of the following." & vbCrLf & "" & vbCrLf & "restart_map" & vbCrLf & "fast_restart"
    141. End Sub
    143. Private Sub Button26_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button26.Click
    144. Admin_Commands.Show()
    145. Admin_Commands.TextBox1.Text = "g_gametype dm" & vbCrLf & "scr_dm_numlives 0" & vbCrLf & "scr_dm_playerrespawndelay 0" & vbCrLf & "scr_dm_promode 0 (Extra bullet damage)" & vbCrLf & "scr_dm_roundlimit 1" & vbCrLf & "scr_dm_scorelimit 1500" & vbCrLf & "scr_dm_timelimit 10" & vbCrLf & "scr_dm_waverespawndelay 0" & vbCrLf & "scr_dm_winlimit 1" & vbCrLf & "" & vbCrLf & "" & vbCrLf & "IMPORTANT before and after the numbers set "" "
    146. End Sub
    148. Private Sub Button27_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button27.Click
    149. Admin_Commands.Show()
    150. Admin_Commands.TextBox1.Text = "g_gametype dom" & vbCrLf & "scr_dom_numlives 0" & vbCrLf & "sscr_dom_playerrespawndelay 0" & vbCrLf & "scr_dom_promode 0" & vbCrLf & "scr_dom_roundlimit 1" & vbCrLf & "scr_dom_scorelimit 200" & vbCrLf & "scr_dom_timelimit 0" & vbCrLf & "scr_dom_waverespawndelay 0" & vbCrLf & "scr_dom_winlimit 1" & vbCrLf & "" & vbCrLf & "" & vbCrLf & "IMPORTANT before and after the numbers set "" "
    151. End Sub
    153. Private Sub Button33_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button33.Click
    154. Admin_Commands.Show()
    155. Admin_Commands.TextBox1.Text = "g_gametype vip" & vbCrLf & "scr_vip_numlives 0" & vbCrLf & "scr_vip_promode 0" & vbCrLf & "scr_vip_roundlimit 3" & vbCrLf & "scr_vip_roundswitch 1" & vbCrLf & "scr_vip_scorelimit 1" & vbCrLf & "scr_vip_timelimit 2.5" & vbCrLf & "scr_vip_winlimit 2" & vbCrLf & "" & vbCrLf & "" & vbCrLf & "IMPORTANT before and after the numbers set "" "
    156. End Sub
    158. Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click
    160. End Sub
    162. Private Sub Button12_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Button12.KeyDown
    164. End Sub
    165. End Class

    Du hast also eine Textbox in der du eine IP einträgst.
    Der Inhalt dieser Textbox soll dann an das Programm weitergegeben werden und dort den Befehl [connect (textbox1.text)] ausführen?

    PS: Warum so umständlich? Kannst du nicht einfach gleich die IP in die Console tippen?^^