用vb.net基于Windows序列号进行软件加密，使用 DES 对称加密算法进行加密，密钥由自定义的字符串和 Windows 序列号拼接而成，新建一个窗体formA，窗体formA中有3个控件Button1，TextBox1和TextBox2，程序运行时初始化TextBox1的值为序列号，当用户在TextBox2输入正确的注册码时，提示注册成功，否则提示注册码不对.

好的，根据您的要求，我们可以使用 DES 对称加密算法对注册码进行加密，密钥由自定义的字符串和 Windows 序列号拼接而成。以下是相应的代码：

Imports System.Management
Imports System.Security.Cryptography
Imports System.Text

Public Class FormA
    Private Sub FormA_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        '获取Windows序列号
        Dim mc As New ManagementClass("Win32_OperatingSystem")
        Dim moc As ManagementObjectCollection = mc.GetInstances()
        For Each mo As ManagementObject In moc
            TextBox1.Text = mo("SerialNumber").ToString()
            Exit For
        Next
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        '定义密钥
        Dim key As String = "YourCustomKey" & TextBox1.Text

        '加密注册码
        Dim encrypted As String = Encrypt(TextBox2.Text, key)

        '判断注册码是否正确
        If encrypted = "YourEncryptedRegistrationCodeHere" Then
            MessageBox.Show("注册成功！")
        Else
            MessageBox.Show("注册码不对，请重新输入！")
        End If
    End Sub

    '加密函数
    Private Function Encrypt(ByVal plainText As String, ByVal key As String) As String
        Dim des As New DESCryptoServiceProvider()
        Dim inputByteArray() As Byte = Encoding.Default.GetBytes(plainText)
        des.Key = Encoding.ASCII.GetBytes(key.Substring(0, 8))
        des.IV = Encoding.ASCII.GetBytes(key.Substring(0, 8))
        Dim ms As New System.IO.MemoryStream()
        Dim cs As New CryptoStream(ms, des.CreateEncryptor(), CryptoStreamMode.Write)
        cs.Write(inputByteArray, 0, inputByteArray.Length)
        cs.FlushFinalBlock()
        Return Convert.ToBase64String(ms.ToArray())
    End Function
End Class

请注意，上面的代码中，您需要将"YourCustomKey"替换为您的自定义字符串，同时将"YourEncryptedRegistrationCodeHere"替换为您的加密后的注册码。

在窗体FormA中，有一个TextBox1用于显示获取到的Windows序列号，一个TextBox2用于用户输入注册码，一个Button1用于触发注册操作。

当程序运行时，窗体FormA的Load事件将会自动获取Windows序列号并显示在TextBox1中。当用户在TextBox2中输入注册码并点击Button1时，程序将会将注册码使用自定义字符串和Windows序列号拼接成密钥，并使用DES对称加密算法对其加密。然后，程序将会判断加密后的注册码是否与预设的加密后的注册码相同，如果相同则弹出注册成功的提示框，否则弹出注册码不对的提示框。

希望这段代码可以满足您的需求！