1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
|
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim ipAddr As System.Net.IPAddress
SocketServer = New Socket(AddressFamily.InterNetwork, SocketType.Stream, ProtocolType.Tcp)
ipAddr = IPAddress.Parse("127.0.0.1")
SocketServer.Bind(New IPEndPoint(ipAddr, 80))
SocketServer.Listen(1)
Me.SocketServer.BeginAccept(AddressOf connexionCallback, Me.SocketServer)
End Sub
Private Sub connexionCallback(ByVal asyncResult As IAsyncResult)
SocketServer = SocketServer.EndAccept(asyncResult)
Me.Label1.Text = "Le client est connecté"
End Sub |