Shareware erstellen VB

[Jannik]

Hey Leute,

kann mir vielleicht jemand sagen, wie ich aus einem normalen VB-Programm eine Shareware mache. Einen kleinen Ansatz habe ich schon:

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
If Not TextBox1.Text = "1111-1111-1111-1111" Then MsgBox("Serial ist falsch. Bitte versuchen sie es noch einmal!")
If TextBox1.Text = "1111-1111-1111-1111" Then MsgBox("Erfolgreich registriert")
If TextBox1.Text = "1111-1111-1111-1111" Then Form2.Show()
End Sub

Aber irgendwie soll sich das auch noch in der Registrierung speichern, damit man nicht immer den Key beim starten des Programmes eingeben muss...

Vielleicht hat jemand ja ein paar Vorschläge für mich...

Bis dann,

Jannik93

 

[kevin]

Irgendwie passt der Code zur Frage nicht. Nicht mal ansatzweiße -.-

Den gleichen Code haste hier schon gepostet xD

http/www.freesoft-board.to/f155/form1-vb-schliessen-wenn-form2-vb-per-button-geoeffnet-wird-305484.html

kevin

 

[Jannik]

sry, eigentlich möchte ich nur wissen was hierdran falsch ist...

und dann wie ich das in der Registrierung speichern kann...

Jannik93

 

[kevin]

Hi,

die Lösung für dein erstes Problem sollte etwa so aussehen:

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

If TextBox1.Text = "1111-1111-1111-1111" Then
MsgBox("Erfolgreich registriert")
Form2.Show()
Me.Visible = False
Else
MsgBox("Serial ist falsch. Bitte versuchen Sie es noch einmal!")
End If
End Sub

kevin

 

[Jannik]

danke kann geclosed werden...

=->ClosedCENTER]​

 

[Feuerstein]

Hi

nicht das Präfix umstellen vergessen, sonst gibts Punkte!

http://www.freesoft-board.to/f37/wichtig-funktion-praefixumstellung-238168.html

Shadow

Ui hab ich verpasst, dasa wir einen neuen Moderator haben?