1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79
|
Dim fs
Dim fichier
Dim monTab() As String
Dim JeuUrl() As String
Dim Index As Integer
Dim TabAdUrl() As String
Dim JeuIndex As String * 3
'Détection connection internet
If ConnexionInternetActive() = True Then
'Chargement interface
OptimiserTexteConnectionOnImage.Visible = True
OptimiserTexteConnectionOffImage.Visible = False
ConecTxt$ = "Vous êtes actuellement connecté à internet"
'suppression du fichier liste jeu si déja existant
If Dir(GetTempDir$ & "Optimiseur.txt", vbHidden) <> "" Then
Kill GetTempDir$ & "Optimiseur.txt"
End If
'Téléchargement fichier liste jeu
URLDownloadToFile 0, "http://redlabo.guildesonline.com/downloads/Optimiseur.txt", GetTempDir$ & "Optimiseur.txt", 0, 0
'Ouverture lecture complète du fichier texte et fermeture
Set fs = CreateObject("Scripting.FileSystemObject")
Set fichier = fs.OpenTextFile(GetTempDir$ & "Optimiseur.txt", 1, False, 0)
monTab = Split(fichier.ReadAll, vbCrLf)
fichier.Close
'Chargement liste logiciel depuis fichier temporaire
'Suppression des items déjà présents de la ListBox
If OptimiserTexteListe.ListCount > 0 Then
OptimiserTexteListe.Clear
End If
ReDim TabAdUrl(0)
'Ajout du jeu à la liste
For i = 0 To UBound(monTab)
'Séparation nom du jeu et de son url
JeuIndex$ = Index%
JeuUrl = Split(monTab(i), ",")
JeuUrl(0) = JeuUrl(0) & " (" & JeuIndex$ & ")"
'Replace retire les "" de chaque côté du nom du jeu s'il sont présents
OptimiserTexteListe.AddItem Replace(JeuUrl(0), """", "")
TabAdUrl(Index%) = Replace(JeuUrl(1), """", "")
ReDim Preserve TabAdUrl(UBound(TabAdUrl) + 1)
Index% = Index% + 1
Next i
ReDim Preserve TabAdUrl(UBound(TabAdUrl) - 1)
Else
'Suppression des items déjà présents de la ListBox
If OptimiserTexteListe.ListCount > 0 Then
OptimiserTexteListe.Clear
End If
'Chargement interface
OptimiserTexteConnectionOnImage.Visible = False
OptimiserTexteConnectionOffImage.Visible = True
ConecTxt$ = "Vous n'êtes pas connecté à internet."
OptimiserTexteListe.AddItem "Indisponible..."
'Message Box pour informer l'utilisateur
MsgBox "Vous n'êtes pas connecté à internet. Veuillez vous connecter, puis relancer ""Optimiser un logiciel"".", vbCritical + vbOKOnly
End If
OptimiserTexteConnection.Caption = ConecTxt$
Demarrage.Refresh
'suppression du fichier liste jeu du dossier temp
If Dir(GetTempDir$ & "Optimiseur.txt", vbHidden) <> "" Then
Kill GetTempDir$ & "Optimiseur.txt"
End If
End Sub |
Partager