0

私はそれを次のようにしたい: インポート ボタンをクリックすると、複数のファイルを開き (完了)、設定として保存します。次に、フォームの読み込み時にそれらのファイルを開くので、再インポートする必要はありません!

私はこれを試しました

For Each wl As String In File.ReadAllLines("settings.txt")
        OpenFileDialog1.FileName = (wl)
    Next

フォームの読み込みと settings.txt には、2 つのファイル名と場所が含まれていました。最初のファイルではなく、2番目のファイルを開くだけです。その設定ファイル内のすべてのファイルを開くにはどうすればよいですか? ReadLinesも結びました

4

1 に答える 1

0

ハッシュクラッカーメソッドを抽象化するのがおそらく最も簡単です。

Function hashType(ByVal filename As String) As Boolean
    If algo.Text = "MD5" Then
        Dim firstWord = (From word In IO.File.ReadLines(filename)
         Where String.Equals(MD5(word), hash.Text)).FirstOrDefault()
        If firstWord IsNot Nothing Then
            Label2.Text = firstWord
            Return True
        Else
            Label2.Text = "Hash Could Not Be Cracked"
        End If
    ElseIf algo.Text = "SHA1" Then
        Dim firstWord = (From word In IO.File.ReadLines(filename)
         Where String.Equals(SHA1(word), hash.Text)).FirstOrDefault()
        If firstWord IsNot Nothing Then
            Label2.Text = firstWord
            Return True
        Else
            Label2.Text = "Hash Could Not Be Cracked"
        End If
    End If

    Return False
End Function

Private Sub Thief3Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Thief3Button1.Click
    OpenFileDialog1.Filter = "Dictionaries (*.dic)|*.dic"
    OpenFileDialog1.FilterIndex = 1
    OpenFileDialog1.RestoreDirectory = True
    OpenFileDialog1.Multiselect = True
    OpenFileDialog1.ShowDialog()
End Sub

Private Sub Thief3TopButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Thief3TopButton1.Click
    Me.Close()
End Sub

Private Sub Thief3Button3_Click_2(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Thief3Button2.Click
    hashType(OpenFileDialog1.FileName)
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    For Each wl As String In File.ReadLines("settings.txt")
        If hashType(wl) Then Exit For
    Next
End Sub

Voilà。ただし、イベント以外の場所でこれを実行することをお勧めします。フォームが最初に作成されたときにはLoad何もありません。hash.Text

于 2012-04-27T01:55:31.933 に答える