Kod do Visual Basic

AdrYan12 · 19-02-2013, 15: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, 16: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, 17: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, 19:00

(19-02-2013, 17: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ó*** ?

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, 15:02

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

szybkikwit Stały Bywalec Liczba postów: 505 Dołączył: Nov 2012 Reputacja: 135 Odznaczenia: (Zobacz Odznaczenia) Poziom: Forum Gold: 42.00	Post: #2 RE: Kod do Visual Basic 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ł !
Glosy:
19-02-2013, 16:39

pikusix1 Forumowy Fanatyk Liczba postów: 878 Dołączył: Jul 2011 Odznaczenia: (Zobacz Odznaczenia) Poziom: Forum Gold: 0.00	Post: #3 RE: Kod do Visual Basic 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`
Glosy:
19-02-2013, 17:51

Skipi Sprzedałem się za 5zł Liczba postów: 1,015 Dołączył: Apr 2012 Forum Gold: 8.00	Post: #4 RE: Kod do Visual Basic (19-02-2013, 17: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ó*** ? 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
Glosy:
19-02-2013, 19:00

~~mikifiki99~~ Banned Liczba postów: 36 Dołączył: Jan 2013 Forum Gold: 0.00	Post: #5 RE: Kod do Visual Basic Proszę bardzo kod z gotowymi CDkeyami, wklejasz go do timera. http://tny.cz/cd5567c1 (Ten post był ostatnio modyfikowany: 11-05-2013, 15:03 przez mikifiki99.)
Glosy:
11-05-2013, 15:02

Podobne wątki…
Wątek:		Autor	Odpowiedzi:	Wyświetleń:	Ostatni post
	Kod MD5	Dadinio	2	1,663	21-04-2015, 16:01 Ostatni post: Dadinio
	Visual Basic 2010 Express	PaulRcootiC	1	1,872	26-01-2014, 13:05 Ostatni post: matek697
	Virtual Basic- info o wirusie	As7	5	1,829	29-07-2013, 00:11 Ostatni post: JaviDesire
	Problem z Visual Basic	WazzaP	4	2,443	18-07-2013, 17:18 Ostatni post: Coristo
	Visual Basic 2 textboxy	Jojo693	7	2,272	05-06-2013, 18:47 Ostatni post: ceha_wb

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