Bonsoir, quelqu'un aurait-il l’amabilité de m'aider dans l'édition d'un bout de code existant ?
Étant débutant, j’espère me faire comprendre du mieux possible...
Si j'ai bien compris dans le script que je possède on vérifie l’existence d'un fichier texte.ini et on incrémente une valeur à "valmember"
Je souhaite modifier cela, la valeur sera saisie au préalable manuellement dans le fichier texte.ini
J'aimerai donc que si mon fichier existe, la valeur renseigné dans mon fichier "texte.ini", par exemple : "valmember= 10" exécute la fonction suivante :
Call GiveStatut(i, 2, valmember) .
Valmember correspondant à la valeur inscrite manuellement dans texte.ini soit : 10
Merci par avance de l'aide que vous voudrez bien m'apporter.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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 Private Sub Members_Timer() Dim i As Long, statut As Long, u As Long Dim f As Long Dim s As Long Dim valvip As Long For i = 1 To MAX_MEMBERS If IsOnline(i) Then If FileExist("\accounts\members\"texte.ini") Then f = FreeFile Open App.Path & "\accounts\members\"texte.ini" For Input As #f Input #f, s valmember = LCase$(s) Close #f Close #f statut = FindOpenStatutSlot(i, 2) If statut <> 0 Then Call GiveStatut(i, 2, valmember) Exit Sub Else Call Msgbull(i, "Erreur") End If End If End If Next i End Sub
cordialement,
Partager