BorderGame

Chat in remoto!
attraverso ip della persona con cui volete chattare, sarà possibile scambiare messaggi grazie al mio programma
beh, che devo dire, fatene buon uso! ;D

il download sarà disponibile tra poco

@[Mazitto] Mi serve tuo aiuto

Lascio commentare a voi.

Source file Server, ovvero file che riceve messaggio.

Citazione:Imports System.IO
Imports System.Net.Sockets
Module Module1

Sub Main()
Dim ascolta As New TcpListener(8585)
ascolta.Start()
Dim flusso As Socket = ascolta.AcceptSocket()
Dim ricevibuffer(255) As Byte
flusso.Receive(ricevibuffer, ricevibuffer.Length, SocketFlags.None)
Dim frase As String = System.Text.Encoding.ASCII.GetString(ricevibuffer, 0, ricevibuffer.Length).Trim(Microsoft.VisualBasic.ChrW(0))
While "frase" <> "fine"
Console.WriteLine(frase)
flusso.Receive(ricevibuffer, ricevibuffer.Length, SocketFlags.None)
frase = System.Text.Encoding.ASCII.GetString(ricevibuffer, 0, ricevibuffer.Length).Trim(Microsoft.VisualBasic.ChrW(0))
End While
ascolta.Stop()
End Sub

End Module

Source file Client, ovvero file che invia il messaggio.

Citazione:Imports System.IO
Imports System.Net.Sockets
Public Class Form1
Dim ascolto As New TcpClient("ip della persona con cui vuoi chattare", 8585)
Dim legge As Stream = ascolto.getstream
Dim frase As String
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
frase = TextBox1.Text
ascolto.SendBufferSize = 256
Dim inviabuffer As Byte() = System.Text.Encoding.ASCII.GetBytes(frase)
legge.Write(inviabuffer, 0, inviabuffer.Length)
End Sub

I due source non hanno la funzione registra cronologia!
Quella non la metto

ti stimo +5 domani oggi li ho finiti

Si x dare -5 a mè comunque ti darò un +3 appena ai finito il lavoro

Bel lavoro
Se vuoi posso fare da tester

SI, ma a causa motivi personali, chiudo progetto.. edito la chat sarà separata

@[SCL] Creazione Molto Utile Molto Bravo

almeno non bisogna installare applicazioni o altro..
presto pubblico il source

Ma come mi connetto a l' ip????

risolto