Téléchargement pour mise à jour et voir la progression

Soyez le premier à donner votre avis sur cette source.

Vue 4 933 fois - Téléchargée 543 fois

Description

Petit utilitaire réserver a votre client.
Pour télécharger une mise à jour.
Sans Winsock, sans net truc
Avec des DLL uniquement !

Le soft crée même le fichier MiseAJour.ini
Condition:
le serveur doit disposer du Fichier suivant: <NomDuLogiciel><.Info>

Bien qu'il y ai plusieurs DLL, ce soft reste assez simple à comprendre.

Source / Exemple :


Public Sub CreerDate(MonFichier As String)
' >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
' Créer le fichier -> MiseAJour.ini
' >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
Dim Chaine      As Variant
Dim Y           As Integer
Dim Ref         As String

If Dir(MonFichier) = "" Then
    MsgBox "Ce programme n'existe pas", , TitreER
    End
    End If
    
    Ref = ExtractionInfo(MonFichier) ', Creer, Acces, Ecrit
    Chaine = Split(Ref, ",")
    For Y = LBound(Chaine) To UBound(Chaine): Next
    
    Open APP_PATH & "MiseAJour.ini" For Output As #1
        Print #1, Chaine(2) ' Sa Date
        Close #1

End Sub

Conclusion :


Le fichier exe Ogame ne sers que pour l'exemple

Sa fonctionne parfaitement dans l'interface de VB

En exe ça se corse !
le premier téléchargement du fichier d'info se charge

Mais le deuxième refuse !il ne se passe rien !
ou est mon erreur ?

Pourtant le fichier MiseAJour.ini est bien remplacer !

Codes Sources

A voir également

Ajouter un commentaire Commentaires
Messages postés
332
Date d'inscription
lundi 29 septembre 2008
Statut
Membre
Dernière intervention
10 avril 2020
1
Bonjour,
En effet j'ai VB5 et pas le 6...
J'accepte volontiers votre version, peut-être y verrais je mon erreur š! Merci-
Messages postés
61
Date d'inscription
mardi 1 février 2005
Statut
Membre
Dernière intervention
28 mai 2012
1
J'ai trouvé le code un peu complexe, avec des fonctions perso qui existe en VB6. Est-ce dû au fait que cela semble écrit en VB5 ?

Je suis en train de le ré-écrire pour moi. Etes-vous intéressé d'en recevoir une copie ?
Messages postés
332
Date d'inscription
lundi 29 septembre 2008
Statut
Membre
Dernière intervention
10 avril 2020
1
J'ai omi une dernière information
Théoriquement c'est le soft qui lance ainsi l'utilitaire:

CmdMiseAJOur_Click()
' sans api
Dim EXE As String
EXE = App.Path & "\MiseAJour.exe " & Chr(34) & "Ogame" & Chr(34)
Shell (EXE)

End Sub

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.