E' un po' difficile da spiegare a parole,comunque:
Per utilizzo matrice di winsock :
praticamente dovresti mettere l'index impostato a 0 ad un controllo winsock a caso,e tutti gli altri li cancelli.
Poi all'avvio dell'applicazione usi:
for i=1 to 3 'qua metti il numero di winsock che vuoi
'creare oltre a quello con indice 0
Load winsock(i)
next i
Ora devi mettere tutti i codici degli eventi dei winsock precedenti nei rispettivi del nuovo,e sostituire ogni winsock1 con winsock(1) e così via...
così dal codice puoi creare e scaricare(con Unload)matrici di oggetti utilizzabili da subito.
Tutto con un solo winsock
Dopo aver ricevuto le istruzioni con "winsock.GetData DatiRicevuti" devi semplicemente interpretarle così:
if If InStr(1, DatiRicevuti, "File:", vbTextCompare) <> 0 And Mid$(DatiRicevuti, 1, 6) = "File:" Then
'Questa istruzione verifica se è presente la
'stringa chiamata "File:" e quindi capisco ad 'esempio che il server vuole inviarmi un file(e 'quindi ci metti le istruzioni che dovrebbe fare 'in caso l'istruzione è vera),e continui ad 'interpretare le istruzioni sostituendo al posto 'delle stringhe "File:" nel blocco If altre 'stringhe che interpreterai a modo tuo.
'Istruzioni...
end if
capito?
Ultima modifica effettuata da Hacker il 02/03/2007 alle 15:51 |