Форум Команды NeTTeam

Код берет номер матрицы диска и позволяет запускать программу только с конкретного CD


'Sample:

Private Function GetVolumeSerial(ByVal DriveLetter As String) As String

    'Check for valid drive letter argument.
    Dim ValidDriveLetters As String = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
    If ValidDriveLetters.IndexOf(DriveLetter) <> -1 Then
    If DriveLetter.Length = 1 Then
        Dim Disk As New System.Management.ManagementObject("Win32_LogicalDisk.DeviceID=""" & DriveLetter & ":""")
        Dim DiskProperty As System.Management.PropertyData
        For Each DiskProperty In Disk.Properties
        If DiskProperty.Name = "VolumeSerialNumber" Then
            Return DiskProperty.Value.ToString  '.ToString 'Return the volume serial number.
        End If
        Next DiskProperty
    End If
    End If
    Return Nothing 'Invalid drive letter.

End Function


'DiskProperty.Value.ToString - в этой переменной будет храниться 'список серийников

Узнаем разрешение экрана

MsgBox(System.Windows.Forms.Screen.PrimaryScreen.Bounds.Width & "x" & _
      System.Windows.Forms.Screen.PrimaryScreen.Bounds.Height)