Newsgroup: it.comp.lang.visual-basic
Titolo: ANTONIO P: ho bisgno del tuo aiuto, grazie :)

Ma dimmi tu se mo per cercare uno devo mettere un annuncio. Vabbè, basta
che il fine giustifica il mezzo :))
Veniamo a noi...mi sono documentato
sul fatto ftp, ho capito come usare due connessioni e ho letto un po di
robbetta. Il mio codice ora sembra andare, non mi becco più l' errore di
prima, anzi, mi ritorna un codice di risposta positiva, un messaggio di
avvenuto trasferimento, ma quando faccio LIST tutto va bene ma non vedo
niente.
Ieri (mi sembra) ho postato un messaggio, non so se l' hai letto,
ma per favore non mi abbandonare proprio ora!! (hihihi) Ti incollo la parte
saliente
Di seguito incollo il mio codice. Quello che sono riuscito a fare
io è collegarmi ad un server ftp, eseguire tutte le palle di USER, PASS e
PORT, lanciare il comando LIST, beccarmi come ritorno non più l' errore 425
ma un bel:
150 Opening ASCII mode data connection for /bin/ls.
226
Transfer complete.
Fin qui va tutto bene bene ma...l' unico problema è
che pur avendo tutti ritorni positivi, in realtà non vedo una mazza. Questo
è il mio codice:
===========================================================================
Option Explicit
Private Sub Command1_Click()
    With Winsock1
.LocalPort = 0
 
        .RemotePort = 21
        .RemoteHost
="192.168.0.1"
        .Connect
    End With
 
    With Winsock2
.LocalPort = 1100
 
        .Listen
    End With
End Sub
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
    Dim
strMessaggioRicevuto As String
 
    Winsock1.GetData
strMessaggioRicevuto, vbString
 
    sbGetCodiceRisposta
strMessaggioRicevuto
End Sub
Private Sub
Winsock2_ConnectionRequest(ByVal requestID As Long)
    If Winsock2.State
<> sckClosed Then Winsock2.Close
 
    Winsock2.Accept requestID
End
Sub
Private Sub Winsock2_DataArrival(ByVal bytesTotal As Long)
    Dim
strMessaggioRicevuto As String
 
    Winsock1.GetData
strMessaggioRicevuto, vbString
 
    sbGetCodiceRisposta
strMessaggioRicevuto
End Sub
Private Sub sbGetCodiceRisposta(ByVal
strResponse As String)
    Dim intCodiceRisposta As Integer
    Dim
strSend As String
 
    If strResponse = vbNullString Then Exit Sub
MsgBox strResponse
 
    intCodiceRisposta = CInt(Left$(strResponse,
3))
    Select Case intCodiceRisposta
        Case 150, 125
'msgbox "ok"
        Case 200
            Winsock1.SendData "LIST" &
vbCrLf
        Case 220
            Winsock1.SendData "USER skunk" &
vbCrLf
        Case 221
            MsgBox strResponse
        Case 226
Winsock2.Close
        Case 230
            Winsock1.SendData "PWD" &
vbCrLf
        Case 231
            'MsgBox "ok"
        Case 331
Winsock1.SendData "PASS skunk01" & vbCrLf
        Case 257
strSend = "PORT " & Replace(Winsock1.LocalIP, ".", ",")
strSend = strSend & "," & 1100 \ 256 & "," & (1100 Mod 256)
strSend = strSend & vbCrLf
 
            Winsock1.SendData
strSend
        Case Else
            MsgBox "errore " &
intCodiceRisposta
    End Select
End Sub
===========================================================================
Per quale stramaledetto motivo, non vedo la lista dei files e delle
directory, anche se il server mi manda un messaggio prima positivo e poi
addirittura di trasferimento avvenuto??
Dimmi tu, che sembri conoscere la
materia più di me...tra le latre cose, ho scaricato un progettino dalla
rete che penosamente è morto al primo avvio...
Grazie ancora per la
disponibilità.
Saluti...
--------------------------------
Inviato via 
http://usenet.iol.it

guarda che non è bello fare messaggi solo per una persona in particolare,
anche eprchè c'è altra gente che conosce l'argomento ..:))
e poi  consigli sul come fare te li ho dati ora devi darti una mossa tu .
Non ho tempo di farti il programma gia sono nelle grane per il mio :)
ciao
--
-------
sito: 
www.dadev.it
ultime: Ocx per irc testi freeware
-------

Non ho tempo di farti il programma gia sono nelle grane per il mio :)
Concorso al 100% con quanto hai detto, però se avessi usato un indirizzo e-mail valido, magari skunk
ti avrebbe contattato privatamente... Poi avresti deciso tu se rispondergli o meno, a seconda del
tempo e della voglia, questo non mi riguarda, però almeno così si evitano messaggi di questo tipo...
E' solo un consiglio comunque...
Ciao,
Moreno
#sirri#@#
morenosoft.com#
(togliete "#" dall'indirizzo)
Moreno Sirri VB Site - 
http://www.msvbsite.net
---------------------------------------------------------------------------
Le risposte alle tue domande le trovi sul Sito Comune di questo NewsGroup:
 
http://www.it-lang-vb.net
---------------------------------------------------------------------------

 tempo e della voglia, questo non mi riguarda, perň almeno cosě si evitano
messaggi di questo tipo.
Ma perchč scusa la firma non ti dice proprio nulla ? :))
avendo un sito con proprio dominio non ci vuole molto  a capire l'indirizzo
email.
Cmq non metto la mia e-mail giusta perchč non sempre si trovano persone che
si comportano correttamente ,mi riferisco a spammer,etc..(chiaramente non a
shunk che ha solo posto una domanda)


Ma perchè scusa la firma non ti dice proprio nulla ? :))
ops, come non detto... :-P


l'indirizzo email.
Genio...questa mattina il tuo sito era irrangiungibile...sapevo dove
prendere la tua mail, se il tuo server fosse stato su :)))
E poi non ti ho
chiesto di farmi nessuno codice, perchè ho postato tutto il mio, dovevi
solo dare un occhio, non mi sembra di aver preteso una risposta immediata.
Bhè mi auguro però che qualcuno abbia del tempo per fare il tuo di codice
visto che in un tuo programma devi memorizzare il livello di
visualizzazione dei vari controlli(zorder). :)))
Grazie comunque,
saluti...


 visualizzazione dei vari controlli(zorder). :)))
non ho capito dove vuoi arrivare con questa allusione ma va bene uguale :)
--
-------
sito: 
www.dadev.it
ultime: Ocx per irc testi freeware
-------
non ho capito dove vuoi arrivare con questa allusione ma va bene uguale :)
--
-------
sito: 
www.dadev.it
ultime: Ocx per irc testi freeware
-------