Skocz do zawartości

Hack 3 przyciski progress bar+zmiana tekstu pod paskiem.


GhoSt☺

Rekomendowane odpowiedzi

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 :D

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
Edytowane przez piotr414
  • Super 2
 

 

Odnośnik do komentarza

Dołącz do nas za darmo i naucz się zarabiać!

  • Dostęp do darmowych poradników pokazujących krok po kroku jak zarabiać w Internecie
  • Sposoby zarabiania niepublikowane nigdzie indziej
  • Aktywna społeczność, która pomoże Ci rozwiązać problemy i doradzi
  • Profesjonalne treści na temat SEO, social media, afiliacji, kryptowalut i wiele więcej!

 

 

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
Odnośnik do komentarza

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ą.

Edytowane przez piotr414
 

 

Odnośnik do komentarza
  • 3 tygodnie później...
  • 2 tygodnie później...
  • 2 lata później...
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?

Edytowane przez bestboy120
Odnośnik do komentarza

Jeśli chcesz dodać odpowiedź, zaloguj się lub zarejestruj nowe konto

Jedynie zarejestrowani użytkownicy mogą komentować zawartość tej strony.

Zarejestruj nowe konto

Załóż nowe konto. To bardzo proste!

Zarejestruj się

Zaloguj się

Posiadasz już konto? Zaloguj się poniżej.

Zaloguj się
×
×
  • Dodaj nową pozycję...

Powiadomienie o plikach cookie

Ta strona korzysta z ciasteczek aby świadczyć usługi na najwyższym poziomie. Dalsze korzystanie z witryny oznacza zgodę na ich wykorzystanie. Polityka prywatności .