V1.5 : inet et barre de progression
Contenu du snippet
Pas mal de monde cherche ca...
J'éspère que sa servira à bcp de monde !
V 1.5 :
- Etat de la connection Inet
- Téléchargement en Inet avec une barre de progression
- Test l'existance du fichier ( v1.5 )
Il vous faut :
- 1 Protocole Inet -> Inet1
- 1 CommandButton -> Command1
- 1 Label -> etat
- 1 ProgressBar -> ProgressBar1
Prévu :
- V 2.0 -> Vitesse de Dl + Temps restant de DL + Detection de la taille automatique !
- V 3.0 -> Resuming !!! Reprendre le dl la ou il s'est arreter !
- V 4.0 -> A vous de me dire :)
Merci a vous tous et à cette communtée !
J'éspère que sa servira à bcp de monde !
V 1.5 :
- Etat de la connection Inet
- Téléchargement en Inet avec une barre de progression
- Test l'existance du fichier ( v1.5 )
Il vous faut :
- 1 Protocole Inet -> Inet1
- 1 CommandButton -> Command1
- 1 Label -> etat
- 1 ProgressBar -> ProgressBar1
Prévu :
- V 2.0 -> Vitesse de Dl + Temps restant de DL + Detection de la taille automatique !
- V 3.0 -> Resuming !!! Reprendre le dl la ou il s'est arreter !
- V 4.0 -> A vous de me dire :)
Source / Exemple :
Dim sizetotal As String
Dim sizedl As String
Dim filelocal As String
Dim fileserver As String
Public Function Fichier_Existe(Path As String) As Boolean
If Dir(Path) = "" Then
Fichier_Existe = False
Else
Fichier_Existe = True
End If
End Function
Private Sub Command1_Click()
sizetotal = "81536858" ' Taille du fichier sur le ftp ( en octet )
ProgressBar1.Max = "100"
ProgressBar1.min = "0"
filelocal = "C:\FocomDemo.exe" 'Adresse du fichier sur le DD
fileserver = "demos/pc/FocomDemo.exe" 'Adresse du fichier sur le FTP
With Inet1
.URL = "ftp://ftp.lucasarts.com"
.UserName = "anonymous"
.Password = "anonymous"
.Execute , "GET " & fileserver & " " & filelocal
End With
Do While Inet1.StillExecuting
If Fichier_Existe(filelocal) = True Then
sizedl = FileLen(filelocal)
ProgressBar1.Value = (sizedl * ProgressBar1.Max) / sizetotal
Else
ProgressBar1.Value = "0"
End If
DoEvents
Loop
End Sub
Private Sub Inet1_StateChanged(ByVal State As Integer)
Select Case State
Case 1
etat.Caption = "Recherche l' IP de l'ordinateur hôte."
Case 2
etat.Caption = "IP de l'ordinateur hôte spécifié."
Case 3
etat.Caption = "En cours de connexion avec l'ordinateur hôte."
Case 4
etat.Caption = "La connexion avec l'ordinateur hôte est réussie."
Case 5
etat.Caption = "Envoie une demande à l'ordinateur hôte."
Case 6
etat.Caption = "La demande a été envoyé avec succès."
Case 7
etat.Caption = "Reçoit une réponse de l'ordinateur hôte."
Case 8
etat.Caption = "Contacte avec l'ordinateur hôte réussi."
Case 9
etat.Caption = "En cours de déconnexion avec l'ordinateur hôte."
Case 10
etat.Caption = "La déconnexion avec l'ordinateur hôte est réussie."
End Select
If State = 11 Then
MsgBox "Erreur"
End If
If State = 12 Then
MsgBox "Transfert : OK"
End If
End Sub
Conclusion :
Merci a vous tous et à cette communtée !