Discussion :

[Tierisa]

bonjour

j'utilise le code suivant pour envoyer des fichier sur mon site automatiquement:

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
Dim HwndConnect As Long 
Dim HwndOpen As Long 
'Ouvre internet 
HwndOpen = InternetOpen("SiteWeb", 0, vbNullString, vbNullString, 0) 
'Connection au site ftp 
HwndConnect = InternetConnect(HwndOpen, "<ftp>", <port>, _
  "<username>", "<password>", 1, 0, 0) 
'positionnement du curseur dans le répertoire 
FtpSetCurrentDirectory HwndConnect, "page_web/documents" 
 'Téléchargement de test.txt 
FtpGetFile HwndConnect, "test.txt", "C:\WINDOWS\Bureau\test.txt", _
  False, 0, &H0, 0
 
FtpPutFile HwndConnect, "C:\windows\bureau\test.txt", "shwin.txt", &H0, 0 
'Envoi du fichier test.txt et renomme en shwin.txt un coup rend sur le serveur 
 
InternetCloseHandle HwndConnect 'Ferme la connection 
InternetCloseHandle HwndOpen 'Ferme internet 
End Sub

ce qui m'interesse spcialement c'est cette ligne:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
HwndConnect = InternetConnect(HwndOpen, "<ftp>", <port>, _
  "<username>", "<password>", 1, 0, 0)

Tout marchait bien jusqu'à présent, mais mon malheur fait que je suis chez free et je ne sais si vous êtes au courant mais il y a de graves pbs de debit chez eux actuelllement. En secours ils nous disent de passer par leur proxy pour la connection soit: proxy.free.fr port:3128

A la place de <port> dans le code j'ai: INTERNET_DEFAULT_FTP_PORT
mais que faut-il mettre SVP maintenant pour passer par leur proxy?
merci d'avance

[marot_r]

En cherchant sur le meme sujet j'ai trouve ceci, ca t'aidera peut-etre.

http://www.tek-tips.com/faqs.cfm?fid=5904
http://sunsite.iisc.ernet.in/virlib/activex/latenight/ch4.htm

A+

[Tierisa]

pas évident. je pense avoir compris où l'on rentre le nom du proxy mais il faut bien rentrer le n° de port mais je ne sais pas où encore. je vais faire des essais. Je suis malgré tout preneur de quelques explications supplémentaires si vous pouvez.
merci

[Tierisa]

je galère comme un fou, j'ai mis ça:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
HwndOpen = InternetOpen("mon site.com", 0, "proxy.free.fr", "proxy.free.fr", 0) 
HwndConnect = InternetConnect(HwndOpen, "ftp.monsite.com", 3128, "id", "passe", 1, 0, 0)

mais ça ne fonctionne pas.
pourtant le nom du proxy est: proxy.free.fr
port: 3128

si vous pouviez m'aider. merci.

[Tierisa]

personne? je galere franchement vous savez.