aktiver program

Læsning og skrivning fra registreringsdatabasen:

Imports Microsoft.Win32

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        TjekForAktivering()

        AktiverProgram("716939")
    End Sub

    ' Tjek for aktivering

    Private Sub TjekForAktivering()
        Dim localMachineNøgle As RegistryKey = Registry.LocalMachine

        Dim aktiveringNøgle As RegistryKey = localMachineNøgle.OpenSubKey("SOFTWARE\nielle")

        If aktiveringNøgle Is Nothing Then
            DemoBesked()
        Else
            Dim aktiveringNøgleVærdi As String = aktiveringNøgle.GetValue("nøgle")
            If aktiveringNøgleVærdi Is Nothing Then
                DemoBesked()
            Else
                If Not ValiderAktivering(aktiveringNøgleVærdi) Then
                    DemoBesked()
                End If
            End If
        End If
    End Sub

    Private Function ValiderAktivering(ByVal nøgleVærdi As String) As Boolean
        If nøgleVærdi = "716939" Then
            Return True
        Else
            Return False
        End If
    End Function

    Private Sub DemoBesked()
        MessageBox.Show("Du køre en demo version")
    End Sub

    ' Opret aktivering

    Private Sub AktiverProgram(ByVal nøgleVærdi As String)
        Dim localMachineNøgle As RegistryKey = Registry.LocalMachine

        Dim softwareNøgle As RegistryKey = localMachineNøgle.OpenSubKey("SOFTWARE", True)
        Dim aktiveringNøgle As RegistryKey = softwareNøgle.CreateSubKey("nielle")

        aktiveringNøgle.SetValue("nøgle", nøgleVærdi)
    End Sub

End Class

Har du fået kigget på det?

nielle >> jeg tror gerne han vil have lidt fortsat hjælp til dit forslag :

http://www.eksperten.dk/spm/728949

/Websam

Lukket