Usuario
Como hacer un chat con VB?

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
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
-
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
- Editado Misael Landero miércoles, 15 de octubre de 2014 22:33