TÉLÉCHARGER UN FICHIER SUR INTERNET TRES SIMPLEMENT EN VB.NET

Commentaire de hvb le 12/02/2003 12:49:58

mais... c t pas du vb6 ton projet? (c celui dont tu as mis la src nan?)

Commentaire de utopia le 13/02/2003 20:41:35

On peu je peut trouver Visual Basic.net ?

Merci a vous

Commentaire de gedsismik le 08/09/2003 22:45:42

Ca donne quoi en VB6 ?

Commentaire de hvb le 14/02/2005 12:21:19

"Ca donne quoi en VB6 ?"
un long code ecris par toi meme...

passer de vb6 à vb.net c'est tout simple, le contraire n'est pas toujours evident, voir parfois impossible.

Et winsock n'est pas du tout semblable au System.Net.WebClient

Commentaire de surfzoid le 25/09/2005 16:22:29

marche impacable
mais est il possible de definir une liste de fichier a partir d un rep http puis de telecharge la dite liste ?
10/10

Commentaire de surfzoid le 25/09/2005 20:13:20

Exacte et je viens de le finir, vraiment exelente ta function download
pour ceux que ca interesse voici le code que j ai rajouter pour liste qui me permet de maintenir mon soft a jour via http
        Dim reponse
        Dim telecharge
        Dim LinesFromFile, NextLine As String, FileNum As Integer

        Lblwaiting.Visible = True
        If Dir("cache\") <> "" Then Kill("cache\*.*")
        telecharge = download_file("http://" & serveurname & "/pointage-adi/updates/liste.txt", "cache\liste.txt")
        telecharge = download_file("http://" & serveurname & "/pointage-adi/updates/version.txt", "cache\version.txt")
        FileOpen(1, "cache\version.txt", OpenMode.Input)  ' Open file.
        FileOpen(2, "version.txt", OpenMode.Input)  ' Open file.
        reponse = MsgBox("La version " & LineInput(1) & " est dispo sur le seveur, vous utilisez la version " & LineInput(2) & " voulez vous faire une mise à jours ?", MsgBoxStyle.YesNo)
        If reponse = vbYes Then
            FileClose(1)
            FileOpen(1, "cache\liste.txt", OpenMode.Input)  ' Open file.
            logage.Visible = True
            Do Until EOF(1)
                NextLine = LineInput(1)
                System.Windows.Forms.Application.DoEvents()
                logage.Text = "Téléchargement en cours du fichier : " & NextLine
                'LinesFromFile = LinesFromFile & NextLine & Chr(13) & Chr(10)
                System.Windows.Forms.Application.DoEvents()
                telecharge = download_file("http://" & serveurname & "/pointage-adi/updates/" & NextLine, "cache\" & NextLine)
                'telecharge = LinesFromFile
                System.Windows.Forms.Application.DoEvents()
            Loop
        Else
            GoTo fintransfert
        End If

        reponse = MsgBox("Le téléchargement des fichiers est terminé,faire la mise à jours(Le logiciel vas être fermé)", MsgBoxStyle.YesNo)
        If reponse = vbYes Then
            Shell("cache\update.cmd", AppWinStyle.NormalFocus)
            End
        Else
            MsgBox("Pour proceder à une mise à jours ultérieure vous pouvez utiliser le fichier update.cmd qui se trouve dans le repertoire \cache\ de l application")
        End If

fintransfert:
        FileClose(1)
        FileClose(2)
        logage.Visible = False
        Lblwaiting.Visible = False
        SaveSetting(System.Reflection.Assembly.GetExecutingAssembly.GetName.Name, "options", "lastupdate", Today.DayOfYear)

Commentaire de betapoil le 11/02/2006 20:23:18

Bon code, trés sympa, j'ai repris celui de Surfzoid en ajoutant des controles d'erreurs importants :
Dim reponse
Dim telecharge
Dim LinesFromFile, NextLine As String, FileNum As Integer, Erreur as boolean = False

If Not (Directory.Exists("cache")) Then mkdir("cache")
If Not (File.Exists("version.txt")) Then Genere_Fichier_Version("version.txt")

Lblwaiting.Visible = True
try
   If Dir("cache\") <> "" Then Kill("cache\*.*")                 Catch e As Exception
   msgbox (e.ToString )
end try

If (download_file(serveurname & "/version.txt",  cache\version.txt")<>"") Then
    messagebox.Show ("Erreur de téléchargement du fichier version.txt")
    Erreur = True
    GoTo fintransfert
End If
        
FileOpen(1, "cache\version.txt", OpenMode.Input)  ' Open file.
FileOpen(2, "version.txt", OpenMode.Input)  ' Open file.
reponse = MsgBox("La version " & LineInput(1) & " est dispo sur le seveur, vous utilisez la version " & LineInput(2) & " voulez vous faire une mise à jours ?", MsgBoxStyle.YesNo)
        
If reponse = vbYes Then
    If (download_file(serveurname & "/liste.txt", "cache\liste.txt")<>"") Then
        messagebox.Show ("Erreur de téléchargement du fichier liste.txt")
Erreur = True
        GoTo fintransfert
    End If
    FileClose(1)
    FileOpen(1, "cache\liste.txt", OpenMode.Input)  ' Open file.
    logage.Visible = True
    Do Until EOF(1)
NextLine = LineInput(1)
        System.Windows.Forms.Application.DoEvents()
        logage.Text = "Téléchargement en cours du fichier : " & NextLine
        'LinesFromFile = LinesFromFile & NextLine & Chr(13) & Chr(10)
        System.Windows.Forms.Application.DoEvents()
        If (download_file(serveurname & NextLine, "cache\" & NextLine)<>"") Then
     messagebox.Show ("Erreur de téléchargement du fichier " & NextLine & "Mise à jour échouée.")
     Erreur = True
             GoTo fintransfert
        End If
        'telecharge = LinesFromFile
        System.Windows.Forms.Application.DoEvents()
     Loop
Else
     GoTo fintransfert
End If

reponse = MsgBox("Le téléchargement des fichiers est terminé, pour faire la mise à jour le logiciel vas être fermé, continuer ?", MsgBoxStyle.YesNo)
If reponse = vbYes Then
    If (File.Exists("cache\maj.cmd")) Then
        Shell("cache\maj.cmd", AppWinStyle.NormalFocus)
        End
    Else
        messagebox.Show ("Erreur : fichier maj.cmd introuvable !" & vbcrlf & vbcrlf & "Mise à jour échouée.")            
    End If
Else
    MsgBox("Pour proceder à une mise à jours ultérieure vous pouvez    utiliser le fichier update.cmd qui se trouve dans le repertoire \cache\ de l application")
End If

fintransfert:
    FileClose(1)
    FileClose(2)
    logage.Visible = False
    Lblwaiting.Visible = False
    Me.Close
    If not Erreur then                                   SaveSetting(System.Reflection.Assembly.GetExecutingAssembly.GetName.Name, "options", "lastupdate", Today.DayOfYear)

Commentaire de aporler le 15/02/2006 17:32:28

Pour la personne qui demande ou trouver vb.net
Ce rendre à http://msdn.microsoft.com/vstudio/express/vb/download/
Version d'essais de 30 Jours.

Commentaire de sousoulebarbu le 23/06/2006 15:27:34

Bonjour,
J'ai essayé d'utiliser cette fonction avec
"http://pelerin.lesagencestv.com/php/recherche_resultat/recherche_resultat.php?f_type_recherche=simple&f_jour=28-6-2006&f_chaine=4&f_debut_emission=0"
mais je n'obtiens pas la même page que lorsque j'ouvre l'url dans mon navigateur. Quelqu'un saurait-il expliquer ce problème?
    

Commentaire de sousoulebarbu le 23/06/2006 21:56:07

Je sais, je suis pas un newbie non plus...
Quand j'ouvre le fichier téléchargé avec notepad, j'obtiens un code source totallement différent de celui de la page lorsque je l'ouvre avec ie ou ff.
Essaye toi même, tu verra!

Commentaire de sousoulebarbu le 25/06/2006 21:19:50

En utilisant cette fonction, tu arrive à retomber sur
"Aucune émission ne correspond à votre recherche..."?????
C'est bizard que j'y arrive pas.
Pour les personnes qui ont ce problème, j'utilise maintenant la fonction:
    Private Declare Function URLDownloadToFile Lib "urlmon" Alias _
        "URLDownloadToFileA" (ByVal pCaller As Integer, ByVal szURL As String, _
        ByVal szFileName As String, ByVal dwReserved As Integer, _
        ByVal lpfnCB As Integer) As Integer

A utiliser comme ça: URLDownloadToFile(0,url, filename, 0, 0)
et tout fonctionne parfaitement

Commentaire de soldier8514 le 22/06/2008 16:12:28

ce code doit surement geler le programme pendant que ça télécharge , ça craint !