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.

AdrYan12 · 19-02-2013 14:53

Sprawdź:

Witam. Mógłby mi ktoś udostępnić kod do VB, żeby generowało kody po kliknięciu przycisku?

szybkikwit · 19-02-2013 15:39

W Necie masz dużo poradników jak zrobić keygena itd. !! nikt CI nie da gotowego choć w sumie nie ma dużo roboty z tym ;P ale spróbuj sam zrobić bardziej Ci się to opłaci i będziesz na przyszłość już coś umiał ! Smile

pikusix1 · 19-02-2013 16:51

Kod:

Dim key As Integer

key = (Rnd() * 3+1)

Select Case key

Case 1

TextBox1.Text = "wpisz kod"

Case 2

TextBox1.Text = "wpisz kod"

Case 3

TextBox1.Text = "wpisz kod"

End Select

Skipi · 19-02-2013 18:00

(19-02-2013 16:51)pikusix1 napisał(a):

Kod:

Dim key As Integer key = (Rnd() * 3+1) Select Case key Case 1 TextBox1.Text = "wpisz kod" Case 2 TextBox1.Text = "wpisz kod" Case 3 TextBox1.Text = "wpisz kod" End Select

Sorry ale co to za gó*** ? Jerk

2

Kod:

LOL_LOL:

        Dim AA As Decimal = Int(Rnd() * 10000)

        Dim BB As Decimal = Int(Rnd() * 10000)

        Dim CC As Decimal = Int(Rnd() * 10000)

        Dim DD As Decimal = Int(Rnd() * 10000)

        Dim EE As Decimal = Int(Rnd() * 10000)

        If AA > 1000 And BB > 1000 And CC > 1000 And DD > 1000 And EE > 1000 Then

            If AA + BB + CC + DD + EE - 35927 Then

            Dim serial As String = AA & "-" & BB & "-" & CC & "-" & DD & "-" & EE

                serial = serial.Replace("2", "G")

                serial = serial.Replace("4", "Z")

                serial = serial.Replace("6", "S")

                serial = serial.Replace("8", "N")

                TextBox1.Text = serial

                Exit Sub

            Else

                GoTo lol_lol

            End If

        Else

            GOTO LOL_LOL

        End If

~~mikifiki99~~ · 11-05-2013 14:02

Proszę bardzo kod z gotowymi CDkeyami, wklejasz go do timera. http://tny.cz/cd5567c1

Podobne wątki
Wątek:		Autor	Odpowiedzi:	Wyświetleń:	Ostatni post
	Kod MD5	Dadinio	2	1,424	21-04-2015 15:01 Ostatni post: Dadinio
	Visual Basic 2010 Express	PaulRcootiC	1	1,633	26-01-2014 12:05 Ostatni post: matek697
	Virtual Basic- info o wirusie	As7	5	1,483	28-07-2013 23:11 Ostatni post: JaviDesire
	Problem z Visual Basic	WazzaP	4	2,139	18-07-2013 16:18 Ostatni post: Coristo
	Visual Basic 2 textboxy	Jojo693	7	1,726	05-06-2013 17:47 Ostatni post: ceha_wb

Tryb drzewa \| Tryb normalny Kod do Visual Basic
Autor	Wiadomość