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
Copyright © dotNetHell.it 2002-2025
Running on Windows Server 2008 R2 Standard, SQL Server 2012 & ASP.NET 3.5