Chat Remota

11-11-2011 05:42 PM

Chat in remoto! Tongue

attraverso ip della persona con cui volete chattare, sarà possibile scambiare messaggi grazie al mio programma Tongue

beh, che devo dire, fatene buon uso! ;D

il download sarà disponibile tra poco

@[Mazitto] Mi serve tuo aiuto Tongue

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! Tongue

Quella non la metto