vb project

[hanonymouss]

Goeiendag,

ik heb een programma gemaakt dat voor een productcode vraagt.
Alles werkt uitstekend op één na: als ik mijn programma heb gedibugd en ik voer het productcode werkt alles correct, maar als ik mijn programma weer opstart moet ik de productcode weer geven ?

hier is de code:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
      
        If TextBox1.Text = "KG-GHKLT-NHGKJ-IUYTL-NBDGE-JHRGB" Then
            MsgBox("Product Geactiveerd.", MsgBoxStyle.Information, "Geactiveerd")
            Form1.GroupBox4.Enabled = True
            Form1.Button5.Enabled = True
            Form1.Button6.Enabled = True
            Form1.TextBox2.Enabled = True
            Form1.LinkLabel3.Enabled = True
            Form1.LinkLabel1.Enabled = True

             Form1.ZoekenNaarUpdatesToolStripMenuItem1.Enabled = True

            Form1.ProductRegistrerenToolStripMenuItem.Enabled = False
            Me.Close()

Kan iemand mij helpen A.U.B

 

[JoZ1]

Is dit Visual Basic.NET of VBA? (Dit is namelijk het VBA-forum).

Sla je ergens op dat je product geactiveerd is?
Als dat niet zo is, dan is het logisch dat er opnieuw wordt gevraagd de productcode in te voeren.

Het is trouwens handig als je Code-Tags zou gebruiken om je code leesbaarder te maken .

[edit]Topic is inmiddels verplaatst en de code-tags toegevoegd door een moderator. (Die informatie helpt jullie mijn post begrijpen )[/edit]

[edit]Ik ben je trouwens vergeten welkom te heten op Helpmij! . Alsnog: Welkom op Helpmij.nl [/edit]

 

[huijb]

Een volgend keer wel even opletten waar de vraag geplaatst moet worden.

 

[hanonymouss]

Maar hoe doe je dat ?

 

[JoZ1]

Hoe doe je wàt? A.u.b. wat duidelijker zijn .

 

[hanonymouss]

Heb jij een idee van ?

 

[JoZ1]

Maar hoe doe je dat ?
Heb jij een idee van ?

Ben je het met me eens dat dat ietwat onduidelijk is? Onthoud dat ik geen glazen bol heb.

 

[hanonymouss]

Hoe doe je wàt? A.u.b. wat duidelijker zijn .

Je zei dat ik dat ergens moet opslaan. Welke code kan ik dan gebruiken om dat te doen ?

 

[hanonymouss]

Ben je het met me eens dat dat ietwat onduidelijk is? Onthoud dat ik geen glazen bol heb.

Ik heb gisteren de vraag gesteld dat ik constant een productctcode moest ingeven van wanneer ik mijn programma opstart.
Jij zei dan "Sla je ergens op dat je product geactiveerd is?
Als dat niet zo is, dan is het logisch dat er opnieuw wordt gevraagd de productcode in te voeren."

Hoe kan ik dat voorkomen?

 

[JoZ1]

Eventueel in een setting opslaan:

Ga naar My Project in de Solution Explorer:

Ga dan naar Settings:

Maak dan een nieuwe setting aan:

Code om setting op te halen:

(Ik noem de setting even 'key')

[CPP]Console.WriteLine(My.Settings.Key)[/CPP]

Code om setting te veranderen:

[CPP]My.Settings.Key = "test"
My.Settings.Save()[/CPP]

 

[hanonymouss]

Moet ik een console openmaken ? voor dit of kan ik dat bij mijn eigen programma settings
PS: wat is cpp ?

 

[JoZ1]

Daar hoef je geen console application voor te gebruiken. Ik gebruikte gewoon Console.WriteLine om aan te geven hoe je de waarde van die setting opvraagd.
Je kan ook zo doen:

[cpp]Dim Key As String = My.Settings.key[/cpp]

Nu staat de waarde in de string 'Key'.


CPP betekend C++, wat een andere programmeertaal is.
Ik gebruik die tags omdat je dan redelijk goede VB syntaxis highlighting hebt.

 

[hanonymouss]

Maar waar moet ik die code invoeren ?

 

[JoZ1]

OK, laat je huidige code zien, dan pas ik het wel voor je aan.

Is de setting maken wel gelukt?

 

[crash]

Welkom op Helpmij.nl.

Het is niet nodig te citeren als je direct reageert. De topics worden anders zo lang, met dezelfde tekst.

 

[JoZ1]

[CPP]If TextBox1.Text = My.Settings.key Then[/CPP]

(Als je setting 'key' heet)


Eigenlijk is het niet handig om steeds voor elk product dezelfde sleutel te gebruiken, maar goed... Voor kleine projectjes is het niet zo erg.



O, en ik zie dat je dit in je code hebt staan:

[cpp] Console.WriteLine(My.Settings.key)
My.Settings.key = "test"
My.Settings.Save()[/cpp]

Dat hoeft natuurlijk niet. Dat was gewoon een voorbeeld van hoe je met settings om gaat. Snap je?

 

[hanonymouss]

filmpje van programma

In deze filmpje zie jij mijn project: http://www.mediafire.com/?s1qsqo76euckqrm

Als deze optie niet werkt, vraag ik dan vriendelijk of je een andere mogelijkheid heb om mijn product te regisreren. Ik heb ook iets van "intergrate license feature in vb ?

 

[JoZ1]

OK, zoals ik al eerder zei:

Haal deze code weg, dat was slechts een voorbeeld hoe je met settings om moet gaan:

[CPP]Console.WriteLine(My.Settings.key)
My.Settings.key = "test"
My.Settings.Save()[/CPP]

Verander dit:

[CPP]If TextBox1.Text = "KG-GHKLT-NHGKJ-IUYTL-NBDGE-JHRGB" Then[/CPP]

in dit:

[CPP]If TextBox1.Text = My.Settings.key Then[/CPP]

Dan moet het werken, hoewel je dan maar één key hebt, wat niet handig is. Je kan dan beter, zoals jij zei, dit gebruiken: http://www.advancedinstaller.com/user-guide/tutorial-licensing.html. Heb je daar al naar gekeken? Ik heb het pas net ontdekt doordat jij het zei . Als je daar uitkomt is dat natuurlijk beter!

Mooi programma trouwens! (hoewel keygenerators voor betaalde software natuurlijk illegaal zijn...)

 

[hanonymouss]

SIZE][/QUOTE]

ik heb de volgende gedaan : Ik heb mijn settings gezet op (key) en de value op (KG-GHKLT-NHGKJ-IUYTL-NBDGE-JHRGB). en in mijn programma heb ik deze code ingevuld:
[CPP][/CPP]If TextBox1.Text = my.settings.key Then
MsgBox("Product Geactiveerd.", MsgBoxStyle.Information, "Geactiveerd")
my.settings.save()

Form1.Button5.Enabled = True

het werkte niet. Die intergrate license feature vb 2010 is met een setup en da wil ik niet.
Misschien ken jij de code ervan om dat te doen.
IK BEN TEN EINDE RAAD

 

[wicherh]

Hier ik zou dan vertellen hoe het moet.

1. Lees "serial"(bestandje)
2. Als het bestand je bestaat ga dan naar stap 4
3. Vraag om serial in te voeren aan.
4. Kijk of de serial in het bestandje of die je hebt gevraagd oke is
5. Als die oke is sla serial op in het bestandje "serial", als de serial fout is sluit het programma ga naar stap 3.