Estou a desenvolver um novo software que verifica as assinaturas digitais e tenho 2 ListBox
. A primeira com as hash que se obtem dos ficheiros contidos no directorio escolhido pelo usuario, a segunda com as assinaturas MD5
de virus conhecidos eu preciso de comparar item por item se na listbox4.items.contain(listbox5.items)
.
Como posso fazer esse loop
e comparar com todas as chaves existentes
um por um?
Desde ja agradeço.
Eu ja procurei no Google mas nao encontrei nada que me possa ajudar.
Este e o meu código:
Private Sub comparador_Tick(sender As Object, e As EventArgs) Handles comparador.Tick
For Each hash1 As String In ListBox4.Items
ListBox4.SelectedIndex = ListBox4.SelectedIndex + 1
For Each hash2 As String In ListBox5.Items
ListBox5.SelectedIndex = ListBox5.SelectedIndex + 1
If ListBox4.Items.Contains(ListBox5.SelectedItem) Then
MsgBox("Virus Encontrado Em:" & ListBox4.SelectedItem)
Else
End If
If (ListBox4.SelectedIndex = ListBox4.Items.Count - 1) Then
Return
End If
If (ListBox5.SelectedIndex = ListBox5.Items.Count - 1) Then
Return
End If
Next
Next
End Sub
Depois de fazer algumas tentativas acabei por modificar um pouco do meu codigo inicial para este: Comparator e um timer
Private Sub comparador_Tick(sender As Object, e As EventArgs) Handles comparador.Tick
ListBox4.SelectedIndex = 0
ListBox5.SelectedIndex = 0
'ListBox4.SelectedIndex = ListBox4.SelectedIndex + 1
For Each hashf As String In ListBox5.Items
If ListBox4.SelectedItem.ToString = ListBox5.SelectedItem.ToString
Then
MsgBox("Virus Encontrado Em:" & ListBox4.SelectedItem)
Else
ListBox5.SelectedIndex = ListBox5.SelectedIndex + 1
End If
ListBox4.SelectedIndex = ListBox4.SelectedIndex + 1
Next
End Sub
erro A lista a qual este enumerador está vinculado foi modificada. Um enumerador só pode ser usado se a lista não mudar. De facto depois de tentar varias coisas encontrei uma solucao
Private Sub comparador_Tick(sender As Object, e As EventArgs) Handles comparador.Tick
TextBox3.Text = ListBox5.Items.Count
Dim counter As Integer 'new!
'ListBox4.SelectedIndex = ListBox4.SelectedIndex + 1
For Each hashf As String In ListBox5.Items.ToString
ListBox5.SelectedIndex = ListBox5.SelectedIndex + 1
counter += 1 'new
ProgressBar1.Value = (counter * 100) / ListBox5.Items.Count 'new
If (ListBox5.SelectedIndex = ListBox5.Items.Count - 1) Then
ListBox5.SelectedIndex = 0
ListBox4.SelectedIndex = ListBox4.SelectedIndex + 1
End If
ListBox4.SelectedIndex = 0
If ListBox4.SelectedItem.ToString = ListBox5.SelectedItem.ToString Then
MsgBox("Virus Encontrado Em:" & ListBox4.SelectedItem)
End If
Next
End Sub