das lag wahrscheinlich daran, das du ein packet sendest, ohne die antwort zu lesen...Quote:
Ja leider..
Habe schon versucht Packete an den Server zu senden, bekomme aber leider keine Antwort.. :(
Hoffe jedenfalls, dass ich heute noch ein anständiges TCP Tutorial finde, dass würde mir auch helfen.
Code:
Dim Bot as new TcpClient
Dim stream as networkstream
Dim streamr as streamreader
Dim streamw as Streamwriter
Public Sub SendPacket(byval Text as String)
streamw.writeline(text)
streamw.flush
End Sub
Public Function Receive() as String 'hier werden die empfangenen daten aus dem stream gelesen
Return Streamr.readline
End Function
Dim t as New threading.thread(addresof schleife)
Sub Schleife ' schleife, die abbricht, wenn die verbindung vom bot unterbrochen wird.
While Bot.connected
WeisGottWas(receive)
End While
End Sub
Sub WeisGottWas(byval Packet as String)
'Hier kommt rein was mit dem Packet das empfangen wird gemacht werden soll z.B. :
IO.File.writeallText("C:\Received.txt", packet & vbnewline)
End Sub
Public Sub Connect
Bot.Connect(IP, 8080)
stream = bot.getstream
streamr = new Streamreader(stream)
Streamw = new StreamWriter(stream)
t.start
End Sub
Ok, die Ideen sind schonmal nicht schlecht, auch ^^ deine GUI, Kann ja mal Paar TestGUI's erstellen und dann ne umfrage machen...
Edit:
Ich hab ihm grad eins geliefert... Is zwar in Visual Basic, aber es müsste verständlich sein, was ich meine. Außerdem könnte ich dir nur raten, wenn nen Packet Bot machen willst, steig in Visual Basic um...Quote:
Nettes gui aber es wird wohl kein tutorial geben wie man ein packed bot macht o.O