+- Praca w domu - Dodatkowa Praca - Zarabianie przez Internet (https://zarabiam.com)
+-- Dział: Uploading (/Forum-Uploading-282)
+--- Dział: Dyskusja o Uploadzie (/Forum-Dyskusja-o-Uploadzie-286)
+--- Wątek: Problem z keygenem (/Temat-Problem-z-keygenem-89468)
Problem z keygenem - kuba1998ii - 16-04-2014 21:35
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
.
RE: Problem z keygenem - MrSkacowany - 17-04-2014 08:20
Podaj kod.
RE: Problem z keygenem - kuba1998ii - 17-04-2014 10:57
TIMER
ProgressBar1.Increment(1)
If ProgressBar1.Value = ProgressBar1.Maximum Then
End If
Timer1.Stop()
Dim key As Integer
key = (Rnd() * 5)
Select 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
button 1
timer1.start
progressbar1.value= progressbar1.minimum
RE: Problem z keygenem - MrSkacowany - 17-04-2014 14:23
Cytat: Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.TickTeraz jest dobrze. Problemem był źle umieszczony End If. Powinneś go postawić za End Select.
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