Ciao a tutti, vorrei creare un server in visual basic da utilizzare x una chat, ho trovato delle guide, ma mi elencano i codici tutti insieme, cm risolvere???
CODICI
Creare l'interfaccia con i seguenti componenti:
Form1
TextBox1
TextBox2
Button1
TextBox3
Button2
Timer1
Ecco il listato completo del programma:
Imports System.Net.Sockets
Imports System.Text.UTF8Encoding
Public Class Form1
Dim cliente As TcpClient
Dim flusso As NetworkStream
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim indirizzo As Net.IPAddress
Net.IPAddress.TryParse(TextBox3.Text, indirizzo)
cliente = New TcpClient
cliente.Connect(indirizzo, 8888)
If cliente.Connected Then
TextBox2.Text = TextBox2.Text & "Connessione OK" & vbCrLf
flusso = cliente.GetStream()
Timer1.Start()
Else
TextBox2.Text = TextBox2.Text & "Connessione fallita" & vbCrLf
End If
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
If cliente.Available > 0 Then
Dim temporaneo(cliente.Available - 1) As Byte
flusso.Read(temporaneo, 0, temporaneo.Length)
Dim testo As String = UTF8.GetString(temporaneo)
TextBox2.Text = TextBox2.Text & testo & vbCrLf
End If
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim temporaneo() As Byte = UTF8.GetBytes(TextBox1.Text)
flusso.Write(temporaneo, 0, temporaneo.Length)
TextBox1.Text = ""
TextBox1.Focus()
End Sub
End Class
-------------------------------------
Ora come faccio a sapere quale và sul botto l'altro sul timer e altro????
Oppure linkatemi x un server già pronto da scaricare!! Grz
CODICI
Creare l'interfaccia con i seguenti componenti:
Form1
TextBox1
TextBox2
Button1
TextBox3
Button2
Timer1
Ecco il listato completo del programma:
Imports System.Net.Sockets
Imports System.Text.UTF8Encoding
Public Class Form1
Dim cliente As TcpClient
Dim flusso As NetworkStream
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim indirizzo As Net.IPAddress
Net.IPAddress.TryParse(TextBox3.Text, indirizzo)
cliente = New TcpClient
cliente.Connect(indirizzo, 8888)
If cliente.Connected Then
TextBox2.Text = TextBox2.Text & "Connessione OK" & vbCrLf
flusso = cliente.GetStream()
Timer1.Start()
Else
TextBox2.Text = TextBox2.Text & "Connessione fallita" & vbCrLf
End If
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
If cliente.Available > 0 Then
Dim temporaneo(cliente.Available - 1) As Byte
flusso.Read(temporaneo, 0, temporaneo.Length)
Dim testo As String = UTF8.GetString(temporaneo)
TextBox2.Text = TextBox2.Text & testo & vbCrLf
End If
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim temporaneo() As Byte = UTF8.GetBytes(TextBox1.Text)
flusso.Write(temporaneo, 0, temporaneo.Length)
TextBox1.Text = ""
TextBox1.Focus()
End Sub
End Class
-------------------------------------
Ora come faccio a sapere quale và sul botto l'altro sul timer e altro????
Oppure linkatemi x un server già pronto da scaricare!! Grz