bonjour
j'utilise le code suivant pour envoyer des fichier sur mon site automatiquement:ce qui m'interesse spcialement c'est cette ligne:
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 SubTout 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
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2 HwndConnect = InternetConnect(HwndOpen, "<ftp>", <port>, _ "<username>", "<password>", 1, 0, 0)
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
Partager