1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23
| Imports System.Net.Sockets
Public Class Form1
Dim buffer As [Byte]()
Private Client As New System.Net.Sockets.Socket(Net.Sockets.AddressFamily.InterNetwork, Net.Sockets.SocketType.Stream, Net.Sockets.ProtocolType.IP)
Private Sub BTNstartconnexion_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Me.Click
Client.Connect("127.0.0.1", 88)
End Sub
Private Sub connexion_acceptee(ByVal ar As System.IAsyncResult)
MsgBox("client : " & Client.Connected)
End Sub
Public Sub ReceiveMessage()
If Not (Me.Client Is Nothing) AndAlso Me.Client.Connected Then
Dim Octetsrecus As Int32 = Me.Client.Receive(buffer, 0, buffer.Length, SocketFlags.None)
MsgBox("result:", Octetsrecus)
End If
End Sub
End Class |
Partager