[Resolvido] Comunicar entre dois pc

[Tiago Simões Marques]

Boas, tou aqui com um problema que não consigo resolver.

Preciso de fazer um programa que envie dados para outro programa que está noutro computador na rede.

Basicamente pretendo num computador dizer: "Tás ai?" e o outro computador dizer: "Tou"!!

Alguma ideia como fazer isto??

Será possível??

Cumprimentos,

Edited August 7, 2012 at 10:02 PM by Tiago Simões Marques

[Tiago Simões Marques]

Bem já encontrei a solução.

Vou deixar aqui o código para alguem que precise

Código Servidor:

Imports System.Net.Sockets
Imports System.Threading
Imports System.IO
Public Class Form1
Dim Listener As New TcpListener(65535)
Dim Client As New TcpClient
Dim Message As String = ""
Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
Dim ListThread As New Thread(New ThreadStart(AddressOf Listening)) 'Creates the thread
ListThread.Start() 'Starts the thread
End Sub
Private Sub Listening()
Listener.Start()
End Sub
Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
If Listener.Pending = True Then
Message = ""
Client = Listener.AcceptTcpClient()
Dim Reader As New StreamReader(Client.GetStream())
While Reader.Peek > -1
Message = Message + Convert.ToChar(Reader.Read()).ToString
End While
ListBox1.Items.Add("Cliente: " & Message)
End If
End Sub
Private Sub Form1_FormClosing(sender As System.Object, e As System.Windows.Forms.FormClosingEventArgs) Handles MyBase.FormClosing
Listener.Stop()
End Sub
End Class

Código Cliente

Imports System.Net.Sockets
Imports System.Threading
Imports System.IO
Public Class Form1
Dim Listener As New TcpListener(65535)
Dim Client As New TcpClient
Dim Message As String = ""
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
EnviaConexao("A Joana entrou")
End Sub
Sub EnviaConexao(ByVal mensagem As String)
Client = New TcpClient("10.0.0.21", 65535)

Dim Writer As New StreamWriter(Client.GetStream())

Writer.Write(mensagem)

Writer.Flush()
End Sub

Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
EnviaConexao("O Manuel Entrou")
End Sub

Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click
EnviaConexao("A Joana Saiu")

End Sub

Private Sub Button4_Click(sender As System.Object, e As System.EventArgs) Handles Button4.Click
EnviaConexao("O Manuel Saiu")
End Sub
End Class

Edited August 8, 2012 at 09:07 AM by Caça
GeSHi