• Home
 · 
• Internet/HTML
 · 
• __WINSOCK__ Transfer's A Connection request to an open socket. This means you can have 5 sockets co

__WINSOCK__ Transfer's A Connection request to an open socket. This means you can have 5 sockets co

__WINSOCK__ Transfer's A Connection request to an open socket. This means you can have 5 sockets connecting to one socket and they all get

API Declarations


'== ws
'== wsc
'== wsl
'in wsl and wsc put the index as 0
'so now they should be wsl(0) and wsc(0)
'make a command button named cmd1



Rate __WINSOCK__ Transfer's A Connection request to an open socket. This means you can have 5 sockets co

• 1
• 2
• 3
• 4
• 5

(3(3 Vote))

Dim a  As Long
a = wsc.UBound    'Gets the last index of the array
Load wsc(a + 1)   'loads another socket
wsc(a + 1).Connect "127.0.0.1", 15000      'connects to 127.0.0.1 (local)
End Sub

Private Sub Form_Load()
ws.Listen                          'sets the master socket to listen
End Sub                            'yet it never stops

Private Sub ws_ConnectionRequest(ByVal requestID As Long)
Dim a As Long
a = wsl.UBound         'Gets the last index of the array
Load wsl(a + 1)        'Loads another socket
wsl(a + 1).Accept requestID         'Acceptst the Connection Request onto 
End Sub                             'the new socket

Private Sub wsc_Connect(Index As Integer)
MsgBox "Socket " & Index & " Is Connected!"       'Tells you when its
End Sub                                           'connected!