Конференция VBStreets

**Алексей К.** » 18.10.2004 (Пн) 7:22

Как его собственно узнать программным способом? Именно - уникальный заводской, а не номера разделов диска которые при форматировании меняются.

**tyomitch** » 18.10.2004 (Пн) 10:58

http://vbrussian.com/Controls.asp?ID=44

**GSerg** » 18.10.2004 (Пн) 11:05

Тёмыч, чего меняешь сигнатуры постоянно?

Хотя, текущий вариант рулит

**tyomitch** » 18.10.2004 (Пн) 11:11

GSerg писал(а):Тёмыч, чего меняешь сигнатуры постоянно?
Хотя, текущий вариант рулит

Дык надоедает же, когда всё время одно и то же :-)

Нет?

**Алексей К.** » 18.10.2004 (Пн) 12:28

А как его нормальным сделать(не шароварным)?

**Andrey Fedorov** » 18.10.2004 (Пн) 14:24

Использовать OCX там где достаточно вызова GetVolumeInformation?
В чем великий смысл сего чародейства???

**Алексей К.** » 19.10.2004 (Вт) 7:51

А смысл все тот же

Привязать прогу к одному компу.
Может у кого есть готовый код (модуль, проект) привязки к железу.
Поделитесь если не жалко...

**marvan** » 20.10.2004 (Ср) 16:45

HDDSerial
и
Serial Number of HDD

**Алексей К.** » 21.10.2004 (Чт) 11:46

Спасибо!!!

То что нужно!

**Алексей К.** » 21.10.2004 (Чт) 12:10

Сделал экзешник(тот что из hddserial.zip и с драйвером Smartvsd.vxd )
На моем компе запускается, а на других запускается - но на всех приводах пишет "Not present". Хотя IDE у них есть точно, компы с одной партии с одинаковыми характеристиками как у меня. Копировал драйвер в каталог windows\system\. Все равно не показывает номер заводской? В чем может быть дело? Помогите

**Алексей К.** » 21.10.2004 (Чт) 12:42

Вот как надо что бы работало:
Note for w95/98 users - for some reasons MS didn't include smartvsd.vxd driver in some versions. It may present, may not. Check your %windows%system\iosubsys folder for smartvsd.vxd. If this file not present in this folder, just copy it into folder (it is included in the .zip file) and reboot machine.

**marvan** » 21.10.2004 (Чт) 12:57

и всё таки - почему не GetVolumeInformation?

**kif** » 21.10.2004 (Чт) 16:05

Кто-то когда-то вылаживал модуль для этого дела, я делаю тоже самое

в этом модуле самая последняя функция DriveInfo (0,Серийный номер)

**marvan** » 21.10.2004 (Чт) 16:38

2kif: этот модуль переделан из hddserial.zip

**kif** » 21.10.2004 (Чт) 16:44

вполне возможно, давно это было.

все очень просто: мне дали и я отдаю.

**ФАНТОМНЫЙ ЮЗЕР** » 21.01.2005 (Пт) 7:12

Подскажите, пожалуйста, почему версия HDDSerial не работает на новых компьютерах. Пробовал на XP на компе, выпущенном в ноябре 2004 г.

Что ему необходимо???

**cashman** » 21.01.2005 (Пт) 11:55

А что пришет, какие симптомы?..
HDDSerial если не обшибаюсь на интерфейс IDE расчитан (он же ATA). Ну а новый комп я брал бы с жеским SATA... как никак быстрее...

**cashman** » 22.01.2005 (Сб) 0:25

РЕБЯТА беда!!!!
я уже поднимал проблему Защиты программ, приковывая к серийному номеру: http://bbs.vbstreets.ru/viewtopic.php?t=11954&highlight=
Но на днях случилась БЕДА:
мой серийник программы Serial Num, Drive, и еще одна Access база показывали "BCCC-73FA" (оканчательную точку в выборе поставила Partision Magic, который тоже показал этот номер).

НО постоянство этого серийника оказалось иллюзией!!!
не знаю как и почему у моего знакомого через месяц был показан (программой Drive) иной №, чем показывался ранее.
Плюс можно также определять серийник дискет. НО после форматирования № меняется на другой, еще форматирование - новый номер (очень не хочется производить подобные опыты с HDD).

И насколько надежна оказалась привязка к этому серийному №. МОЖЕТ его также можно изменить какой-нибудь программой-утилитой, И ТОГДА ПРОЩАЙ ЗАЩИТА???

**Max!** » 22.01.2005 (Сб) 4:31

Нет изменить его врядли можно , хатя .... Но и изменятся по идей он не должен ! :wink:

**tyomitch** » 22.01.2005 (Сб) 8:37

Max! писал(а):Нет изменить его врядли можно , хатя .... Но и изменятся по идей он не должен !

Да конечно можно, раз он при форматировании меняется... Это же номер раздела, а не диска. Старым добрым diskedit-ом он меняется секунд за 30, включая перезагрузку в дос.

Max, уймись наконец, нафлудил сразу в десяток топиков :evil:

**cashman** » 23.01.2005 (Вс) 0:10

т.е. это не серийный номер HDD, а номер раздела???
(провел опыт - 1 жеский разбитый на 2 логических имеет 2 разных "серийных номера").
2tyomitch
а можно его изменить не форматируя, т.е. без потери данных?.. (+ на какой захочешь №)
если знаешь Такую утилиту дай ссылку - это проверить нужно обязательно!!!

**tyomitch** » 23.01.2005 (Вс) 9:53

Гы-гы... Даже с исходниками: http://www.thecodeproject.com/system/ch ... ive_sn.asp

**cashman** » 23.01.2005 (Вс) 15:02

Просто Ж*ПА!!!
значит к этому серийнику привязывать не стоит (выражаясь гражданским языком).
ИТОГ:
Serial Num, Drive, и еще одна Access база - показывают серийник, который можно сменить
HDDSerial - работает только с интерфейсом IDE
FSODrive - я в принципе не понимаю, что за номер он выдает "-1127451654", а главное я не понимаю его короткий исходник (видимо он как-то связан с файлом MSSCCPRJ.SCC, который лежит в его папке), и повторить в своей проге не могу!!!
КТО ВИНОВАТ? и ЧТО ДЕЛАТЬ???

**hCORe** » 23.01.2005 (Вс) 15:11

Что делать, блин, и кто, блин, виноват - извечный русский (и не только) вопрос

Могу с уверенностью на 100% сказать, что файл MSSCCPRJ.SCC - это файл Visual SourceSafe 6.0, и с кодом он не связан никак. В файлике хранятся данные о последней модификации проекта. Если ты такой штукой не пользуешься, можешь этот файл удалить - ничего страшного не произойдет

**cashman** » 23.01.2005 (Вс) 15:34

тогда почему ошибка (в первой строчке) если я просто все копирую в свой проект?..

**hCORe** » 23.01.2005 (Вс) 15:38

А включить "Microsoft Scripting Runtime" в References проекта слабо?

Или сделать явную компоновку:

Код: Выделить всё: On Error Resume Next Dim fso As Object, D As Object Err.Clear Set fso = CreateObject("Scripting.FileSystemObject") If Err <> 0 Then MsgBox "Проблемс..." : Err.Clear : Exit Sub Set D = fso.GetDrive("c:") ' Узнаем есть диск в сидюке(ил подключен диск) ил нету. Если есть то метод возращает True, если нет то False If Err <> 0 Then MsgBox "Проблемс..." : Err.Clear : Exit Sub If D.IsReady = True Then 'Label1.Caption = "Всего места: " & D.TotalSize / 1024 / 1024 / 1024 ' Узнаем кол - во свободного места, здесь я написал / 1024 / 1024 / 1024 - это перевод из байтов в гигабайты 'Label2.Caption = "На диске свободно: " & D.AvailableSpace / 1024 / 1024 / 1024 ' Узнаем кол - во свободного места, здесь я написал / 1024 / 1024 / 1024 - это перевод из байтов в гигабайты (можно использовать и FreeSpace, эффект такой же) ' чтобы узнать сколько занято надо от кол- ва места на диске отнять кол - во свободного места 'Label3.Caption = "На диске занято: " & (D.TotalSize - D.AvailableSpace) / 1024 / 1024 / 1024 'Label4.Caption = "Буквенное обозначение диска: " & D.DriveLetter ' Узнаем буквенное обозначение диска 'Label5.Caption = "Файловая система: " & D.FileSystem ' Узнаем файловую систему Label6.Caption = "серийный номер: " & D.SerialNumber ' Узнаем серийный номер диска Else ' Если сидюк недоступен, то выводим сообщение MsgBox "Сидюк не доступен" End If Set fso = Nothing Set D = Nothing

**cashman** » 23.01.2005 (Вс) 15:46

твой код работает... спасибо
только что за номер он показывает, откуда он, и можно ли его изменить?..
P.S. "Microsoft Scripting Runtime" - впервые столкнулся, где это включается?..

**A.A.Z.** » 23.01.2005 (Вс) 15:48

Project->References->Microsoft Scripting Runtime

**cashman** » 23.01.2005 (Вс) 15:56

Нашел, спасибо...
Но, что насчет вопросов номер?

**tyomitch** » 23.01.2005 (Вс) 20:50

cashman писал(а):только что за номер он показывает, откуда он, и можно ли его изменить?..

Скорее всего, это тот же самый номер раздела. Проверь, он совпадает с тем, что выдавала прошлая прога?

Конференция VBStreets

Заводской номер винчестера

Заводской номер винчестера

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