Winsock chat simple

Question

Bonjour,
Je bloque sur mon code : je cherche à faire un petit chat très simple.
Mais l'exécution m'entraine à "erreur2". Il n'arrive pas à faire cette ligne 
AxWinsock1.GetData(Messagein)

Mais pourquoi??

Merci

Bonne journée



Private Sub Button16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button16.Click
        Messageout = Environ("username") & Txtout.Text
        'Ip = Environ(Ip)
        Try
            AxWinsock1.SendData(Messageout)

        Catch ex As Exception
            MsgBox("erreur1")
        End Try


    End Sub


    Private Sub AxWinsock1_DataArrival(ByVal sender As Object, ByVal e As AxMSWinsockLib.DMSWinsockControlEvents_DataArrivalEvent) Handles AxWinsock1.DataArrival
        MsgBox("SendDATA = ok")
        Try
           
            AxWinsock1.GetData(Messagein)
            Txtin.Text = Messagein & vbNewLine


        Catch ex As Exception
            MsgBox("erreur2")
        End Try
    End Sub

NHenry · Answer

Bonjour,

En VB.NET évites d'utiliser Winsock, préfères System.Net.Sockets.TcpClient/TcpListener

Sinon, il y a aussi cette source : http://www.vbfrance.com/code.aspx?ID=36083

Mon site

Winsock chat simple

1 réponse

Votre réponse

Discussions similaires