Bonjour J'ai suivi quelque tutos sur le net pour faire du ftp via winsock et mon code se bloque sur cette partie :

a savoir que le bloc de code suivant se trouve dans FTP_dataArrival , que il y'a 2 winsocks FTP et FTPUP ( je ne sais pas a quoi ça sert mais c'était dans un des tutos ) et que la variable coderecu est la valeur que renvoi le ftp

Je ne mets pas le debut de l'évennement car il contient mot de passe et cie et de tout façon tous ce qui est au dessus fonctionne ...

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
If coderecu = 227 Then
Label3.Caption = "connecté au ftp"
'''''''''''''''''''''''''''''''''''
'   Calcul du port de reception   '
'''''''''''''''''''''''''''''''''''
Dim Temp As Variant, FtpDataRemotePort As Variant
Temp = Split(txtrecu, ")")
            Temp = Split(Temp(0), "(")
            Temp = Split(Temp(1), ",")
            FtpDataRemotePort = CLng(Temp(4)) * 256 + CLng(Temp(5))
''''''''''''''''''''''''''''''
'       Fin du calcul        '
''''''''''''''''''''''''''''''
 
'on met le fichier dans une variable
Dim Buffer As Variant
Open "C:\heps.txt" For Binary Access Read Lock Read Write As #1
    Buffer = Input(LOF(1), #1)
    Close #1
 
FTPUP.Connect "Knight-Server.Ath.Cx", FtpDataRemotePort
 
 Label3.Caption = FtpDataRemotePort
 
FTP.SendData "STOR" & "fichier.exe"
 
 
If coderecu = 150 Then 'le serveur accepte la connection
FTPUP.SendData Buffer & vbCrLf
'Voila, le serveur recoit le fichier
 
  Label3.Caption = "Torrent Envoyé"
End If