none
Como hacer un chat con VB? RRS feed

  • Pregunta

  • 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

    miércoles, 15 de octubre de 2014 19:01

Todas las respuestas

  • 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

    miércoles, 15 de octubre de 2014 21:09
  • 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

    miércoles, 15 de octubre de 2014 21:24