visual basic Como Criar um chat - Atualizado [ Winsock ]

[[N]ARUTO_ 92]

Primeiramente baixe esse instalador [ ele instala as dll necessaria ] - > http://www.mediafire.com/download/y36ypta04qd2wr9/WinSock.exe

*depois de ter instalado os programa necessario vamos para o tutorial

 

Agora crie um projeto com :

2 Label

2 TextBox

1 Button

* Label 1 = My IP

* Label 2 = IP do Friend

* Button 1 = Conectar '

deixe seu projeto assim :

[spoiler=Projeto]

 

 

agora crie outra form com nome de Chat ou outro nome mesmo .

Coloque

2 TextBox

1 Button

1 Timer

* Textbox 1 é o que recebe as mensagem

* Textbox 2 é aonde escreve as mensagem

* Button 1 é o que manda as mensagem [ avá ]

* Timer 1 deixe ele ativado com interval de 100

[spoiler="Print da form 2 [ chat ]"]

 

Agora vai os codigos ☺

 

*Na form 1 de 2 clique em cima e apague tudo e cola esse codigo

Public Class Form1

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

Chat.meuip = TextBox1.Text

Chat.friendip = TextBox2.Text

Chat.Show()

Me.Hide()

End Sub

End Class

 

*Na form 2 [ Chat ] Coloque esse codigo

Imports System.IO

Imports System.Net.Sockets

'Tutorial by : [N]ARUTO <3

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(sender As Object, 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(sender As Object, 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(sender As Object, 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

 

* Download da Source :

http://www.mediafire.com/download/7kcm60sdxanhe2q/Chat.rar

* Scan da Source .rar :

https://www.virustotal.com/pt/file/3c1fe47ed0bfb1330b683c976914242401fe60e2e8a16eaf579a3e55b35b2934/analysis/1462743754/

 

* Caso der algum erro comente aqui em baixo :)

 

<3 = > [N]ARUTO

 

[iTzMofi 1]

-~ Olá, Naruto,obrigado pelo seu código, estou com uma pequena duvida, ambas as partes que forem utilizar esse Chat, tem que ter instaladas as Dll's ?

 

Um forte abraço!

[Likizao 2]

Obrigado! Vou dar uma olhada.

[[N]ARUTO_ 92]

-~ Olá, Naruto,obrigado pelo seu código, estou com uma pequena duvida, ambas as partes que forem utilizar esse Chat, tem que ter instaladas as Dll's ?

 

Um forte abraço!

Não !! :)

[iTzMofi 1]

Então, só eu terei que instalar a Dll para a criação do programa?

Ai o meu "parceiro" que for utilizar basta baixar o programa né!

 

Um forte abraço"

[[N]ARUTO_ 92]

Então, só eu terei que instalar a Dll para a criação do programa?

Ai o meu "parceiro" que for utilizar basta baixar o programa né!

 

Um forte abraço"

Exatamente !!