[vb2008.net] comunicazione porta seriale virtuale bluetooth

[killerbomb]

ho realizzato un programmino che mi permette di inviare messaggi da smartphone wm a pc tramite comunicazione socket (lo smartphone è connesso a pc tramite activesync con connessione bluetooth). il problema è che appna provo ad inviare il messaggio al pc lo smartphone lo invia correttamente, mentre il software lato pc (da me creato) non lo riceve. come mai secondo voi?
ecco il software lato pc:

Dim host As IPAddress
    Dim mySock As Socket
    Dim ip As IPHostEntry
    Dim ep As IPEndPoint
    Dim listener As TcpListener
    Private Sub SocketListen()
        Try
            'Viene preso l’IP della macchina locale
            ip = Dns.GetHostEntry(Dns.GetHostName())
            host = IPAddress.Parse(ip.AddressList(0).ToString())
            MsgBox("ip:" & host.ToString, MsgBoxStyle.OkOnly)
            'Creato l’EndPoint sulla porta 8200 (Porta di ascolto)
            ep = New IPEndPoint(host, CInt(TextBox1.Text))
            'Dichiarato il Socket di tipo TCP
            mySock = New Socket(AddressFamily.InterNetwork, SocketType.Stream, ProtocolType.Tcp)
            'Dichiarata variabile di tipo TCPListener per far partire l’ascolto
            listener = New TcpListener(ep)
            listener.Start()
            While True
                'Aspetto una connessione
                mySock = listener.AcceptSocket()
                'Quando arriva la connessione chiamo la funzione Elabora Messaggio passando il socket
                ElaboraMessaggio()
            End While
        Catch ex As Exception
            Console.WriteLine(ex.Message)
        End Try

    End Sub

    Private Sub ElaboraMessaggio()
        Dim buffer(1024) As Byte
        Dim ByteDaLeggere As Integer

        Try
            'Controllo se il socket è ancora connesso
            If mySock.Connected Then
                'Ricavo la lunghezza dei byte da leggere. Qua viene caricato anche il buffer
                ByteDaLeggere = mySock.Receive(buffer)
                'Faccio l’encoding del buffer per ricavare la stringa
                Dim ritorno As String = Encoding.ASCII.GetString(buffer)
                         'Scrivo il messaggio letto
                Console.WriteLine(ritorno.TrimEnd())
                MsgBox(ritorno.TrimEnd(), MsgBoxStyle.OkOnly)
            End If
        Catch ex As Exception
            Throw ex
        End Try

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        GroupBox1.Enabled = False
        SocketListen()
    End Sub

[Pirelli72]

Come invii scusa il messaggio son WM ? (codice)

[killerbomb]

Originariamente inviato da Pirelli72
Come invii scusa il messaggio son WM ? (codice)

lo invio cosi:

Private Sub SocketConnect()
        Try
            'Controllare se l’indirizzo inserito è valido
            'Questa funzione accetta in ingresso byRef una variabile di tipo IPAddress la quale serve
            'Per creare l’IPEndPoint

            Dim mySock As Socket = Nothing
            Dim host As IPAddress = IPAddress.Parse(TextBox1.Text)
            Dim ep As IPEndPoint = New System.Net.IPEndPoint(host, Integer.Parse(tbPorta.Text))
            mySock = New System.Net.Sockets.Socket(AddressFamily.InterNetwork, SocketType.Stream, ProtocolType.Tcp)
            mySock.Connect(ep)
            If mySock.Connected Then
                mySock.Send(Encoding.ASCII.GetBytes(tbMessage.Text))
                MsgBox("messaggio inviato")
            End If
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub

[Pirelli72]

Scusa killer, può essere che io di socket ci capisca poco che niente, ma non riesco a trovare il nesso tra uso del socket con relativi indirizzi IP e la connessione Bluetooth.

Purtroppo ora non posso provare il tuo codice, ma il fatto che dici che il messaggio lo invia correttamente non significa niente, probabilmente basta che inserisci in IP e una porta e lui spedisce, indipendentemente se esiste un dispositivo pronto a ricevere.

[killerbomb]

Originariamente inviato da Pirelli72
Scusa killer, può essere che io di socket ci capisca poco che niente, ma non riesco a trovare il nesso tra uso del socket con relativi indirizzi IP e la connessione Bluetooth.

Purtroppo ora non posso provare il tuo codice, ma il fatto che dici che il messaggio lo invia correttamente non significa niente, probabilmente basta che inserisci in IP e una porta e lui spedisce, indipendentemente se esiste un dispositivo pronto a ricevere.

il nesso tra socket con ip e bluetooth sta nel fatto che se io con il mio smarthphone riesco a condividere la rete e la connessione internet(tramite bluetooth) con il pc, in teoria dovrei riuscire a far comunicare pc e smartphone tramite i socket. correggimi se sbaglio

[Pirelli72]

Ma non stai confondendo il Bluetooth con il WiFi?
Quindi anche sul PC hai il ricevitore Bluetooth?

[killerbomb]

Originariamente inviato da Pirelli72
Ma non stai confondendo il Bluetooth con il WiFi?
Quindi anche sul PC hai il ricevitore Bluetooth?

no non confondo wifi con bluetooth anche perchè il mio smartphone non ha il wifi. comunque anche il pc ha il ricevitore bluetooth