Telnet in Application einbauen

  • VB.NET

Es gibt 5 Antworten in diesem Thema. Der letzte Beitrag () ist von ShadowWarlock.

    Telnet in Application einbauen

    Hallo,
    Ich wollte mir für TeamSpeak ein kleines Tool selbst schreiben, welches mir den zugang mit Telnet erleichtert. Und zwar, mein Problem:
    Wie baue ich CMD Befehle als Code in VB ein, wobei 2 Textboxen einen kleinen Einfluss haben?

    Ich habs schon so versucht:

    VB.NET-Quellcode

    1. Shell("cmd/Telnet" & "TextBox1.Text" & "TextBox2.Text")

    Hat nicht funktioniert.

    Ich will in die 2 TextBoxen einmal die IP und einmal den Port eingeben sodass man nur noch auf ein Button klicken muss um die Verbindung aufzubauen.

    Danke im vorraus!


    EDIT:
    So das Problem hab ich schon gelöst nur das Telnetfenster schließt sich nach dem Verbindungsaufbau.

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

    Dies währe z.B. ein code mit textboxen zur eingabe der variablen und abarbeiten mehrer befehle...

    VB.NET-Quellcode

    1. 'Telnet
    2. Private Sub btbTSSenden_Click1(ByVal sender As Object, ByVal e As System.EventArgs) Handles btbTSSenden.Click
    3. Try
    4. 'telnet Start und Verbindung zur IP
    5. Dim Prozess As New Process()
    7. Prozess.StartInfo.FileName = "telnet.exe"
    8. Prozess.StartInfo.Arguments = txtIP.Text & " " & txtTCPQPort.Text
    9. Prozess.StartInfo.CreateNoWindow = True
    11. 'Login, Servereinrichtung und anschließender Start
    12. Prozess.Start()
    13. SendKeys.Send("slogin " & txtSAdmin.Text & " " & txtSAdminPWD.Text & "{ENTER}")
    14. SendKeys.Send("serveradd " & txtZPort.Text & "{ENTER}")
    15. SendKeys.Send("sel " & txtZPort.Text & "{ENTER}")
    16. SendKeys.Send("dbuseradd " & txtAName.Text & " " & txtPDW.Text & " " & txtPDW.Text & " 1" & "{ENTER}")
    17. SendKeys.Send("serverset server_name " & txtTSName.Text & "{Enter}")
    18. SendKeys.Send("serverset server_maxusers " & txtTSSlots.Text & "{Enter}")
    19. SendKeys.Send("serverset server_password " & txtTSPWD.Text & "{Enter}")
    20. SendKeys.Send("serverset server_welcomemessage " & txtTStxt.Text & "{Enter}")
    21. If ckbPublic.Checked Then
    22. SendKeys.Send("serverset server_clan_server 0" & "{ENTER}")
    23. End If
    24. SendKeys.Send("quit" & "{ENTER}")
    25. Catch ex As Exception
    26. End Try
    27. End Sub


    nur schließ sich das telnet nicht... ich nutze diesen code um TS Server einzurichten und sofort zu starten... wenn das programm nicht geschlossen wird öffnet sich die telnet console mehrfach und nix wird abgearbeitet... das sind noch meine fehler in diesem code...


    Sry vergessen: txt...text sind textboxen

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

    ShadowWarlock ich hab mit deinem Code etwas rumprobiert aber so schnell kann Telnet gar keine Befehle übertragen wie sie eigegeben werden. Vielleicht solltest du für jeden SendKey Befehl ja einen Timer benutzen auf einen Intervall von 2500.

    Zudem könnte es so klappen mit dem Prozess beenden:

    VB.NET-Quellcode

    1. 'Telnet
    2. Private Sub btbTSSenden_Click1(ByVal sender As Object, ByVal e As System.EventArgs) Handles btbTSSenden.Click
    3. Try
    4. 'telnet Start und Verbindung zur IP
    5. Dim Prozess As New Process()
    7. Prozess.StartInfo.FileName = "telnet.exe"
    8. Prozess.StartInfo.Arguments = txtIP.Text & " " & txtTCPQPort.Text
    9. Prozess.StartInfo.CreateNoWindow = True
    11. 'Login, Servereinrichtung und anschließender Start
    12. Prozess.Start()
    13. SendKeys.Send("slogin " & txtSAdmin.Text & " " & txtSAdminPWD.Text & "{ENTER}")
    14. SendKeys.Send("serveradd " & txtZPort.Text & "{ENTER}")
    15. SendKeys.Send("sel " & txtZPort.Text & "{ENTER}")
    16. SendKeys.Send("dbuseradd " & txtAName.Text & " " & txtPDW.Text & " " & txtPDW.Text & " 1" & "{ENTER}")
    17. SendKeys.Send("serverset server_name " & txtTSName.Text & "{Enter}")
    18. SendKeys.Send("serverset server_maxusers " & txtTSSlots.Text & "{Enter}")
    19. SendKeys.Send("serverset server_password " & txtTSPWD.Text & "{Enter}")
    20. SendKeys.Send("serverset server_welcomemessage " & txtTStxt.Text & "{Enter}")
    21. If ckbPublic.Checked Then
    22. SendKeys.Send("serverset server_clan_server 0" & "{ENTER}")
    23. End If
    24. SendKeys.Send("quit" & "{ENTER}")
    25. Prozess.Kill
    26. Catch ex As Exception
    27. End Try
    28. End Sub


    Versuches mal einfach am Ende mit Prozess.Kill

    Mittlerweile siehts so aus mit timer von 1900 weil wenn ich diesen auf 2500 stelle geht das programm sofort wieder zu...

    VB.NET-Quellcode

    1. 'Telnet
    2. Private Sub btbTSSenden_Click1(ByVal sender As Object, ByVal e As System.EventArgs) Handles btbTSSenden.Click
    3. Try
    4. 'Shell("telnet.exe " & txtIP.Text & " " & txtTCPQPort.Text, AppWinStyle.NormalFocus) Then
    6. 'telnet Start und Verbindung zur IP
    7. Dim Prozess As New Process()
    8. Prozess.StartInfo.FileName = "telnet.exe"
    9. Prozess.StartInfo.Arguments = txtIP.Text & " " & txtTCPQPort.Text
    10. Prozess.StartInfo.CreateNoWindow = True
    11. 'Login, Servereinrichtung und anschließender Start
    12. If Prozess.Start Then
    13. Timer1.Start()
    14. End If
    16. Catch ex As Exception
    17. MsgBox("Fehler")
    18. Timer1.Stop()
    19. End Try
    20. End Sub
    21. Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    22. SendKeys.Send("slogin " & txtSAdmin.Text & " " & txtSAdminPWD.Text & "{ENTER}")
    23. SendKeys.Send("serveradd " & txtZPort.Text & "{ENTER}")
    24. SendKeys.Send("sel " & txtZPort.Text & "{ENTER}")
    25. SendKeys.Send("dbuseradd " & txtAName.Text & " " & txtPDW.Text & " " & txtPDW.Text & " 1" & "{ENTER}")
    26. SendKeys.Send("serverset server_name " & txtTSName.Text & "{Enter}")
    27. SendKeys.Send("serverset server_maxusers " & txtTSSlots.Text & "{Enter}")
    28. SendKeys.Send("serverset server_welcomemessage " & txtTStxt.Text & "{Enter}")
    29. If txtPDW.Text.Length = 1 - 255 Then
    30. SendKeys.Send("serverset server_password " & txtTSPWD.Text & "{Enter}")
    31. End If
    32. If ckbPublic.Checked Then
    33. SendKeys.Send("serverset server_clan_server 0" & "{ENTER}")
    34. End If
    35. SendKeys.Send("quit" & "{ENTER}")
    36. Timer1.Stop()
    37. End Sub


    Edit: Allerdings geht das mit dem prozess.kill net da geht telnet garnicht auf...

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

Facebook
Telefonspende