Ir ao conteúdo
  • Cadastre-se

Outro Visual Basic - Criando um Chat


Posts recomendados

Estou criando um chat em Visual Basic e gostaria de adicionar algumas coisas

1 - Um nome de usuário que aparece ao lado da mensagem que enviou.

2 - Identificação de IP pelo nome de usuário com sistema de registro

 

Segue o código:

 


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_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
        If e.KeyCode = Keys.Enter Then

            client = New TcpClient(friendip, 6060)
            Dim sw As New StreamWriter(client.GetStream())
            sw.Write(TextBox2.Text)
            sw.Flush()
            TextBox1.AppendText(TextBox2.Text + vbNewLine)

            TextBox2.Clear()

        End If
    End Sub

    Private Sub Chat_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load
        Try
            listener.Start()
        Catch ex As Exception
            MessageBox.Show("Error ao iniciar o servidor!", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try
    End Sub

    Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click

        client = New TcpClient(friendip, 6060)
        Dim sw As New StreamWriter(client.GetStream())
        sw.Write(TextBox2.Text)
        sw.Flush()
        TextBox1.AppendText(TextBox2.Text + vbNewLine)

        TextBox2.Clear()

    End Sub

    Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As 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

 

Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisa ser um usuário para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar agora

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×
×
  • Criar novo...

minicurso-montagem-popup.jpg

MINICURSO GRÁTIS!

Como ganhar dinheiro montando computadores!

CLIQUE AQUI E INSCREVA-SE AGORA MESMO!