[vb.net] client remoto

[manuel 66]

sto creando 2 programmi, che comunicano tramite socket, il primo programma e quello che comanda, mentre il 2 e quello che riceve i comandi e esegue.
il problema e che quello che riceve ed esegue (credo sia un problema di thread) alla chiamata della funzione esegui non fa niente (non esegue le istruzioni if)

vi posto il codice del client:

Imports System.Net.Sockets
Imports System.Text.ASCIIEncoding

Public Class Form1
    Dim Msg As String
    Private Listener As TcpListener
    Private Client As TcpClient
    Private NetStream As NetworkStream

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Listener = New TcpListener(25)
        Listener.Start()
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
      
        If Listener.Pending Then


            Client = Listener.AcceptTcpClient
            NetStream = Client.GetStream
            Msg = GetMessage(NetStream)

            ListBox1.Items.Add(Msg)
            esegui()
        End If
    End Sub

    Private Function GetMessage(ByVal Stream As NetworkStream) As String
        Try
            If Stream.CanRead Then
                Dim Bytes(Client.ReceiveBufferSize) As Byte
                Dim Msg As String
                Stream.Read(Bytes, 0, Bytes.Length)
                Msg = ASCII.GetString(Bytes)
                Return Msg.Normalize
            Else
                Return Nothing
            End If
        Catch
            End
        End Try
       
    End Function

    Private Sub esegui()
        'MsgBox("esegui")
        If Msg = "nome del comando" Then
            MsgBox("output del comando")
        End If
    End Sub
End Class

[jackk87]

dai uno sguardo qui http://www.eggheadcafe.com/articles/20020323.asp

[manuel 66]

grazie per aver risposto, ma sul link c'e piu o meno lo stesso identico codice, perche non esegue l'istruzione "if" quando chiamo la funzione esegui ?

[jackk87]

Originariamente inviato da manuel 66

grazie per aver risposto, ma sul link c'e piu o meno lo stesso identico codice, perche non esegue l'istruzione "if" quando chiamo la funzione esegui ?

Imports System.Net.Sockets
Imports System.Text.ASCIIEncoding

Public Class Form1
    Dim Msg As String
    Private Listener As TcpListener
    Private Client As TcpClient
    Private NetStream As NetworkStream

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Listener = New TcpListener(25)
        Listener.Start()
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
      
        If Listener.Pending Then


            Client = Listener.AcceptTcpClient
            NetStream = Client.GetStream
            Msg = GetMessage(NetStream)

            ListBox1.Items.Add(Msg)
            esegui()
        End If
    End Sub

    Private Function GetMessage(ByVal Stream As NetworkStream) As String
        Try
            If Stream.CanRead Then
                Dim Bytes(Client.ReceiveBufferSize) As Byte
                Dim Msg As String
                Stream.Read(Bytes, 0, Bytes.Length)
                Msg = ASCII.GetString(Bytes)
                Return Msg.Normalize
            Else
                Return Nothing
            End If
        Catch
            End
        End Try
       
    End Function

    Private Sub esegui()
        'MsgBox("esegui")
        If Msg = "nome del comando" Then
            MsgBox("output del comando")
        End If
    End Sub
End Class

non ho capito a cosa ti serve la procedura esegui cmq le righe in rosso non mi piacciono fai una prova o metti dei punti brackpoint così da vedere cosa contiene la variabile msg al momento dell'if oppure prima dell'if metti un msgbox che ti stampa a video il contenuto per vedere se effettivamente contiene la stringa che hai inserito per il controllo

[manuel 66]

ho gia controllato con un msgbox il valore di Msg e corrisponde a quello inviato dal client(lo codifica in byte e li invia)
mi ero dimenticato di dire che quando il client che invia i comandi, si connette a quello che esegue esso si blocca, ed ogni volta che gli invio un comando si sblocca per un secondo e aggiorna la listbox; questo mi fa capire che dovrei mettere un multithread ma come ?

se vuoi vedere i sorgenti ecco il link http://www.megaupload.com/?d=XE97Z13F

[jackk87]

Ho visto il tuo programma e si blocca perchè non utilizzi i thread. Devi farti il programma da capo leggi qui -> http://vb.net-informations.com/commu...er_program.htm hai sia il client che il server in multithreading con codice pronto studialo e casomai adattalo al tuo progretto se hai problemi scrivi pure

[manuel 66]

grazie mille, adesso provo

il client che invia l'ho convertito e funge bene, il server invece e molto piu difficile da convertire come voglio, ma finalmente riesco ad eseguire il ciclo if ed a ottenere un'output manca solo una cancellazione del codice superfluo