Téléchargement des données monde

[DeletedUser16575]

Bonjour,

Voilà, je suis en train de me développer un petit outils en vb2005.
J'ai voulu optimiser le chargement des données monde en mettant le téléchargement et la décompression du fichier dans mon programme.
Hors lors du téléchargement du fichier je me retrouve face à un message d'erreur:

Le serveur distant a retourné une erreur : (403) Interdit.

Voilà mon code, je ne comprends pas pourquoi cela ne marche pas.

Private Sub Download_FILE(ByVal Id_serveur As Integer, ByVal type_fichier As String) 'Declaration du sub
' adresse de la page ou du fichier à récuperer
Dim REMOTE_URL As String = "http://fr" & Id_serveur & ".grepolis.com/data/" & type_fichier & ".txt.gz"
'Dim F As Integer = FreeFile()
Dim WEB_CLIENT As New System.Net.WebClient() 'Création du controle client
MsgBox(REMOTE_URL)
Dim DNL_FILE As String = Application.StartupPath & "\" & type_fichier & ".txt.gz" 'Adresse de reception
'
Try
WEB_CLIENT.DownloadFile(REMOTE_URL, DNL_FILE) 'Téléchargement
MsgBox("ok")
Catch ex As Exception ' S'il y a une erreur alors
MsgBox(ex.Message) 'affichier l'erreur dans une Message Box
End Try
End Sub

Quelle est la différence avec un téléchargement manuel du fichier?

 

[DeletedUser]

et squoi le lien vers l'archive en question ?

 

[DeletedUser16575]

Ben c'est le lien qui est donnée dans le wiki:
http://frX.grepolis.com/data/players.txt.gz

Et j'ai vérifié en faisant aparaitre le chemin en msgbox.
Et j'ai bien:
13 a la place du X, et players en type de fichier.

Après je ne pense pas que c'est le lien qui pose probleme, car au début j'ai eu un probleme de lien, et le message d'erreur disait 'Non trouvé'
Alors que là il me dis 'Interdit'.
Je n'arrive pas à comprend la différence entre faire le téléchargement via un client web en tapant le lien et faire le téléchargement avec un programme en vb avec le même lien.

 

[DeletedUser12864]

J'ai un autre code en python qui marche très bien ...

 

[DeletedUser]

J'ai développé un truc en VB.net qui avait besoin des stats de grepolis, j'ai donc le code pour le telechargement :

Dim URL As String = "http://fr"http://fr" & numserv & ".grepolis.com/data/players.txt.gz" ' adresse de la page ou du fichier à récuperer

'Dim F As Integer = FreeFile()
Dim WEB_CLIENT As New System.Net.WebClient() 'Création du controle client

Dim DNL_FILE As String = "C:\temp" 'Adresse de reception

Try
WEB_CLIENT.DownloadFile(URL, DNL_FILE & "\players.txt.gz") 'Téléchargement
Catch ex As Exception ' S'il y a une erreur alors
MsgBox(ex.Message) 'affichier l'erreur dans une Message Box
End Try

Je crois qu'on a trouvé la même source sur internet
J'ai aussi celui pour décompresser l'archive si besoin

 

[DeletedUser]

Archivage de la section

 

[DeletedUser12864]

Bonjour,

Fermeture et archivage !

Bon jeu