CHAT VB.NET SEM IP?
Olá sou novo aqui procurei alguns post sobre o assunto, alguem teria algum modelo de um chat que não precise colocar ip? Um chat simples.
Obrigado
Obrigado
Caso não tenha um modelo, estou aqui tentando usar este:
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Chat.meuip = TextBox1.Text
Chat.friendip = TextBox2.Text
Chat.Show()
Me.Hide()
End Sub
End Class
===================================
Imports System.IO
Imports System.Net.Sockets
Public Class Chat
Public meuip As String
Public friendip As String
Dim listener As New TcpListener(6060)
Dim client As New TcpClient
Private Sub Chat_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Try
listener.Start()
Catch ex As Exception
MessageBox.Show([Ô]Erro ao iniciar o servidor![Ô], [Ô]Erro[Ô], MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If TextBox3.Text = [Ô][Ô] Then
MessageBox.Show([Ô]Erro! Coloque um NICK![Ô], [Ô]Erro[Ô], MessageBoxButtons.OK, MessageBoxIcon.Error)
Else
client = New TcpClient(friendip, 6060)
Dim sw As New StreamWriter(client.GetStream())
sw.Write(TextBox2.Text)
sw.Flush()
TextBox1.AppendText(TextBox3.Text + [Ô]: [Ô] + TextBox2.Text + vbNewLine)
TextBox2.Clear()
End If
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Dim mensagem As String = [Ô][Ô]
If listener.Pending = True Then
client = listener.AcceptTcpClient
Dim sr As New StreamReader(client.GetStream())
While sr.Peek > -1
mensagem &= Convert.ToChar(sr.Read()).ToString
End While
TextBox1.AppendText(mensagem + vbNewLine)
End If
End Sub
End Class
=============================
Porem, não para mim aparece o nome do outro usuário somente o meu e para o outro usuário a mesma coisa, só aparece a conversa sem nick, alguém tem uma solução?
Grato
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Chat.meuip = TextBox1.Text
Chat.friendip = TextBox2.Text
Chat.Show()
Me.Hide()
End Sub
End Class
===================================
Imports System.IO
Imports System.Net.Sockets
Public Class Chat
Public meuip As String
Public friendip As String
Dim listener As New TcpListener(6060)
Dim client As New TcpClient
Private Sub Chat_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Try
listener.Start()
Catch ex As Exception
MessageBox.Show([Ô]Erro ao iniciar o servidor![Ô], [Ô]Erro[Ô], MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If TextBox3.Text = [Ô][Ô] Then
MessageBox.Show([Ô]Erro! Coloque um NICK![Ô], [Ô]Erro[Ô], MessageBoxButtons.OK, MessageBoxIcon.Error)
Else
client = New TcpClient(friendip, 6060)
Dim sw As New StreamWriter(client.GetStream())
sw.Write(TextBox2.Text)
sw.Flush()
TextBox1.AppendText(TextBox3.Text + [Ô]: [Ô] + TextBox2.Text + vbNewLine)
TextBox2.Clear()
End If
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Dim mensagem As String = [Ô][Ô]
If listener.Pending = True Then
client = listener.AcceptTcpClient
Dim sr As New StreamReader(client.GetStream())
While sr.Peek > -1
mensagem &= Convert.ToChar(sr.Read()).ToString
End While
TextBox1.AppendText(mensagem + vbNewLine)
End If
End Sub
End Class
=============================
Porem, não para mim aparece o nome do outro usuário somente o meu e para o outro usuário a mesma coisa, só aparece a conversa sem nick, alguém tem uma solução?
Grato
Procure por Chat Socket IP VB.NET achara o que procura...
Eu procurei e muito, tentei diversos modelos e nenhum envia nem recebe mensagens quando se trata de rede externa eles só funcionam no meu pc mesmo kkk desculpe mas vim pedir ajuda pq realmente não achei depois de muito procurar muito seguir videos e montar horas em cima para nada..
Alguém tem algum modelo ou algum link para me passar?
vc quer usar chat interno ou internet ?
a próposito o tcplistener deveria funcionar
a próposito o tcplistener deveria funcionar
Quero chat para internet, e não para interna.
achei um exmplo no google editei e funcionou...
Parece simples e perfeito, pode me passar o link ou projeto?
Ninguém tem um projeto para me indicar algum site para fazer um chat de internet em vb.net?
o que eu tenho aqui esta com erro na hora que as pessoas entra e sai nao esta excluindo o socket da lista...
Tópico encerrado , respostas não são mais permitidas