1. #1
    Nouveau Candidat au Club
    Profil pro
    Inscrit en
    avril 2013
    Messages
    267
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : avril 2013
    Messages : 267
    Points : 0
    Points
    0

    Par défaut Modifier proxy avec Mozilla

    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 : 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
     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
    Nom : 1013807.jpg
Affichages : 44
Taille : 16,1 Ko

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

  2. #2
    Membre expert
    Avatar de wallace1
    Homme Profil pro
    Administrateur systèmes et réseaux
    Inscrit en
    octobre 2008
    Messages
    1 516
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Puy de Dôme (Auvergne)

    Informations professionnelles :
    Activité : Administrateur systèmes et réseaux
    Secteur : Aéronautique - Marine - Espace - Armement

    Informations forums :
    Inscription : octobre 2008
    Messages : 1 516
    Points : 3 116
    Points
    3 116
    Billets dans le blog
    6

    Par défaut

    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.......

  3. #3
    Nouveau Candidat au Club
    Profil pro
    Inscrit en
    avril 2013
    Messages
    267
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : avril 2013
    Messages : 267
    Points : 0
    Points
    0

    Par défaut

    bonjour,

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

    voici mon code modifier :
    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
    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 :
    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,

Discussions similaires

  1. [debutant] Proxy avec le composant ICS
    Par alain.lc dans le forum Composants VCL
    Réponses: 3
    Dernier message: 18/01/2006, 13h59
  2. BBcode avec Mozilla
    Par picsoun dans le forum JavaScript
    Réponses: 3
    Dernier message: 16/12/2005, 16h01
  3. Problème de proxy avec Firefox
    Par shukin dans le forum Autres langages pour le Web
    Réponses: 3
    Dernier message: 13/12/2005, 12h10
  4. Fonction JS qui fonctionne avec Mozilla mais pas avec IE.
    Par etiennegaloup dans le forum JavaScript
    Réponses: 3
    Dernier message: 31/10/2005, 13h58
  5. [W3C] aide pour html avec mozilla et netscape
    Par teambeyou dans le forum Balisage (X)HTML et validation W3C
    Réponses: 6
    Dernier message: 06/09/2005, 20h30

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo