am trying to make my connection work, please allow me to explain in this fresh project i am trying to load few k's of winsock and have them connect to my chat server to se how many connections it can handle please check my code tell me how to do it thanks.
please tell me how to fix this
Code:
Private Sub Form_Load()
Dim x As Integer
For x = 1 To "6000"
Load ws(x)
Next x
End SubCode:
Private Sub Command2_Click()
Dim x As Integer
For x = 0 To ws.Count - 1
ws(x).Connect serverip, port
Pause Text1.Text '''' pause set to 0.07
Label2.Caption = Label2.Caption + 1
Next x
End Sub