DPM2016/DPMLizenzmanagement/DPMLizenzmanagement/Form1.vb

Imports System.Security.Cryptography
Imports System.IO
Public Class Form1
    Dim ckeygen As New SHUKeyGen.clsKeyGen("", "", "", "", "", ":DPMKEY:", "Steafn Hutter Unternehmensberatung, 8808 Pfäffikon SZ")
    Dim ds As New DataSet
    Dim OnLoad As Boolean = True

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        ds.ReadXml(Application.StartupPath + "\keygendata.xml")
        Me.ComboBox1.Items.Clear()
        For Each r As DataRow In ds.Tables(0).Rows
            Me.ComboBox1.Items.Add(r(0))
        Next
        OnLoad = False
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        GenNewKey_Class()
        Me.ToolStripStatusLabel1.Text = ckeygen.Status
    End Sub

    Private Sub GenNewKey_Class()
        Me.ckeygen.Lizenznahmer = Me.txtLizenznehmer.Text
        Me.ckeygen.Seriennummer = Me.txtSN.Text
        Me.ckeygen.Produktname = Me.txtProductName.Text
        Me.ckeygen.Gueltigbis = Me.DateTimePicker1.Value.ToShortDateString
        Me.ckeygen.Lizenzgeber = Me.txtLizenzgeber.Text

        ckeygen.Option1 = Me.CheckBox1.Checked
        ckeygen.Option2 = Me.CheckBox2.Checked
        ckeygen.Option3 = Me.CheckBox3.Checked
        ckeygen.Option4 = Me.CheckBox4.Checked
        ckeygen.Option5 = Me.CheckBox5.Checked
        ckeygen.Option6 = Me.CheckBox6.Checked
        ckeygen.GenNewKey()
        Me.lblclasskey.Text = ckeygen.KeyCode
        Me.txtKeyCode.Text = ckeygen.KeyCode
        Me.ToolStripStatusLabel1.Text = ckeygen.Status

    End Sub

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        Me.ckeygen.Save_Licensefile()
        Me.ToolStripStatusLabel1.Text = ckeygen.Status
        Exit Sub
    End Sub

    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
        Me.txtLizenzgeber.Text = ""
        Me.txtSN.Text = ""
        Me.txtProductName.Text = ""
        Me.txtLizenzgeber.Text = ""
        Me.txtKeyCode.Text = ""
        Me.DateTimePicker1.Value = Now()
        Me.CheckBox1.Checked = False
        Me.CheckBox2.Checked = False
        Me.CheckBox3.Checked = False
        Me.CheckBox4.Checked = False
        Me.CheckBox5.Checked = False
        Me.CheckBox6.Checked = False
        Me.lblLizenznehmer.Text = ""
        Me.ckeygen.Read_LicenseFile("")
        Me.txtKeyCode.Text = ""
        Me.txtLizenznehmer.Text = ckeygen.Lizenznahmer
        Me.txtSN.Text = ckeygen.Seriennummer
        Me.txtProductName.Text = ckeygen.Produktname
        Me.ComboBox1.Text = ckeygen.Produktname
        Me.DateTimePicker1.Value = ckeygen.Gueltigbis
        Me.txtLizenzgeber.Text = ckeygen.Lizenzgeber
        Me.lblclasskey.Text = ckeygen.KeyCode
        Me.CheckBox1.Checked = ckeygen.Option1
        Me.CheckBox2.Checked = ckeygen.Option2
        Me.CheckBox3.Checked = ckeygen.Option3
        Me.CheckBox4.Checked = ckeygen.Option4
        Me.CheckBox5.Checked = ckeygen.Option5
        Me.CheckBox6.Checked = ckeygen.Option6
        Me.ToolStripStatusLabel1.Text = ckeygen.Status
        Me.txtKeyCode.Text = ckeygen.KeyCode
        Exit Sub

    End Sub

    Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
        Dim t As New DataTable
        t.TableName = "Produkte"
        t.Columns.Add("Produktname")
        t.Columns.Add("SerienNummer")
        t.Columns.Add("Lizenzgeber")
        t.Columns.Add("Option1")
        t.Columns.Add("Option2")
        t.Columns.Add("Option3")
        t.Columns.Add("Option4")
        t.Columns.Add("Option5")
        t.Columns.Add("Option6")
        Dim r As DataRow = t.NewRow
        r(0) = "Dental Practice Manager - Alle Optonen"
        r(1) = "1.001.2018"
        r(2) = "Stefan Hutter Unternehmensberatung, 8808 Pfäffikon"
        r(3) = "Multi-Database;1"
        r(4) = "Report-Designer;1"
        r(5) = "Firmendaten;1"
        r(6) = "Dokumentenmanagement;0"
        r(7) = "n.a.;0"
        r(8) = "Demo-Modus;0"
        t.Rows.Add(r)
        Dim ds As New DataSet
        ds.Tables.Add(t)

        ds.WriteXml("K:\keygendata.xml")
    End Sub


    Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged
        If OnLoad = True Then Exit Sub
        For Each r As DataRow In ds.Tables(0).Rows
            If r(0) = Me.ComboBox1.Text Then
                Me.txtLizenzgeber.Text = r.Item("Lizenzgeber")
                Me.txtSN.Text = r.Item("Seriennummer")
                Me.txtProductName.Text = r.Item("Produktname")
                Dim s As String

                s = Microsoft.VisualBasic.Right(r.Item("Option1"), 1)
                If s = "1" Then Me.CheckBox1.Checked = True Else Me.CheckBox1.Checked = False
                s = Microsoft.VisualBasic.Left(r.Item("Option1"), Len(r.Item("Option1")) - 2)
                Me.CheckBox1.Text = s

                s = Microsoft.VisualBasic.Right(r.Item("Option2"), 1)
                If s = "1" Then Me.CheckBox2.Checked = True Else Me.CheckBox2.Checked = False
                s = Microsoft.VisualBasic.Left(r.Item("Option2"), Len(r.Item("Option2")) - 2)
                Me.CheckBox2.Text = s

                s = Microsoft.VisualBasic.Right(r.Item("Option3"), 1)
                If s = "1" Then Me.CheckBox3.Checked = True Else Me.CheckBox3.Checked = False
                s = Microsoft.VisualBasic.Left(r.Item("Option3"), Len(r.Item("Option3")) - 2)
                Me.CheckBox3.Text = s

                s = Microsoft.VisualBasic.Right(r.Item("Option4"), 1)
                If s = "1" Then Me.CheckBox4.Checked = True Else Me.CheckBox4.Checked = False
                s = Microsoft.VisualBasic.Left(r.Item("Option4"), Len(r.Item("Option4")) - 2)
                Me.CheckBox4.Text = s

                s = Microsoft.VisualBasic.Right(r.Item("Option5"), 1)
                If s = "1" Then Me.CheckBox5.Checked = True Else Me.CheckBox5.Checked = False
                s = Microsoft.VisualBasic.Left(r.Item("Option5"), Len(r.Item("Option5")) - 2)
                Me.CheckBox5.Text = s

                s = Microsoft.VisualBasic.Right(r.Item("Option6"), 1)
                If s = "1" Then Me.CheckBox6.Checked = True Else Me.CheckBox6.Checked = False
                s = Microsoft.VisualBasic.Left(r.Item("Option6"), Len(r.Item("Option6")) - 2)
                Me.CheckBox6.Text = s
            End If
        Next

    End Sub



End Class