[TUT] How to protect your program using your Windows Serial Key [VB.NET]

[KoBE]

I don't understand why you would want two forms for this, or why you would use:

Code:

Label1.Text = WindowsSerial

if you arent even using Label1.

If you used this as your Form1_Load it it would work just fine w/ one form.

Code:

Dim MOS As ManagementObjectSearcher = New ManagementObjectSearcher("Select * From Win32_OperatingSystem")
Dim MO As System.Management.ManagementObject
Dim MOC As System.Management.ManagementObjectCollection = MOS.Get
Dim WindowsSerial As String = String.Empty
For Each MO In MOC
WindowsSerial = MO("SerialNumber")
Next
If WindowsSerial = "YOUR WINDOWS SERIAL" Then
    Me.Opacity = 100
Else
    MsgBox("Your windows serial does not match.")
    Me.close
End If

Good share none the less.