Sehr verehrte Community,
wie kann ich es einstellen, bzw. welchen Code benötige ich, um eine Produktkeyabfrage zu machen, diese aber nur beim aller ersten mal erscheint.
Sollte dieser dann richtig sein, soll die Codeabfrage nicht mehr kommen.
P.S.: Den Code für den Produktkey habe ich schon benötige nur noch den Code für das einmalige abfragen, falls er richtig ist.
Grüße
CODE:
wie kann ich es einstellen, bzw. welchen Code benötige ich, um eine Produktkeyabfrage zu machen, diese aber nur beim aller ersten mal erscheint.
Sollte dieser dann richtig sein, soll die Codeabfrage nicht mehr kommen.
P.S.: Den Code für den Produktkey habe ich schon benötige nur noch den Code für das einmalige abfragen, falls er richtig ist.
Grüße
CODE:
VB.NET-Quellcode
- Sub Checkserial()
- 1: EnteredSerial = InputBox("Bitte geben Sie ihren Serialkey ein, wenn sie Ihn gerade nicht zu Hand haben, geben Sie einen Wert 'XY' ein und starten Sie das Programm danach erneut !")
- If EnteredSerial = "" Then GoTo 1
- Serials = Web.DownloadString("LINK")
- If Not Serials.Contains(EnteredSerial) Then Application.Exit()
- MsgBox("Der Serialkey wurde akzepiert ! Das Programm 'Express-Mail' startet jetzt !")
- End Sub