Lizenz Schutz umcoden

  • VB.NET

Es gibt 2 Antworten in diesem Thema. Der letzte Beitrag () ist von Nikx.

    Lizenz Schutz umcoden

    hallo,

    so siht mein aktueller Lizenz Schutz aus:

    Quellcode

    1. Public Class Form1
    2. Dim Web As New System.Net.WebClient
    3. Dim EnteredSerial As String = ""
    4. Dim Serials As String = ""
    8. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    9. CheckSerial()
    10. End Sub
    12. Sub CheckSerial()
    13. 1: EnteredSerial = InputBox("Bitte Serial Eingeben!")
    14. If EnteredSerial = "" Then
    15. MsgBox("Bitte gebe einen SerialKey ein!")
    16. GoTo 1
    17. End If
    20. Serials = Web.DownloadString("http://127.0.0.1/license.txt")
    21. If Not Serials.Contains(EnteredSerial) Then
    22. MsgBox("Der SerialKey war Falsch!")
    23. GoTo 1
    24. Else
    25. MsgBox("Der SerialKey war Richtig!")
    26. End If
    27. End Sub
    28. End Class


    Ich möchte diesen aber Gerne mit Textbox und Button haben.
    Also dass wenn man auf den Button klickt überprüft wird ob der jenige einen richtigen Key eingegeben hat.
    Hoffe es kann wer für mich machen komme nähmlich net weiter.

    mfg

    *Topic verschoben*

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „hal2000“ ()

    Ich schrei hurra wenn ich sowas wieder sehe. Naja, was solls.

    VB.NET-Quellcode

    1. Public Class Form1
    2. Dim Web As New System.Net.WebClient
    3. Dim EnteredSerial As String = ""
    4. Dim Serials As String = ""
    8. Private Sub ButtonName_Click(ByVal sender as object) Handles Button1.Click 'oder so
    9. CheckSerial()
    10. End Sub
    12. Sub CheckSerial()
    13. EnteredSerial = TextBoxName.Text
    14. Serials = Web.DownloadString(New Uri(http://127.0.0.1/license.txt))
    16. If Serials.Contains(TextBox1.Text) Then
    17. MessageBox.Show("BlaBliBlu RICHTIG")
    18. Else
    19. MessageBox.Show("BlaBliBlu FALSCH")
    20. End Sub
    21. End Class


    Finde den Fehler.
    "Life isn't about winning the race. Life is about finishing the race and how many people we can help finish the race." ~Marc Mero

    Nun bin ich also auch soweit: Keine VB-Fragen per PM! Es gibt hier ein Forum, verdammt!

Facebook
Telefonspende