Modifier proxy avec Mozilla

Version imprimable

1 pièce(s) jointe(s)

Bonjour,
J'ai un probléme pour modifier dans le fichier prefs.js , il m'afficher une erreur quand je clique 2 fois sur le buttons.
Voici mon code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 Private Sub Button5_Click(sender As System.Object, e As System.EventArgs) Handles Button5.Click
        If My.Computer.FileSystem.FileExists(Files) Then
            Dim lines As List(Of String) = System.IO.File.ReadAllLines(Files).ToList
            Dim list As New List(Of String) From {"user_pref(""network.proxy.backup.ftp"", """");", "user_pref(""network.proxy.backup.ftp_port"", 0);", "user_pref(""network.proxy.backup.socks"", """");", "user_pref(""network.proxy.backup.socks_port"", 0);", "user_pref(""network.proxy.backup.ssl"", """");", "user_pref(""network.proxy.backup.ssl_port"", " & "" & TextBox2.Text & ");"}
            Dim index As Integer = lines.FindIndex(Function(value As String)
                                                       Return value.Contains("network.predictor.cleaned-up")
                                                   End Function)
            For Each item As Integer In list
                If Not InStr(lines.Count, item) = False Then
                    'Dans le fichier les mots de la list existe , il le renome dans le fichier
                    lines.RemoveAt(list.Count)
                Else
                    'dans le fichier les mots existe pas, il ajoute dans le fichier
                    lines.InsertRange(index + 1, list)
                End If
            Next
            File.WriteAllLines(Files, lines)
            Process.Start("NOTEPAD.EXE", Files)
        End If
    End Sub

Pièce jointe 253063

je voudrais savoir comment on fait pour renommer dans le fichier prefs.js si existe les mot de la list?
Merci,
cordialement,

11/03/2017, 16h22
wallace1

Bonjour,

L'exception est pourtant très claire...... c'est encore qqch que tu as copiés/collés qqpart sans savoir comment ca fonctionne.......:aie::aie:

bonjour,

pour info wallace , j'ai pas copier les codes c moi qui les crées.

voici mon code modifier :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
If My.Computer.FileSystem.FileExists(Files) Then
            Dim lines As List(Of String) = System.IO.File.ReadAllLines(Files).ToList
            Dim list As New List(Of String) From {"user_pref(""network.proxy.backup.ftp"", """");", "user_pref(""network.proxy.backup.ftp_port"", 0);", "user_pref(""network.proxy.backup.socks"", """");", "user_pref(""network.proxy.backup.socks_port"", 0);", "user_pref(""network.proxy.backup.ssl"", """");", "user_pref(""network.proxy.backup.ssl_port""," & "" & TextBox2.Text & "" & ");"} '.....etc
            For i = 0 To lines.Count - 1
                For j = 0 To list.Count - 1
                    If lines(i).Contains("network.predictor.cleaned-up") = True Then
                        'si la list des mots existe pas dans le fichier prefs.js , il ajoute
                        lines(i) = lines(i) & vbCrLf & list(j)
                        File.WriteAllLines(Files, lines)
                    ElseIf lines(i).Contains(list(j)) = True Then
                        'si la list des mots exite dans le fichier prefs.js, il renome la liste que j'ai ajouter
                        list.RemoveAt(j)
                        File.WriteAllLines(Files, lines)
                    End If
                Next
            Next
            Process.Start("NOTEPAD.EXE", Files)
        End If

Mon probléme , c'est toujours pour renommer ma list. il m'affiche une erreur :

Citation:

L'index était hors limites. Il ne doit pas être négatif et doit être inférieur à la taille de la collection.
Nom du paramètre : index

je voudrais savoir comment renommer ma list, j'ai essayer Remove,RemoveAt,RemoveAll .... etc.
Pouvez-vous m'aider à résoudre ce probléme?
cordialement,