A1VBCode Forums

problem to end a program


http://a1vbcode.com/vbforums/Topic31898.aspx

By zorro591 - 2/26/2013

Hello, I create a software hack the passwords of winrar and winzip file? I have a problem with the end, can you help me to my problem. Thanks for your help.



Public Class Form1



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

If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then

TextBox1.Text = OpenFileDialog1.FileName

End If

End Sub



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

Timer1.Enabled = True

End Sub



Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

If ProgressBar1.Value = ProgressBar1.Maximum Then

Timer1.Enabled = False

Else

ProgressBar1.Value = ProgressBar1.Value + 1



End If

End Sub



Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click

Label1 where I marked "Password"

End Sub



Private Sub RichTextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RichTextBox1.TextChanged

richTextBox1 it will display the 1/2 or successful password / password error

End Sub

End Class
By zorro591 - 2/26/2013

Public Class Form1



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

If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then

TextBox1.Text = OpenFileDialog1.FileName

End If

End Sub



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

Timer1.Enabled = True

End Sub



Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

If ProgressBar1.Value = ProgressBar1.Maximum Then

Timer1.Enabled = False

Else

ProgressBar1.Value = ProgressBar1.Value + 1



End If

End Sub



Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click

Label1.Text = "Password"

End Sub



Private Sub RichTextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RichTextBox1.TextChanged

If RichTextBox1.Text = "Password succesful"

Else

RichTextBox1.Text = "Password error"

End If

End Sub

End Class



here I find but can you help me or I can put the frutforce in the program?