Kod do Visual Basic - Wersja do druku

Kod do Visual Basic - Wersja do druku

+- Praca w domu - Dodatkowa Praca - Zarabianie przez Internet (https://zarabiam.com)
+-- Dział: CPA, PPA i content locking (https://zarabiam.com/Forum-Uploading-282)
+--- Dział: Dyskusje o uploadingu (https://zarabiam.com/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

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

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

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

(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

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

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