Kirjautuminen

Haku

Tehtävät

Keskustelu: Koodit: VB6: Rekisteröimiskoodi

ossi.heino1991 [12.12.2003 08:34:40]

#

Joku on varmaan ihmetellyt, että miten tulee toimimaan aina eri rekisteröintikoodi, ettei sitä "aina samaa" aleta levittämään ettenpäin Internetissä. Olen löytänyt yksin kertaisen vastauksen pitkän ohjelmoinnin tuloksena! Tämä on vasta koe, ja sitä saa muokata oman mielensä mukaan!

Form1

Private Sub Form_Load()
' Arvotaan rekisterinumerot
Randomize
Tunnus1 = Int(Rnd * 150)   ' Voihan luku olla suurempi
SaveSetting App.EXEName, "Tunnukset", "Tunnus1", Tunnus1
' Uusi Randomize, että ei tule samaa lukua mitä äsken!
Randomize
Tunnus2 = Int(Rnd * 150)
SaveSetting App.EXEName, "Tunnukset", "Tunnus2", Tunnus2
' Jatka samaan malliin, kunnes luvut alkavat riittää!
End Sub

Form2

Private Sub Form_Load()
' Tähän tarvitset labeleita ja textboxeja niin monta,
' kuin on lukuja!
' Pistetään muutama DIMI koneen kiusaamiseksi!
Dim Luku1 As Long
Dim Luku2 As Long
' Pistä niin monta dimiä kuin on tarvis!
Luku1 = GetSetting(App.EXEName, "Tunnukset", "Tunnus1")
Label1.Caption = Luku1
Luku2 = GetSetting(App.EXEName, "Tunnukset", "Tunnus1")
Label2.Caption = Luku2
End Sub

Command1.Click

Private Sub Command1_Click()
' Tarkastetaan onko luvut oikeat... Laskutoimitus on
' sinun ongelma, minkä laitat siihen. Se voi olla
' Pitkäkin
OikeaLuku1 = (Label1.Caption + 7 * 9)
OikeaLuku2 = (Label2.Caption + 7 * 9)
If Text1.Text = OikeaLuku1 Then
    If Text2.Text = OikeaLuku2 Then
        ' Luvut olivat oikeat!!!
        MsgBox "Nyt voit asettaa tähän Rekisterin Tallennuk_
        sen"
        ' Esim.
        Rekisteröinti = OK
        SaveSetting App.EXEName, "Rekisteri", "Annettu",_
        Rekisteröinti
    End If
End If
' Voit muokata oman mielesi mukaan!
End Sub

Vastaus

Aihe on jo aika vanha, joten et voi enää vastata siihen.

Tietoa sivustosta