Discussion :

[hacker59]

bonjour, voila j'ai un petit probleme avec ma listbox1, je voudrais afficher "teste : le mot @ la date et l'heur "

voici une partie de mes codes :

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
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Dim dialog As New OpenFileDialog()
        dialog.Filter = "Fichier Wordlist (*.txt)|*.txt"
        If DialogResult.OK = dialog.ShowDialog Then
            TextBox2.Text = dialog.FileName
            totalWords = File.ReadAllLines(dialog.FileName).Length
            Label4.Text = totalWords.ToString
        End If
        Button2.Enabled = True
        Lignes = System.IO.File.ReadAllLines(dialog.FileName)
        ProgressBar1.Maximum = UBound(Lignes)
    End Sub
Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
        ListBox1.Items.Add(Lignes(ProgressBar1.Value))
        ListBox1.SelectedIndex += 1
        If ProgressBar1.Value < ProgressBar1.Maximum Then
            ProgressBar1.Value += 1
            Label6.Text = Val(Label6.Text + 1)
            If getMD5Hash(ListBox1.Text) = TextBox1.Text Then
                Timer1.Stop()
                ProgressBar1.Value = 0
                MsgBox("dictionnaire : " & Label4.Text & " SUR " & Label6.Text & " = Le Mot De Passe est :  " & ListBox1.Text)
            End If
        End If
    End Sub

je voudrais remplacer ce code dans timer1

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ListBox1.Items.Add(Lignes(ProgressBar1.Value))

par ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 ListBox1.Items.Add("TESTE :" & Lignes & " @ " & System.DateTime.Now.ToString("dd/MM/yyyy hh:mm:ss"))

mais voila il m'affiche une erreur, voici en image l'erreur + mon projet