Серийник HDD

Программирование на Visual Basic, главный форум. Обсуждение тем программирования на VB 1—6.
Даже если вы плохо разбираетесь в VB и программировании вообще — тут вам помогут. В разумных пределах, конечно.
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
Yurik
Постоялец
Постоялец
 
Сообщения: 553
Зарегистрирован: 08.04.2002 (Пн) 21:09
Откуда: Нижневартовск [Rulez 4ever]

Серийник HDD

Сообщение Yurik » 17.06.2003 (Вт) 6:40

Привет всем!
Люди у меня был раньше примерчик который позволяет определить серийник HDD именно железа, а не серийник после форматирования который ставится и меняется каждый раз после ворматирования, так вот этот пример юзал обычные API, покапался в API GUIDE нашел но серйник не железа выдает, помогите кто может кто знает!
Главное чтобы одни API юзал!
Заранее благодарен!

TRUST
Продвинутый пользователь
Продвинутый пользователь
 
Сообщения: 192
Зарегистрирован: 22.08.2002 (Чт) 20:24
Откуда: Orel

Сообщение TRUST » 17.06.2003 (Вт) 16:28

А если так:
Код: Выделить всё
Private Declare Function GetVolumeInformation Lib "kernel32.dll" Alias "GetVolumeInformationA" (ByVal lpRootPathName As String, ByVal lpVolumeNameBuffer As String, ByVal nVolumeNameSize As Integer, lpVolumeSerialNumber As Long, lpMaximumComponentLength As Long, lpFileSystemFlags As Long, ByVal lpFileSystemNameBuffer As String, ByVal nFileSystemNameSize As Long) As Long

Function GetSerialNumber(sDrive As String) As Long
On Error Resume Next
Dim lSerialNum As Long, lRes As Long, sTemp1 As String, sTemp2 As String

sTemp1 = String$(255, Chr$(0))
sTemp2 = String$(255, Chr$(0))
lRes = GetVolumeInformation(sDrive, sTemp1, Len(sTemp1), lSerialNum, 0, 0, sTemp2, Len(sTemp2))
GetSerialNumber = lSerialNum
End Function
Кто юзал мой аккаунт и весь его выюзал?!!

Sebas
Неуловимый Джо
Неуловимый Джо
Аватара пользователя
 
Сообщения: 3626
Зарегистрирован: 12.02.2002 (Вт) 17:25
Откуда: столько наглости такие вопросы задавать

Сообщение Sebas » 18.06.2003 (Ср) 10:43

2TRUST это не железкин номер!

Лучше через WMI класс Win32_DiskDrive


****************************************************
ВСЕМ!ВСЕМ!ВСЕМ!ВСЕМ!ВСЕМ!ВСЕМ!ВСЕМ!ВСЕМ!ВСЕМ!ВСЕМ!

Качнуть WMITOOLS.EXE с MICROSOFT.COM
- Я никогда не понимал, почему они приходят ко мне чтобы умирать?

sebas<-@->mail.ru

Cyrax
Cyberninja
Cyberninja
Аватара пользователя
 
Сообщения: 891
Зарегистрирован: 25.04.2002 (Чт) 21:20
Откуда: Magnitogorsk, Russia

Сообщение Cyrax » 20.06.2003 (Пт) 11:51

вот работа с железом винта
отображает все физические параметры накопителя, включая марку, производителя и серийный номер
используется драйвер Smartvsd.vxd. его нет в 2К и выше, только в 9х, но под 2K Server работает (если в папку с прогой положить...)
Ты это ему расскажи. Я уже пять болтов отвинтил, и конца не видно... (озадаченно) А это в какую сторону тянуть? Ну-ка... Ага, этот был лишний, этот вообще не отсюда, и этот... Точно, два болта.

Welcome to IRC

Alex_new_2030
Продвинутый пользователь
Продвинутый пользователь
 
Сообщения: 118
Зарегистрирован: 20.02.2003 (Чт) 8:00
Откуда: Kazakhstan

Сообщение Alex_new_2030 » 23.06.2003 (Пн) 13:25

А у меня что-то этот Smartvsd.vxd под Windows ME не пашет. Только под XP да и то только мастеров показывает а слэйвов не хочет????
Как быть??? :(

Cyrax
Cyberninja
Cyberninja
Аватара пользователя
 
Сообщения: 891
Зарегистрирован: 25.04.2002 (Чт) 21:20
Откуда: Magnitogorsk, Russia

Сообщение Cyrax » 23.06.2003 (Пн) 13:33

Alex_new_2030 писал(а):А у меня что-то этот Smartvsd.vxd под Windows ME не пашет. Только под XP да и то только мастеров показывает а слэйвов не хочет????
Как быть???

на счет под ME - не знаю... у меня 98 и 2k server и prof - все нормально работает.

а про слэйвы... а что там у тебя на слэйвах-то? прогамка-то только для жестких дисков...
Ты это ему расскажи. Я уже пять болтов отвинтил, и конца не видно... (озадаченно) А это в какую сторону тянуть? Ну-ка... Ага, этот был лишний, этот вообще не отсюда, и этот... Точно, два болта.

Welcome to IRC

Alex_new_2030
Продвинутый пользователь
Продвинутый пользователь
 
Сообщения: 118
Зарегистрирован: 20.02.2003 (Чт) 8:00
Откуда: Kazakhstan

Сообщение Alex_new_2030 » 25.06.2003 (Ср) 6:12

у меня 3 винта. сидят на primary_master, primary_slave, secondary_master, а на secondary_slave сидит сидюк. Так он показывает только primary_master и secondary_master. На счет сидюка понятно, показывать инфу не будет, а как на счет primary_slave? Там веть винт сидит. Кстати под 98 прога тоже не пашет :( (может что-то не так делаю???)

Sebas
Неуловимый Джо
Неуловимый Джо
Аватара пользователя
 
Сообщения: 3626
Зарегистрирован: 12.02.2002 (Вт) 17:25
Откуда: столько наглости такие вопросы задавать

Сообщение Sebas » 25.06.2003 (Ср) 11:26

Этот пример криво работает
Я как давно его разбирал, там ложно срабатывает какоето условие и он не пытается определить диск
- Я никогда не понимал, почему они приходят ко мне чтобы умирать?

sebas<-@->mail.ru

Urvin
Постоялец
Постоялец
Аватара пользователя
 
Сообщения: 518
Зарегистрирован: 04.06.2003 (Ср) 10:47
Откуда: с Марса

Сообщение Urvin » 25.06.2003 (Ср) 11:28

Товарищи, пользуйтесь проверенными компьютерами!
Работает...
Не так страшен русский танк, как его пьяный экипаж

Alex_new_2030
Продвинутый пользователь
Продвинутый пользователь
 
Сообщения: 118
Зарегистрирован: 20.02.2003 (Чт) 8:00
Откуда: Kazakhstan

Сообщение Alex_new_2030 » 26.06.2003 (Чт) 6:32

Ну у меня P4 1,8 GHz и че?


Вернуться в Visual Basic 1–6

Кто сейчас на конференции

Сейчас этот форум просматривают: AhrefsBot, Mail.ru [бот] и гости: 26

    TopList