VB.NET 설정 (가져 오기)

Question

다음 작업을 수행하려고합니다. 가져 오기 버튼을 클릭하면 여러 파일 (완료)을 열고 설정으로 저장합니다. 그런 다음 양식로드시 해당 파일을 열어서 다시 가져올 필요가 없습니다!

나는 폼로드에서이

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

을 시도하고 settings.txt 2 파일 이름과 위치를 포함. 첫 번째 파일이 아닌 두 번째 파일 만 열 수 있습니다. 해당 설정 파일의 모든 파일을 어떻게 열 수 있습니까? 나는 또한 공동의 readlines

Answer 1

그것의 아마 가장 쉬운 단지 추상적 인 당신의 해시 크래커 방법 아웃 :

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 & agrave ;. 아마도 Load 이벤트가 아닌 다른 곳에서이 작업을 수행하려고 할 것입니다. 양식을 처음 작성할 때 hash.Text에는 아무 것도 표시되지 않습니다.