Poradnik Wykorzystanie Progressbar w Hacku z Kontami np. do Myfreecams.com

Witam,przygotowałem  gotowy skrypt dla tych co dopiero zaczynaja zabawe z Visual Basic .Tego gotowca można użyć do Generowania np. Keygenów  lub Konta Premium !!

Public Class Form1       Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick        ProgressBar1.Increment(1)        If ProgressBar1.Value = ProgressBar1.Maximum Then            Timer1.Stop()            Dim key As Integer            key = (Rnd() * 5)            Select Case key                Case 1                    TextBox1.Text = "mama"                    TextBox2.Text = "0796"                Case 2                    TextBox2.Text = "kubica"                    TextBox1.Text = "5626"                Case 3                    TextBox1.Text = "majka123"                    TextBox2.Text = "2378"                Case 4                    TextBox2.Text = "aleo23"                    TextBox1.Text = "2734"                Case 5                    TextBox1.Text = "iomnia"                    TextBox2.Text = "1123"                           End Select            MsgBox("DZIEKUJE XD ")        End If        If ProgressBar1.Value = 20 Then            Label6.Text = "Connceting to Server"        End If        If ProgressBar1.Value = 40 Then            Label6.Text = "Hacking Account"        End If        If ProgressBar1.Value = 60 Then            Label6.Text = "Testing Account"        End If        If ProgressBar1.Value = 80 Then            Label6.Text = "Account Ready"        End If        If ProgressBar1.Value = 100 Then            Label6.Text = "Password: Ready"        End If    End Sub    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click        End    End Sub    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click        Timer1.Start()        ProgressBar1.Value = ProgressBar1.Minimum    End Sub        Private Sub GroupBox2_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GroupBox2.Enter    End Sub    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click        Timer2.Start()        ProgressBar1.Value = ProgressBar1.Minimum    End Sub    Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick        If ProgressBar1.Value = ProgressBar1.Maximum Then            Timer1.Stop()        End If        ProgressBar1.Increment(1)        If ProgressBar1.Value = 20 Then            Label8.Text = "Conneceting to Server"        End If        If ProgressBar1.Value = 40 Then            Label8.Text = "Testing Account"        End If        If ProgressBar1.Value = 80 Then            Label8.Text = "Testing Account"        End If        If ProgressBar1.Value = 100 Then            Label8.ForeColor = Color.LawnGreen            Label8.Text = "Connect"        End If    End SubEnd Class

Pokaże wam jeżeli pożądacie bardziej wiarygodnego ProgressBar'a.Sztuczke która polega na zmianie interwału ze 100 na 1000.

1.Klikamy na Timer1  .

2.Poprawej stronie szukamy Interval

3. ZMIENIAMY 100 NA 1000

4. Gotowe nasz czas ładowania jest wolniejszy .

Ameryki z tym progressbarem nie odkryłeś.

Powalającego hacka nie zrobiłeś.

... ale mimo to wielki plus dla Ciebie

Ameryki z tym progressbarem nie odkryłeś.

Powalającego hacka nie zrobiłeś.

 

... ale mimo to wielki plus dla Ciebie

Dobra w takim razie dodam do niego wiecej opcji