[VB.NET] Uso di Winsock per colloquio TCP

[spinter]

Chiedo un aiuto!!!
Ho fatto mille ricerche ma non riesco a venirne a capo.
Sapete indicarmi dove posso trovare un semplicissimo client server,ne ho provati a decine ma purtroppo trovo tantissimi in formato vb6.E trasformarlo non combino!!
Per imparare mi servirebbe uno semplice in modo da capirlo.
mi servirebbe uno che da client a server invio il contenuto di una textbox !

Grazie!!!

[x69asterix]

questo è il server

Public Class Form1
    Dim dati As Object

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Wsk.Close()
        Wsk.LocalPort = 1300
        Wsk.Listen()
    End Sub

    Private Sub Wsk_ConnectionRequest(ByVal sender As Object, ByVal e As AxMSWinsockLib.DMSWinsockControlEvents_ConnectionRequestEvent) Handles Wsk.ConnectionRequest
        Wsk.Close()
        Wsk.Accept(e.requestID)
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Select Case Wsk.CtlState
            Case Is = 0
                StatoWinsock1.Text = "Chiuso"
            
            Case Is = 1
                StatoWinsock1.Text = "Aperto"
            Case Is = 2
                StatoWinsock1.Text = "In attesa"
                Button1.Enabled = False
            Case Is = 3
                StatoWinsock1.Text = "Connessione in sospeso"
            Case Is = 4
                StatoWinsock1.Text = "Risoluzione dell'host in corso"
            Case Is = 5
                StatoWinsock1.Text = "Host risolto"
            Case Is = 6
                StatoWinsock1.Text = "Connessione in corso..."

            Case Is = 7
                StatoWinsock1.Text = "Connesso... ( " & Wsk.RemoteHostIP & " )"
                Button1.Enabled = True
            Case Is = 8
                StatoWinsock1.Text = "Il Computer " & Wsk.RemoteHostIP & " ha chiuso la connessione"
                Wsk.Close()
                Wsk.Listen()
            Case Is = 9
                StatoWinsock1.Text = "Errore: Computer " & Wsk.RemoteHostIP & " non è raggiungibile"
                Wsk.Close()
                Wsk.Listen()
        End Select
    End Sub

    Private Sub Wsk_ConnectEvent(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Wsk.ConnectEvent

    End Sub

    Private Sub Wsk_DataArrival(ByVal sender As Object, ByVal e As AxMSWinsockLib.DMSWinsockControlEvents_DataArrivalEvent) Handles Wsk.DataArrival
        Wsk.GetData(dati)
        TextBox1.Text = TextBox1.Text & System.Text.Encoding.ASCII.GetString(dati) & vbCrLf

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Wsk.SendData(TextBox2.Text)
        TextBox1.Text = TextBox1.Text & TextBox2.Text & vbCrLf
        TextBox1.SelectionStart = TextBox1.TextLength
        TextBox1.ScrollToCaret()
        TextBox1.Focus()


    End Sub


End Class

per il client provaci..

[spinter]

Grazie tante per l'aiuto!!

non capisco come mettere il socket con vb6 ho visto che se lo aggiunge da tolbox ma in vb2005 non c'è come faccio?

per caso devo scrivere cosi'

Dim Wsk As System.Net.Sockets.Socket


perche scrivendo cosi'

su varie cose mi da errore

esempio:
Wsk.LocalPort = 1300
Wsk.Listen()
Grazie!

[x69asterix]

lo importi dai riferimenti!!

[spinter]

Purtroppo non riesco a capire cosa devo importare!
Sono 6 mesi che programmo non sono un grande esperto.

grazie!

[spinter]

Ok trovato

Andare in Tools scegliere il tolbox-----Com------e selezionare Microsoft WinSock Control.


Pero adesso come faccio con il Client,come la faccio ascoltare?

Grazie

[x69asterix]

Public Class Form1
    Dim dati As Object
    Dim tstring As String

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Wsk.Close()
        Wsk.LocalPort = 1300
        Wsk.Listen()
        Timer1.Enabled = True
    End Sub

       Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Select Case (Wsk.CtlState)
            Case Is = 0
                Label1.Text = "Chiuso"
                Button2.Enabled = False
                Wsk.Close()
                Me.Text = "Server Chiuso: "
            Case Is = 1
                Label1.Text = "Aperto"
            Case Is = 2
                Label1.Text = "In attesa"
                Button3.Enabled = False
                Button2.Enabled = True
                Me.Text = "Server In Ascolto: "
            Case Is = 3
                Label1.Text = "Connessione in sospeso"
            Case Is = 4
                Label1.Text = "Risoluzione dell'host in corso"
            Case Is = 5
                Label1.Text = "Host risolto"
            Case Is = 6
                Label1.Text = "Connessione in corso"
            Case Is = 7
                Label1.Text = "Connesso"
                Button2.Enabled = True
                Button3.Enabled = True
                Me.Text = "Server on Line: " & Wsk.RemoteHostIP
            Case Is = 8
                Label1.Text = "Il Server ha chiuso la connessione"
                Wsk.Close()
                Wsk.Listen()
            Case Is = 9
                Label1.Text = "Errore Server non trovato"
                Wsk.Close()
                Wsk.Listen()
        End Select
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Wsk.SendData(TextBox2.Text)
        RichTextBox1.Text = RichTextBox1.Text & TextBox2.Text & vbCrLf
        RichTextBox1.SelectionStart = RichTextBox1.TextLength
        RichTextBox1.ScrollToCaret()
        RichTextBox1.Focus()
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Wsk.Close()
        Wsk.LocalPort = 1000
        Wsk.Listen()
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Wsk.Close()
    End Sub

    Private Sub Wsk_ConnectionRequest(ByVal sender As Object, ByVal e As AxMSWinsockLib.DMSWinsockControlEvents_ConnectionRequestEvent) Handles Wsk.ConnectionRequest

        Wsk.Close()
        Wsk.Accept(e.requestID)

        If Wsk.CtlState = MSWinsockLib.StateConstants.sckConnected Then Wsk.SendData("Connesso")
        ListBox1.Items.Add(Wsk.RemoteHostIP)
    End Sub

    Private Sub Wsk_DataArrival(ByVal sender As Object, ByVal e As AxMSWinsockLib.DMSWinsockControlEvents_DataArrivalEvent) Handles Wsk.DataArrival
        Dim i As Integer

        tstring = ""
        Wsk.GetData(dati)
        For i = 0 To UBound(dati)
            tstring = tstring + Chr(dati(i))
        Next
        RichTextBox1.Text = RichTextBox1.Text & tstring & vbCrLf
        RichTextBox1.SelectionStart = RichTextBox1.TextLength
        RichTextBox1.ScrollToCaret()
        RichTextBox1.Focus()
        
    End Sub

End Class

Questo è tutto, buone chattate

[alka]

Originariamente inviato da spinter
Sapete indicarmi dove posso trovare un semplicissimo client server [...]

Il .NET Framework fornisce classi specifiche per il colloquio TCP: dovresti provare a dare un'occhiata a MSDN.

Per esempi di codice, prova a ricercare su Code Project: è un sito molto fornito, con parecchi articoli tecnici oltreché esempi pratici.

Ciao!

[spinter]

Ringrazio tutti e due per l'aiuto.
Scusate per la risposta dopo due giorni ma ero lontano da casa per motivi di lavoro.

Grazie adesso provo e poi vi dico cosa sono riuscito a combinare.
Grazie!!!

[spinter]

Cavolo ho un problema!!!

Ho formatato il pc,naturalmente con tutto vs2005 compreso di tutto.

Ho preso la mia Client Server che funzionava e non mi funziona piu',dicendomi che no trova
AxMSWinsockLib.DMSWinsockControlEvents.
Ho capito che non c'è piu' il socket.

Vado il Tools scegliere il tolbox-----Com------e selezionare Microsoft WinSock Control,è non c'è piu' è sparito non riesco piu' a vederlo.

Cos'è sucesso come posso fare?

Scusate tanto ma ho provato a fare di tutto ma non combino!!!