Praca w domu - Dodatkowa Praca - Zarabianie przez Internet. Dołącz do Największego w Polsce forum o tematyce Zarabiania przez Internet. Praca w domu stała się bardzo popularna.

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 smutny

.

MrSkacowany · 17-04-2014 08:20

Podaj kod.

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

MrSkacowany · 17-04-2014 14:23

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.

Tryb drzewa \| Tryb normalny Problem z keygenem
Autor	Wiadomość