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.

Post: #1

Hejka ! Mam taki problem, że chce zrobić apke z 2 textboxami i gdy pasek dojdzie do konca to w obu texbtoxach pokaze sie jakiś przezemnie wpisany tekst tylko jak to zrobic ? coś ala generator kont do brazzers gdzie mamy login i hasło

mam taki kod http://scr.hu/0kwu/15a47
ale nie działa :<

Post: #2

Msgbox
link do kodu nie dziala :/

Post: #3

(04-06-2013 19:07)bolo9797 napisał(a):  Msgbox
link do kodu nie dziala :/

działa ten link co dałem

Post: #4

Coś chyba próbujesz przekombinować
Co dokładnie ma się dziać?
Nie wystarczy coś takiego?

Post: #5

(04-06-2013 19:49)yazir napisał(a):  Coś chyba próbujesz przekombinować
Co dokładnie ma się dziać?
Nie wystarczy coś takiego?

Kod:

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() * 3)
            TextBox1.Text = "a"
            TextBox2.Text = key
        End If
    End Sub

omg errory wyskakuja tak wyglada teraz mój cały kod na którym operuje :
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() * 3)
Select Case key
Case 1:
TextBox1.Text = "aaa"
TextBox2.Text = "bbb"
End Select
MessageBox.Show("Success")
Else
If ProgressBar1.Value = 1 Then
Label7.Text = "Loading.."
End If
If ProgressBar1.Value = 35 Then
Label7.Text = "Generator loaded!"
End If
If ProgressBar1.Value = 55 Then
Label7.Text = "Searching working account"
End If
If ProgressBar1.Value = 85 Then
Label7.Text = "Working Account found!"
End If
If ProgressBar1.Value = 95 Then
Label7.Text = "Success!"
End If
End If
End Sub
End Class

no i dupa a jak wkleje kodo d Cb yazir to mam error statement cośtam ogólnie ja operuja na poradniku rocknkdruga i wklejam gotowce bo mi więcej nie potrzeba, tylko tutaj mam problem

a no ma się dziać jak tkai generator kont do brazzers czyli : klikamy button i leci progressbar ktory informuje co się dzieje typu "loading" "searching" i jak pasek dojdzie do konca to w textbox1 pokazuje sie login a w textbox2 pokazuje się hasło

Post: #6

ProgressBar1.Increment(1)
If ProgressBar1.Value = ProgressBar1.Maximum Then
Timer1.Stop()
Dim key As Integer
key = (Rnd() * 3)
TextBox1.Text = "aaa"
TextBox2.Text = "bbb"
MessageBox.Show("Success")
Else
If ProgressBar1.Value = 1 Then
Label7.Text = "Loading.."
End If
If ProgressBar1.Value = 35 Then
Label7.Text = "Generator loaded!"
End If
If ProgressBar1.Value = 55 Then
Label7.Text = "Searching working account"
End If
If ProgressBar1.Value = 85 Then
Label7.Text = "Working Account found!"
End If
If ProgressBar1.Value = 95 Then
Label7.Text = "Success!"
End If
End If
End Sub
End Class


Teraz powinno działać

Post: #7

(04-06-2013 20:41)ceha_wb napisał(a):  ProgressBar1.Increment(1)
If ProgressBar1.Value = ProgressBar1.Maximum Then
Timer1.Stop()
Dim key As Integer
key = (Rnd() * 3)
TextBox1.Text = "aaa"
TextBox2.Text = "bbb"
MessageBox.Show("Success")
Else
If ProgressBar1.Value = 1 Then
Label7.Text = "Loading.."
End If
If ProgressBar1.Value = 35 Then
Label7.Text = "Generator loaded!"
End If
If ProgressBar1.Value = 55 Then
Label7.Text = "Searching working account"
End If
If ProgressBar1.Value = 85 Then
Label7.Text = "Working Account found!"
End If
If ProgressBar1.Value = 95 Then
Label7.Text = "Success!"
End If
End If
End Sub
End Class


Teraz powinno działać

o super działa a jeśli chciałbym dodać więcej tekstów do textbox1 i textbox2 to jak ten kod zmodyfikować ? że jak klikam w generate to mam w login aaa i w password bbb i jak klikam nastepny raz to kolejno mam ccc i ddd

Post: #8

ProgressBar1.Increment(1)
If ProgressBar1.Value = ProgressBar1.Maximum Then
Timer1.Stop()
Dim key As Integer
key = (Rnd() * 4)
Select Case key
Case 1
TextBox1.Text = "aaa"
TextBox2.Text = "bbb"
Case 2
TextBox1.Text = "ccc"
TextBox2.Text = "ddd"
Case 3
TextBox1.Text = "eee"
TextBox2.Text = "fff"
Case 4
TextBox1.Text = "ggg"
TextBox2.Text = "hhh"
End Select
MessageBox.Show("Success")
Else
If ProgressBar1.Value = 1 Then
Label7.Text = "Loading.."
End If
If ProgressBar1.Value = 35 Then
Label7.Text = "Generator loaded!"
End If
If ProgressBar1.Value = 55 Then
Label7.Text = "Searching working account"
End If
If ProgressBar1.Value = 85 Then
Label7.Text = "Working Account found!"
End If
If ProgressBar1.Value = 95 Then
Label7.Text = "Success!"
End If
End If



Jeżeli będziesz chciał dodać więcej kodów wpisujesz po prostu Case 5 itd ale musisz pamiętać,że wtedy musisz zmienić cyferkę w tym wierszu "key = (Rnd() * 4) "