vb project

[MartinJM]

@JoZ1: Ik begreep dat hanonymouss bedoelde dat die code maar 1 keer gevraagd hoeft te worden. De code die jij hem hebt gegeven, zorgt er (op deze manier gebruikt) alleen maar voor dat de code die je invult, gecheckt word met een code in de settings...


@hanonymouss:

Wat je kan doen is, zodra een gebruiker een goede code heeft ingevoerd, die code opslaan in de settings.

Dat kan zo:

if textbox1.text = "JOUW CODE" then
     My.Settings.key = textbox1.text 'Hier kan je ook jouw code invoeren ("JOUW CODE")
     My.Settings.Save()
end if

Dan moet je wel bij iedere keer opstarten checken of er iets in die setting staat:

If NOT My.Settings.key = "JOUW CODE" 'Je kan ook: if My.settings.key <> "" doen, maar dit kan ook
     'om code vragen
end if

 

[JoZ1]

@MartinJM: Ja dat klopt. Alleen het handige van settings is dat het bewaard wordt. Je kunt nu nog een setting aanmaken, die veranderd als het product gevalideerd is. Dat wilde ik later pas duidelijk maken omdat ik denk dat-ie dit al moeilijk begrijpt .

En over jouw code: Waarom voeg je een code toe die de gebruiker bedenkt? Die moet-ie toch juist verkrijgen?

Ik vind, bij nader inzien, de manier van wicherh wel handig:

Maak een setting of het product gevalideerd is (boolean);
Maak een bestandje (ergens in Temp o.i.d. in ieder geval goed verstopt)
Check of de serial overeenkomt met het bestandje;
Zo ja, zet de setting op True;
Als de setting op 'True' staat, dan controleert-ie niet, anders wel.

Klaar is Kees

 

[hanonymouss]

kun je een voorbeeld van geven dat opslaan.

 

[wicherh]

http://msdn.microsoft.com/en-us/library/system.io.streamreader.aspx
http://msdn.microsoft.com/en-us/library/system.io.streamwriter.aspx

Kijk bij de voorbeelden op deze pagina's

 

[hanonymouss]

Heb geprobeerd, maar da lukte niet. de settings heb ik op key gezet en de value op KG-GHKLT-NHGKJ-IUYTL-NBDGE-JHRGB



VOORBEELD VAN DE CODE:

If TextBox1.Text = "KG-GHKLT-NHGKJ-IUYTL-NBDGE-JHRGB" Then
            My.Settings.key = TextBox1.Text 'KG-GHKLT-NHGKJ-IUYTL-NBDGE-JHRGB'
            My.Settings.Save()

            MsgBox("Proficiat uw product is geactiveerd. U beschikt over de volledige Functionaliteit van het programma. ", MsgBoxStyle.Information, "Geactiveerd")

            Form1.Button5.Enabled = True

 

[JoZ1]

Hier een voorbeeldproject: http://www.mediafire.com/?oe4oucxa60vweyr

 

[hanonymouss]

Het zegt wel dat het reeds is gevalideerd als ik mijn productcode geef, maar mijn buttons blijven nog inactief.
ZIE DEZE FILMPJE:http://www.mediafire.com/?gh93mdjm6jtv2o9

En leg mij eens uit hoe die bestandje aanmaakt desnoods maak er een filmpje van.

HELP

 

[JoZ1]

Ik heb je filmpje gezien.

Voeg dit eens toe:

[cpp]Private Sub Start_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
If My.Settings.key = True Then
''//zet alles actief
End If
End Sub[/cpp]

Vervang 'zet alles actief' met jouw code om de Buttons te activeren.

 

[hanonymouss]

waar kan ik deze vindenrivate Sub Start_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
die start_load ?

 

[JoZ1]

Gewoon zelf toevoegen.

 

[hanonymouss]

welke button is dat of moet ik dat schrijven?

 

[JoZ1]

Huh? Gewoon die code kopiëren en toevoegen. En dan dat 'zet alles actief' vervangen door jouw code. (Om die buttons te activeren)

 

[hanonymouss]

Statement is not valid in a namespace.

 

[JoZ1]

Je moet hem dan ook wel in een class plaatsen

 

[hanonymouss]

DIT HEB IK GEDAAN:

Private Sub Start_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        If My.Settings.key = True Then
 Form1.Button5.Enabled = True
                Form1.Button6.Enabled = True
                Form1.TextBox2.Enabled = True
                Form1.LinkLabel3.Enabled = True
                  End If
    End Sub

CLASS ?

 

[JoZ1]

Een class eindigt altijd met: End Class. Dus je hebt het niet gedaan .

Voorbeeld:

[CPP]Public Class Form1

End Class[/CPP]

Hier moet-ie gewoon tussen staan, dat is alles .
(Die hoort er al te staan, bij een form genaamd Form 1. Je hoeft dus geen nieuwe aan te maken!)

 

[hanonymouss]

DANK U WEL VRIEND!!!! HET IS EINDELIJK GELUKT!!!!!!!:d

 

[JoZ1]

Heel goed .

Zet je de vraag even op opgelost?

 

[hanonymouss]

Sorry dat ik je weer lastig val, maar het werkt niet meer .
Heb je echt geen andere idee zoals je ervoor zei met een teksbestandje. of instellingen opslaan in een register of iets anders

HELP!!

 

[JoZ1]

Je hoeft je niet te verontschuldigen! We zijn er tenslotte om elkaar te helpen .

Kun je uitleggen wát er niet meer werkt? En hoe je dat kunt zien?