Private Property x As Integer Private Property Screen As Integer Private Property GenerateRandomString As Object Private Property length As Integer
Private Property x As Integer
Private ReadOnly Property x() As Integer Get End Get End Property
Private WriteOnly Property x() As Integer Set(ByVal value As Integer) End Set End Property
Private Property x() As Integer Get End Get Set(ByVal value As Integer) End Set End Property
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionPrivate Property x As Integer
Public Class Form1 Private Sub OpenFileDialog1_FileOk(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles OpenFileDialog1.FileOk End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim dialog As New OpenFileDialog() OpenFileDialog1.Filter = "Fichier Winrar (*.rar)|*.rar|Fichier Winzip (*.zip)|*.zip" If DialogResult.OK = OpenFileDialog1.ShowDialog 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.Start() comment creer brutforece avec ceci: "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789#$%&'()*+,-./:;<=>?@[\]^_`{|}~" End Sub Private Sub ProgressBar1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ProgressBar1.Click End Sub Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick ProgressBar1.Increment(1) If ProgressBar1.Value = 99 Then MsgBox(Prompt:="Password succesful!") End If Label1.Text = ProgressBar1.Value & "%" End Sub Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click End Sub Private Sub RichTextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RichTextBox1.TextChanged "affiche le résulta du mot de passe." End Sub End Class