form1.vb

这是我自己用VB.NET编写的一款监护仪的电脑软件

Imports Microsoft.Win32
Public Class 软件注册

    Private Sub Code1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Code1.TextChanged
        If Me.Code1.Text.Length >= 5 Then
            Me.Code2.Focus()
        End If
    End Sub

    Private Sub Code2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Code2.TextChanged
        If Me.Code2.Text.Length >= 3 Then
            Me.Code3.Focus()
        End If
    End Sub

    Private Sub Code3_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Code3.TextChanged
        If Me.Code3.Text.Length >= 5 Then
            Me.Register.Focus()
        End If
    End Sub

    Private Sub Register_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Register.Click
        If Me.Code1.Text = Login.Part1 Then
            If Me.Code2.Text = Login.Part2 Then
                If Me.Code3.Text = Login.Part3 Then
                    '添加注册表
                    Dim RootKey As String = Registry.LocalMachine.ToString & "\Software\ODBC\ODBC.ini"
                    Dim MyNewKeys As String = RootKey & "\BestmanTMD"
                    Registry.SetValue(MyNewKeys, "MACCODE", Login.MachineSN)
                    Registry.SetValue(MyNewKeys, "REGCODE", Login.RegisterSN)
                    MessageBox.Show("Thank you for your registering ！Now you can use our software normally！", "Succeed", MessageBoxButtons.OK, MessageBoxIcon.Information)
                    Close()
                End If
            End If
        End If
        If Me.Code1.Text <> Login.Part1 Or Me.Code2.Text <> Login.Part2 Or Me.Code3.Text <> Login.Part3 Then
            MessageBox.Show("Invalid RegisterCode！", "Error", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
        End If
    End Sub


    Private Sub 软件注册_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.MachineCode.Text = Login.MachineSN
    End Sub

    Private Sub GetCode_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GetCode.Click
        System.Diagnostics.Process.Start("www.szbestman.com")
    End Sub
End Class