Hashbull / src / HelpHashcat.vb
HelpHashcat.vb
Raw
Public Class HelpHashcat





    Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox1.CheckedChanged

        My.Settings.CheckHelp1 = CheckBox1.Checked

        My.Settings.Save()
        My.Settings.Reload()

    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

        '#### Help Button

        Process.Start("https://hashcat.net/faq/wrongdriver")

    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        Me.Close()

    End Sub

    Private Sub Form13_Load(sender As Object, e As EventArgs) Handles Me.Load

        If My.Settings.Eng = False Then TextBox1.Text = "Hashcat -Einstellungen" & vbNewLine & vbNewLine &
        "Wenn Sie Hashcat zum ersten Mal starten können Fehler auftreten, wenn nicht die richtigen Treiber" & vbNewLine &
        "für die CPU und GPU installiert sind. Wenn Sie die folgende Nachricht erhalten: " & vbNewLine & vbNewLine &
        "ATTENTION! No OpenCL or CUDA installation found. You are probably missing the CUDA or OpenCL runtime installation." & vbNewLine & vbNewLine &
        "dann installieren Sie bitte folgende Treiber:" & vbNewLine & vbNewLine &
        "AMD-GPUs unter Windows benötigen diese Treiber:" & vbNewLine &
        "AMD Radeon Adrenalin 2020 Edition (20.2.2 oder höher)" & vbNewLine & vbNewLine &
        "Intel-CPUs benötigen diese Treiber:" & vbNewLine &
        "OpenCL Runtime für Intel Core- und Intel Xeon-Prozessoren (16.1.1 oder höher)" & vbNewLine & vbNewLine &
        "NVIDIA-GPUs erfordern diese Treiber (beide):" & vbNewLine &
        "NVIDIA-Treiber (440,64 oder höher)" & vbNewLine &
        "CUDA Toolkit (9.0 oder höher)" & vbNewLine & vbNewLine &
        "Weitere Informationen unter: https://hashcat.net/faq/wrongdriver"

        If My.Settings.Eng = False Then CheckBox1.Text = "Nicht mehr anzeigen"



    End Sub

    Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged

    End Sub
End Class