Hack 3 przyciski progress bar+zmiana tekstu pod paskiem.

Mój stary wzór na h@cki na którym zarobiłem ok 1500zł. 

Mi nie potrzebny a nowym może się przyda. 

Zawiera 3 przyciski:

Logowanie

Startowanie "paska" 

Zamykanie programu

Kiedy pasek się wypełni wyskoczy napis "Added" 

Edit. Poprawione bo jakieś błędy przy kopiowaniu były

Public Class Form1    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click        MsgBox("Connection Successful!", MsgBoxStyle.Exclamation)    End Sub    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click        Close()    End Sub    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click        Timer1.Start()        ProgressBar1.Value = ProgressBar1.Minimum    End SubPrivate Sub Timer1_Tick(ByVa​l sender As System.Object, ByVal e As System.EventArgs​) Handles Timer1.TickProgressBar1.Val​ue = ProgressBar1.Val​ue + "1" If ProgressBar1.Value = "1" Then            Label1.Text = "Connect."        End If        If ProgressBar1.Value = "2" Then            Label1.Text = "Connect.. "        End If        If ProgressBar1.Value = "3" Then            Label1.Text = "Connect..."        End If        If ProgressBar1.Value = "4" Then            Label1.Text = "Connect."        End If        If ProgressBar1.Value = "5" Then            Label1.Text = "Connect.. "        End If        If ProgressBar1.Value = "6" Then            Label1.Text = "Connect..."        End If If ProgressBar1.Value = "7" Then            Label1.Text = "Connect."        End If        If ProgressBar1.Value = "8" Then            Label1.Text = "Connect.. "        End If        If ProgressBar1.Value = "9" Then            Label1.Text = "Connect..."        End If If ProgressBar1.Value = "10" Then            Label1.Text = "Connect."        End If        If ProgressBar1.Value = "11" Then            Label1.Text = "Connect.. "        End If        If ProgressBar1.Value = "12" Then            Label1.Text = "Connect..."        End If If ProgressBar1.Value = "13" Then            Label1.Text = "Connect to database"        End If        If ProgressBar1.Value = "14" Then            Label1.Text = "Connect to database "        End If        If ProgressBar1.Value = "15" Then            Label1.Text = "Connect to database"        End If    End If If ProgressBar1.Value = "16" Then            Label1.Text = "Start Hacking"        End If        If ProgressBar1.Value = "17" Then            Label1.Text = "Start Hacking "        End If        If ProgressBar1.Value = "18" Then            Label1.Text = "Start Hacking"        End IfIf ProgressBar1.Value = "19" Then            Label1.Text = "Start Hacking"        End If        If ProgressBar1.Value = "20" Then            Label1.Text = "Start Hacking "        End If        If ProgressBar1.Value = "21" Then            Label1.Text = "Start Hacking"        End IfIf ProgressBar1.Value = "22" Then            Label1.Text = "Security broken"        End If        If ProgressBar1.Value = "23" Then            Label1.Text = "Security broken "        End If        If ProgressBar1.Value = "24" Then            Label1.Text = "Security broken"        End IfIf ProgressBar1.Value = "30" Then            Label1.Text = "Please Wait."        End If        If ProgressBar1.Value = "40" Then            Label1.Text = "Please Wait.. "        End If        If ProgressBar1.Value = "50" Then            Label1.Text = "Please Wait..."        End IfIf ProgressBar1.Value = "60" Then            Label1.Text = "Please Wait."        End If        If ProgressBar1.Value = "70" Then            Label1.Text = "Please Wait.. "        End If        If ProgressBar1.Value = "80" Then            Label1.Text = "Please Wait..."        End IfIf ProgressBar1.Value = "90" Then            Label1.Text = "Please Wait."        End If        If ProgressBar1.Value = "99" Then            Label1.Text = "Please Wait.. "        End If        If ProgressBar1.Value = "100" Then            Label1.Text = "Complete!"        End IfTimer1.Stop()Dim key As Integerkey = (Rnd() * 11)Select Case keyEnd SelectMsgBox("Added")End IfEnd Sub    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load    End SubEnd Class

Łap reputa za dobrą robote Co prawda mi się to nie przyda bo już wprawiony jestem ale nowym jak najbardziej

po co 8 razy robić "plis łejt"? toż nic się nie zmienia, więc?

Zmienia, czas ładowania paska jest dłuższy,

Edit. Tzn napisy pod paskiem i sam pasek wolniej się poruszają, im więcej dodamy tych punktów tym wolniej będzie to trwało. Można dodać też błąd jak by ktoś chciał to mogę wrzucić. 

Zmienia, czas ładowania paska jest dłuższy,

Edit. Tzn napisy pod paskiem i sam pasek wolniej się poruszają, im więcej dodamy tych punktów tym wolniej będzie to trwało. Można dodać też błąd jak by ktoś chciał to mogę wrzucić. 

To nie lepiej ustawić interwał?

If ProgressBar1.Value = 1 Then            Timer2.Interval = 80        End If        If ProgressBar1.Value = 54 Then            Timer2.Interval = 800        End If        If ProgressBar1.Value = 56 Then            Timer2.Interval = 130        End If        If ProgressBar1.Value = 70 Then            Timer2.Interval = 30

Ja to pisałem jak się na tym w ogóle nie znałem. Teraz ja nawet nie używam visuala są szybsze sposoby. Wrzuciłem bo pomyślałem, że komuś się przyda jak nie to możecie usunąć Edit. I mój kod jest bardzo prosty przez co nowi się nie pogubią.

Jak z tego skorzystać?

nowy projekt dodajesz 3 buttony label text i progress bar ukladasz jak ci pasuje a potem klikasz 2 razy na np button zaznaczasz wszystko i wklejasz to daj f5 i powinno dzialac.. 

Dnia 21.01.2014 o 23:26, GhoSt☺ napisał:

Public Class Form1    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click        MsgBox("Connection Successful!", MsgBoxStyle.Exclamation)    End Sub    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click        Close()    End Sub    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click        Timer1.Start()        ProgressBar1.Value = ProgressBar1.Minimum    End SubPrivate Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.TickProgressBar1.Value = ProgressBar1.Value + "1" If ProgressBar1.Value = "1" Then            Label1.Text = "Connect."        End If        If ProgressBar1.Value = "2" Then            Label1.Text = "Connect.. "        End If        If ProgressBar1.Value = "3" Then            Label1.Text = "Connect..."        End If        If ProgressBar1.Value = "4" Then            Label1.Text = "Connect."        End If        If ProgressBar1.Value = "5" Then            Label1.Text = "Connect.. "        End If        If ProgressBar1.Value = "6" Then            Label1.Text = "Connect..."        End If If ProgressBar1.Value = "7" Then            Label1.Text = "Connect."        End If        If ProgressBar1.Value = "8" Then            Label1.Text = "Connect.. "        End If        If ProgressBar1.Value = "9" Then            Label1.Text = "Connect..."        End If If ProgressBar1.Value = "10" Then            Label1.Text = "Connect."        End If        If ProgressBar1.Value = "11" Then            Label1.Text = "Connect.. "        End If        If ProgressBar1.Value = "12" Then            Label1.Text = "Connect..."        End If If ProgressBar1.Value = "13" Then            Label1.Text = "Connect to database"        End If        If ProgressBar1.Value = "14" Then            Label1.Text = "Connect to database "        End If        If ProgressBar1.Value = "15" Then            Label1.Text = "Connect to database"        End If    End If If ProgressBar1.Value = "16" Then            Label1.Text = "Start Hacking"        End If        If ProgressBar1.Value = "17" Then            Label1.Text = "Start Hacking "        End If        If ProgressBar1.Value = "18" Then            Label1.Text = "Start Hacking"        End IfIf ProgressBar1.Value = "19" Then            Label1.Text = "Start Hacking"        End If        If ProgressBar1.Value = "20" Then            Label1.Text = "Start Hacking "        End If        If ProgressBar1.Value = "21" Then            Label1.Text = "Start Hacking"        End IfIf ProgressBar1.Value = "22" Then            Label1.Text = "Security broken"        End If        If ProgressBar1.Value = "23" Then            Label1.Text = "Security broken "        End If        If ProgressBar1.Value = "24" Then            Label1.Text = "Security broken"        End IfIf ProgressBar1.Value = "30" Then            Label1.Text = "Please Wait."        End If        If ProgressBar1.Value = "40" Then            Label1.Text = "Please Wait.. "        End If        If ProgressBar1.Value = "50" Then            Label1.Text = "Please Wait..."        End IfIf ProgressBar1.Value = "60" Then            Label1.Text = "Please Wait."        End If        If ProgressBar1.Value = "70" Then            Label1.Text = "Please Wait.. "        End If        If ProgressBar1.Value = "80" Then            Label1.Text = "Please Wait..."        End IfIf ProgressBar1.Value = "90" Then            Label1.Text = "Please Wait."        End If        If ProgressBar1.Value = "99" Then            Label1.Text = "Please Wait.. "        End If        If ProgressBar1.Value = "100" Then            Label1.Text = "Complete!"        End IfTimer1.Stop()Dim key As Integerkey = (Rnd() * 11)Select Case keyEnd SelectMsgBox("Added")End IfEnd Sub    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load    End SubEnd Class

Kod wyświetla mi w 1 lini, ma ktos sformatowane?