[VB6] Salvataggio porte FTP restituite da comando LITERAL

[Tuning]

Ciao a tutti,

cerco di spiegarmi, sto realizzando un client FXP in VB6 ed ho bisogno di recuperare le porte assegnate alla connessione FTP e restituite dopo il comando LITERAL PASV

per ora mi connetto ma non so come salvare in una variabile ciò che mi viene restituito dal comando LITERAL

per capirci devo recuperare ciò che è tra parentesi

ftp> literal pasv
227 Entering Passive Mode (192,168,1,4,14,112)

che mi suggerite?

Grazie

[alka]

Questa non è la sezione corretta per Visual Basic: sposto la discussione.

Era già stata spostata anche questa, quindi ti invito a fare più attenzione.

[oregon]

Ti connetti ... come? Con quale codice ?

[Tuning]

ciao,

mi connetto con INET

[oregon]

Originariamente inviato da Tuning
ciao,

mi connetto con INET

Mostrare il codice, no?

[Tuning]

Certo, ma è quello di esempio trovato su web

   Inet1.AccessType = icUseDefault
   Inet1.URL = "ftp.miosito.it"
   Inet1.UserName = ""
   Inet1.Password = ""
   Inet1.RequestTimeout = 40

da qui dovrei lanciare il comando per la modalità PASV e recuperare le porte di risposta del server di destinazione per assegnarle al server sorgente con "literal port xxxxx"

Grazie

[oregon]

Devi ricevere i dati tramite il metodo GetChunk all'interno dell'evento StateChanged del controllo Inet.

Esiste parecchia documentazione in giro ...

[Tuning]

grazie

[Tuning]

Aiuto!
questo il codice, ma mi restituisce sempre "Still Executing last request"

mi potete aiutare?

come avrete capito non sono sperto di VB e mi trovo a fare una cosa probabilmente più grande di me...

Private Sub Command1_Click()

'connessione primo server
   Inet1.AccessType = icUseDefault
   Inet1.URL = "ftp://ftp.xxx.it"
   Inet1.UserName = "xxxxx"
   Inet1.Password = "xxxxxxx"
   Inet1.RequestTimeout = 40
   
     
  'esecuzione
   Inet1.Execute , "literal pasv"



End Sub

Private Sub Inet1_StateChanged(ByVal State As Integer)
DoEvents
Do While Inet1.StillExecuting
vtData = Inet1.GetChunk(1024, icString)
DoEvents
strData = strData & vtData
Loop
End Sub

[oregon]

Ma dopo la Execute c'è altro?