VBNet - Форум - Серийник винта

Вопрос: Серийник винта Добавлено: 29.03.06 10:29

Автор вопроса: [root] | Web-сайт: bit.pirit.info

Есть функция, возвращает имя диска, фаловой системы и серийник.
Но!
Вопрос, что это за серийник?
У кого какие мысли?

Option Explicit

'MultiLine = True
Private Declare Function GetVolumeInformation Lib _
    "Kernel32" Alias "GetVolumeInformationA" _
    (ByVal lpRootPathName As String, _
    ByVal lpVolumeNameBuffer As String, _
    ByVal nVolumeNameSize As Long, _
    lpVolumeSerialNumber As Long, _
    lpMaximumComponentLength As Long, _
    lpFileSystemFlags As Long, _
    ByVal lpFileSystemNameBuffer As String, _
    ByVal nFileSystemNameSize As Long) As Long
Private Sub Form_Load()
Dim lngNumber As Long, strNameDisk As String, _
                    strNameSystem As String
strNameDisk = String$(255, Chr$(0))
strNameSystem = String$(255, Chr$(0))
GetVolumeInformation "D:\", strNameDisk, 255, _
        lngNumber, 0, 0, strNameSystem, 255
strNameDisk = Left$(strNameDisk, InStr(1, _
                    strNameDisk, Chr$(0)) - 1)
strNameSystem = Left$(strNameSystem, InStr(1, _
                  strNameSystem, Chr$(0)) - 1)
Text1 = ""
Text1 = "Имя диска D:\ " & strNameDisk & vbCrLf & _
"Фаловая система диска D:\ - " & strNameSystem & vbCrLf & _
"Серийный номер диска D:\ - " & Trim(Str$(lngNumber))
End Sub

Ответить

Ответы Всего ответов: 4

Номер ответа: 1 Автор ответа: LamerOnLine ICQ: 334781088 Вопросов: 108 Ответов: 2822	Профиль \| \| #1	Добавлено: 29.03.06 11:20
	Никаких. В голове шумит... Ответить

Номер ответа: 2 Автор ответа: Черный ворон Разработчик ICQ: 342881585 Вопросов: 32 Ответов: 256	Профиль \| \| #2	Добавлено: 29.03.06 12:08
	GetVolumelnformation Объявление В VB Declare Function GetVolumeInformation& Lib "kernel32" Alias _ "GetVolumelnformationA" (ByVal IpRootPathName As Stringy ByVal _ IpVolumeNameBuffer As String, ByVal nVolumeNameSize As Long, _ " IpVolumeSerialNumber As Long, IpMaximumComponentLength As Long, _ IpFileSystemFlags As Long, ByVal IpFileSystemNameBuffer As String, _ ByVal nFileSystemNameSize As Long) Описание: Функция получает информацию о дисковом томе. IpRootPathName String — корневой каталог тома IpVolumeNameBuffer String — заполняется именем тома nVolumeNameSize Long — длина строки IpVolumeNameBuffer IpVolumeSerialNumber Long — заполняется серийным номером тома IpMaximumComponentLength Long — заполняется максимальной длиной компонентов имени файла. Например, для файла C:\COMPONENTl\COMPONEN2.EXT это длина COMPONENT1 или COMPONENT2 IpFileSystemFlags Long — заполняется комбинацией флагов, определяемых следующими константами: FS_CASE_IS_PRESERVED: файловая система сохраняет ре¬гистр символов в именах файлов FS_CASE_SENSITTVE: в именах файлов различается ре¬гистр символов FS_UNICODE_STORED_ON_DISK: имена файлов хранятся в кодировке Unicode FS_PERSISTANT_ACLS: файловая система поддерживает ACL (списки управления доступом, Access Control List) FS_FILE_.COMPRESSION: файловая система поддерживает сжатие на уровне файлов FS_VOL_IS_COMPRESSED: весь том является сжатым IpFileSystemNameBuffer String — буфер, заполняемый названием файловой системы (например, FAT, NTFS и т. д.) nFileSystemNameSize Long — длина строки IpFileSystemNameBuffer Возвращаемое значение: Long — ненулевое значение в случае успеха, ноль при неудаче. Устанавливает информацию GetLastError. Платформа Windows 95, Windows NT. Ответить

Номер ответа: 3 Автор ответа: HACKER Разработчик Offline Client Вопросов: 236 Ответов: 8362	Профиль \| \| #3	Добавлено: 29.03.06 12:21
	Даже на смотря на структуру lpVolumeSerialNumber As Long интуитивно понятно что это SN раздела (логического диска) Ответить

Номер ответа: 4 Автор ответа: [root] Вопросов: 45 Ответов: 1212	Web-сайт: bit.pirit.info Профиль \| \| #4	Добавлено: 29.03.06 12:30
	понятненько, спасибо Ответить

Страница: 1 |