Thread obsoleto Guida Creare Script Retro.... Un Dosser diciamo

Stato
Discussione chiusa ad ulteriori risposte.
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
 
C.. io o le source di netdevil e a la funzione port intaser ma sono da un ora che succeda qualcosa e non si e mosso di mezzo mm :S
 
wait
ma il programma di reatino usa il comando "ping" del prompt? (non ho voglia di aprirlo)
altrimenti è 100 volte + facile
 
wait
ma il programma di reatino usa il comando "ping" del prompt? (non ho voglia di aprirlo)
altrimenti è 100 volte + facile

Si usa il comando ping del prompt, e se puoi postaci le source :soso:
PS: Anche se io quando Dosso apro il prompt e faccio direttamente da lì
 
Questo lo so ma e il seguito che mi ferma ... Comunque dovrebbe essere così mi sembra

Codice:
Perfavore, Entra oppure Registrati per vedere i codici!

Poi dovrebbe venire la source per inserire IP retro :emoji_confused:
 
Stato
Discussione chiusa ad ulteriori risposte.