Como hacer un chat con VB?

Question

hola me gustaria recibir ayuda con el siguiente problema, estoy tratando de hacer un programa para chatar en LAN pero tengo algunos problemas:

Primero me aparec que la cadena "y la palabra ue escribo "no pude ser tranformada en boolem

Ademas cuando  trato de ingresar el usuaio y la ip me vuelve a pedir que los ingres, la verda soy nuevo y vopie l codigo d un tutoril en you tube, si pudieran ayudarme este es el codigo y algunas imagenes de las ventanas.

solo en una ocasión funciono mi aplicación envio un numero. pero luego yano volvio a hacerlo.

el codigo es el siguiente:

Imports System.IO
Imports System.Net.Sockets
Public Class Form1
    Dim listerner As New TcpListener(44444)
    Dim client As TcpClient
    Dim menssage As String = ""
    Dim tts

    Private Sub Form1_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
        listerner.Stop()
    End Sub
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        listerner.Start()
        Timer1.Enabled = True
        Timer1.Start()
    End Sub

    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        Try
            If listerner.Pending = True Then
                menssage = ""
                client = listerner.AcceptTcpClient()
                Dim reader As New StreamReader(client.GetStream())
                While reader.Peek > -1
                    menssage = menssage + Convert.ToChar(reader.Read()).ToString
                End While
                Me.Focus()
                TextBox4.Text = (TextBox4.Text + menssage + vbCrLf)
                tts = CreateObject("napi.apvois")
                tts.Speak(menssage)
            End If

        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Try
            If TextBox1.Text = "" Or TextBox2.Text = "" Or TextBox3.Text Then
                MsgBox("ingrese un nombre de usuario, ingrese la IP del usuario, e ingrese su mensaje.", MsgBoxStyle.Exclamation)
            Else
                client = New TcpClient(TextBox2.Text, 44444)
                Dim writer As New StreamWriter(client.GetStream())
                writer.Write(TextBox1.Text + "Dice:" + TextBox3.Text)
                writer.Flush()
                TextBox3.Text = ""
            End If
        Catch ex As Exception
            MsgBox(ex.Message,MsgBoxStyle.Critical)
        End Try
    End Sub
End Class

______________________________

PORFAVOR SI ALGUIEN PUEDE HASESORARME SE LOS AGRADECERIA MUCHO

Answer 1

Hola y bienvenido,

Primero debieras intentar debuggear la solución colocando breakpoints (f9) y corriendo con F10 hasta que encuentres el problema puntual. Es VB5/6? O es .NET lo que estas copiando?

Otro tema que podrías tener es puertos cerrados en el firewall de Windows.

Saludos,

Daniel

PD: Tomate tu tiempo para desarrollar y para escribir. Hay que entender cada punto para poder avanzar. Lo mas difícil al aprender a programar, es tenerse paciencia a uno mismo. ;)

---

MCTS - MCP - MST - New Technologies Evangelist

Answer 2

Hola muchas gracias por responder, la verad soy nuevo y no estoy muy familiarizado con la terminologia, me parece es vb6.

ahora ya se que el error era If TextBox1.Text = "" Or TextBox2.Text = "" Or TextBox3.Text Then
 me faltaba en el textbox3.text=""

ahora el problema es este

me marca no se pude crear el componente active x