Witaj gościu! Zaloguj się lub Zarejestruj aby móc korzystać ze wszystkich funkcjonalności jakie oferuje to forum! Rozpocznij zarabianie przez internet, poznaj korzysci pracy w domu! Rejestracja i korzystanie z forum jest całkowicie darmowe!
Polska społeczność o zarabianiu przez internet, pracy w domu i dodatkowej pracy online
Zobacz dzisiejsze dyskusje →
Witam, mam problem z keygenem, a dokładnie z progressbarem. Za każdym razem kiedy testuje swój fake keygen pasek ładowania nie ładuje się :c . A dokładnie ładuje się tylko początek paska. Reinstall Vb nic nie daje, zmieniłem go nawet z 2010 na 2008 i problem nie znika . Jeśli ktoś wie jak temu zaradzić niech pisze na dole .
Cytat: 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 = "xxx"
Case 2
TextBox1.Text = "xxx"
Case 3
TextBox1.Text = "xxx"
Case 4
TextBox1.Text = "xxx"
Case 5
TextBox1.Text = "xxx"
End Select
End If
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
Teraz jest dobrze. Problemem był źle umieszczony End If. Powinneś go postawić za End Select.
/
Problem z keygenem
Post: #1
.
Post: #2
