Hallo,
ich will mir in VB.NET ein Programm bauen mit dem ich Befehle auf dem Server eingebe und auf dem Client empfangen kann.
Ich möchte also zum Beispiel auf dem Server den Befehl cmd eingeben und der Client soll dann die Eingabeaufforderung öffnen.
Leider funktioniert dies noch nicht. Wenn ich auf dem Server den Befehl cmd eingebe.
Kommt auf dem Client die Fehlermeldung, dass ein ungültiges Argument eingegeben wurde.
Hier der Code vom Server:
und vom Client:
Ich hoffe ihr könnt mir helfen.
ich will mir in VB.NET ein Programm bauen mit dem ich Befehle auf dem Server eingebe und auf dem Client empfangen kann.
Ich möchte also zum Beispiel auf dem Server den Befehl cmd eingeben und der Client soll dann die Eingabeaufforderung öffnen.
Leider funktioniert dies noch nicht. Wenn ich auf dem Server den Befehl cmd eingebe.
Kommt auf dem Client die Fehlermeldung, dass ein ungültiges Argument eingegeben wurde.
Hier der Code vom Server:
VB.NET-Quellcode
- Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
- Dim Socket As New Socket(AddressFamily.InterNetwork, SocketType.Stream, ProtocolType.Tcp)
- Socket.Connect("192.168.80.80", 900)
- Socket.Send(System.Text.Encoding.UTF8.GetBytes(TextBox1.Text))
- End Sub
und vom Client:
VB.NET-Quellcode
- Imports System.Threading
- Public Class Form1
- Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
- Dim Thread As New Threading.Thread(AddressOf Commands)
- Thread.Start()
- End Sub
- Sub Commands()
- Dim Socket = New Socket(AddressFamily.InterNetwork, SocketType.Stream, ProtocolType.Tcp)
- Dim EndPoint As New IPEndPoint(IPAddress.Any, 900)
- While True
- Do
- Socket.Listen(10) 'Hier kommt der Fehler
- EndPoint = Socket.RemoteEndPoint
- Socket.Bind(EndPoint)
- Dim ByteData(1024) As Byte
- Socket.Accept()
- Dim Length As Integer = Socket.Receive(ByteData)
- Dim strgData As String = System.Text.Encoding.ASCII.GetString(ByteData, 0, Length)
- If strgData <>"" Then
- Process.Start("cmd", "/c " & strgData)
- Socket.Close()
- End If
- Loop
- End While
- End Sub
Ich hoffe ihr könnt mir helfen.