Torna al Thread
Imports System
Imports System.Net.Sockets
Imports System.Net
Imports System.Text
Imports System.Threading
Public Class ClassConnect
'-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
' NO ERORRI RAM
'-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
Public port As UInteger
Public clientgen As New Socket(AddressFamily.InterNetwork, SocketType.Stream, ProtocolType.Tcp)
Public Evento As New ManualResetEvent(False)
Dim p As New AsyncCallback(AddressOf accetta)
Dim connNumber As Integer = 1
Public Sub accetta(ByVal ar As IAsyncResult)
Dim ncon As Socket = ar.AsyncState.endAccept(ar)
Dim hello As Byte() = System.Text.Encoding.ASCII.GetBytes("hello connection " & connNumber & vbCrLf)
ncon.Send(hello)
connNumber += 1
clientgen.BeginAccept(p, clientgen)
End Sub
Public Sub parti()
Try
clientgen.Bind(New IPEndPoint(IPAddress.Parse("0.0.0.0"), port))
clientgen.Listen(2000)
clientgen.BeginAccept(p, clientgen)
Console.WriteLine("Start To Listen on port: " & port)
Console.ReadLine()
Catch
Console.WriteLine("Failed Listen on port: " & port)
End Try
End Sub
End Class