Witaj gościu! Zaloguj się lub Zarejestruj aby móc korzystać ze wszystkich funkcjonalności jakie oferuje to forum! Rozpocznij zarabianie przez internet, poznaj korzysci pracy w domu! Rejestracja i korzystanie z forum jest całkowicie darmowe!
Praca w domu - Dodatkowa Praca - Zarabianie przez Internet
Kod do Visual Basic - Wersja do druku

+- 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: Kod do Visual Basic (/Temat-Kod-do-Visual-Basic-65138)

Kod do Visual Basic - AdrYan12 - 19-02-2013 14:53

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

RE: Kod do Visual Basic - 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

RE: Kod do Visual Basic - 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


RE: Kod do Visual Basic - 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ó*** ? Jerk2

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


RE: Kod do Visual Basic - mikifiki99 - 11-05-2013 14:02

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