|
Registrieren
Login
:rolleyes: aber so wenig Zeit [img]/sad.gif[/img]
Tutorial Leser
Anmeldedatum: 01.05.2008
Beiträge: 35
Verfasst am: 16.06.2008, 10:10 |
|
| Hallo, ich habe mich auch mal mit dem Thema IRC in VB.net beschäftigt, hatte dann aber keine Zeit mehr fertig zu werden, aber den Winsock zu erstellen hatte ich schon geschafft und Nachrichten an den Server zu senden auch. Hier mal den Code den ich bisher hatte: Visual Basic: [code]Public Class frmMain Private ws As System.Net.Sockets.TcpClient Private nStream As System.Net.Sockets.NetworkStream Private Sub btnConnect_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnConnect.Click ws = New System.Net.Sockets.TcpClient(txtServer.Text, CInt(txtPort.Text)) nStream = ws.GetStream() 'SendMessage("PASS Passwort") 'muss nur gesendet werden wenn der Server Passwort geschützt ist SendMessage("NICK " & txtNickname.Text) SendMessage("USER " & txtNickname.Text & " 0 " & txtServer.Text & ":" & txtNickname.Text) End Sub Private Sub SendMessage(ByVal Message As String) Dim buffer() As Byte buffer = System.Text.Encoding.UTF8.GetBytes(Message & vbCrLf) nStream.Write(buffer, 0, buffer.Length) End Sub Private Sub btnDisconnect_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDisconnect.Click SendMessage("QUIT :Bye Bye") nStream.Close() ws.Close() End Sub End Class [/code] Das funktioniert noch nicht so ganz, ist aber schon mal ein Anfang. Das Problem ist, dass der Winsock in VB.net keine Events hat, also kein Event ausgelöst wird wenn die Verbindung beendet wird oder Text ankommt. Es gibt dafür unterschiedliche Möglichkeiten: entweder in einem Thread eine Endlosschleife immer mit nStream.Read machen oder die Methode nStream.BeginRead verwenden, von der ich aber nicht so genau weiß wie die funktioniert (dadruch kann man dann eine Callback Funktion bestimmen die aufgerufen wird wenn Text ankommt). _________________ |
|
Überflieger
Anmeldedatum: 16.04.2008
Beiträge: 486
Verfasst am: 16.06.2008, 10:20 |
|
|
Dort steht mehr als genug http://www.java2s.com/Tutorial/VB/0400__So...ket-Network.htm |
|
