WinSock - K≤d pro WinSock
Poj∩me se rychle podφvat na k≤d pro budovßnφ jednoduch²ch komunikaΦnφch program∙ pomocφ komponenty WinSock. Tento k≤d je jen mal²m rozÜφ°enφm toho, co jme ji₧ d∞lali d°φve.
Otev°enφ
spojenφ
If Winsock1.State
<> sckClosed Then Winsock1.Close
Winsock1.RemotePort = 1008
Winsock1.RemoteHost = "127.0.0.1"
Winsock1.Connect
╚ekßnφ na spojenφ
Do Until Winsock1.State = sckConnected
DoEvents: DoEvents: DoEvents: DoEvents
If Winsock1.State = sckError Then
MsgBox "Spojenφ se nepoda°ilo navßzat !!!"
Exit Sub
End If
Loop
Naslouchßnφ
komunikaci
Winsock1.LocalPort
= 1008
Winsock1.Listen
Akceptovßnφ p°φchozφho
po₧adavku na spojenφ
Private Sub
Winsock1_ConnectionRequest(ByVal requestID As Long)
If Winsock1.State <> sckClosed Then Winsock1.Close
Winsock1.Accept requestID
End Sub
Odeslßnφ dat
Winsock1.SendData
("N∞jakß data")
Obdr₧enφ dat
Private
Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim strIncoming As String
Winsock1.GetData strIncoming
x = strIncoming
End Sub