RDJ`s Blogs

Dim ctr As Integer ‘counter of clients that connected
to server

Private Sub Form_Load()

Winsock1(0).Protocol = sckTCPProtocol

‘Winsock1(0).LocalPort = (135129 + 1) / 4 ‘ guest where the number came from =D

Winsock1(0).LocalPort = 33782

Winsock1(0).Listen

ctr = 0

End Sub

Private Sub Winsock1_Close(Index As Integer)

On Error
Resume Next

Dim i As
Integer

Dim temp As
String

temp =
"User " & Winsock1(Index).LocalIP & " Dropped.. Counter
= " & ctr - 1

i = 1

Unload
Winsock1(Index)

For i = 1
To ctr

Winsock1(i).SendData temp

Next

ctr = ctr -
1

End Sub

 

Private Sub Winsock1_ConnectionRequest(Index As
Integer, ByVal requestID As Long)

On Error
Resume Next

Dim
activeArray As Integer

Dim i As
Integer

Dim welcomeMsg
As String

ctr = ctr +
1 ‘user is now increase 1

welcomeMsg
= "Hello World ! Counter = " & ctr & vbCrLf

acriveArray
= ctr

For i = 0
To ctr

If
Winsock1(i).State = sckClosed Then

activeArray = i

End If

Next

Load
Winsock1(activeArray)

Winsock1(activeArray).LocalPort = 33782

Winsock1(activeArray).Accept (requestID)

Winsock1(activeArray).SendData welcomeMsg

End Sub

 

Private Sub Winsock1_DataArrival(Index As Integer,
ByVal bytesTotal As Long)

Dim temp As
String

Dim SEND As
String

Dim i As
Integer

i = 1

Winsock1(Index).GetData temp, vbString

SEND =
temp ‘ give SEND a value as same as the
value of temp

For i = 1
To ctr - 1

If i
<> Index Then Winsock1(i).SendData temp ‘ to prevent data resend to
itself

Next

End Sub