Threaded Mode | Linear Mode

FreckleS · 12-20-2009, 11:26 AM

Code:

Imports System.Management

Public Class Form1

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

        ALP()

    End Sub

    Friend Function GetVolumeSerial(Optional ByVal strDriveLetter As String = "C") As String

        Dim hds As ManagementObject = New ManagementObject(String.Format("win32_logicaldisk.deviceid=""{0}:""", strDriveLetter))

        hds.Get()

        Return hds("VolumeSerialNumber").ToString()

    End Function

    Private Sub ALP()

        Select Case (GetVolumeSerial())

            Case Is = "58057611"

                MessageBox.Show("Anti-Leak Protection Passed" & vbCrLf & "Welcome Jarrad Freck - Creator", "Success")

            Case Is = "F85A4208"

                MessageBox.Show("Anti-Leak Protection Passed" & vbCrLf & "Welcome Jean Doe - Customer", "Success")

            Case Is = "C457CD21"

                MessageBox.Show("Anti-Leak Protection Passed" & vbCrLf & "Welcome John Smith - Beta Tester", "Success")

            Case Else

                MessageBox.Show("Anti-Leak Protection Failed", "Failed")

                Application.Exit()

        End Select

    End Sub

End Class

_VB_ · 12-20-2009, 11:30 AM

very nice now if i can jus use this in vb6 ill be fine Big Grin

FreckleS · 12-20-2009, 11:40 AM

Quick google:
http://www.thevbzone.com/wwwboard/messages/415.html

I hate vb6 so I am not going to get involved Smile

_VB_ · 12-20-2009, 01:06 PM

roflcopter

_VB_ · (This post was last modified: 01-16-2010 09:10 AM by _VB_.)

problem solved nvm

***drdebcol*** · 01-16-2010, 03:08 AM

Very good though i don't understand some parts including that hexadecimal values !

codecaine · (This post was last modified: 01-16-2010 05:27 AM by codecaine.)

Yea I did the same thing in delphi using the hd serial here is the api in delphi to get the hd serial
http://www.planetsourcecode.com/vb/scrip...1&lngWId=7