| Вопрос: серийный номер диска | Добавлено: 27.06.07 01:59 |
Автор вопроса:  Marki
|
|
Джентельмены, приветствую!
Как-то здесь натыкался на код, который позволял получить серийный номер диска (если не ошибаюсь, обсуждалась "защита" программ и как вариант - привязка к серийному номеру). Поиск мне категорически отказывает в помощи. Буду признетелен за ссылку. |
| Ответы | Всего ответов: 27 |
|
Номер ответа: 1 Автор ответа:  sne Разработчик Offline Client ICQ: 233286456 Вопросов: 34 Ответов: 5445 |
Web-сайт: Профиль | | #1 | Добавлено: 27.06.07 02:39 |
| в примерах валяется | ||
|
Номер ответа: 2 Автор ответа: Marki Вопросов: 42 Ответов: 94 |
Профиль | | #2 | Добавлено: 27.06.07 03:01 |
| Да перед тем как вопрос задать вроде посмотрел... или глаз замылился, или... | ||
|
Номер ответа: 3 Автор ответа: MarkiВопросов: 42 Ответов: 94 |
Профиль | | #3 | Добавлено: 27.06.07 03:06 |
очередной просмотр все же дал результат глубокой ночью 
http://vbnet.ru/samples/download.aspx?id=771 |
||
|
Номер ответа: 4 Автор ответа: MarkiВопросов: 42 Ответов: 94 |
Профиль | | #4 | Добавлено: 27.06.07 03:23 |
|
Не.... вопрос остается открытым.
Это штука (ссылка выше) у меня не пошла (VB 2005 EE) - предложено "апгрейдить" код, но результат тоже не стал работать. Все так же буду признателен за помощь.
|
||
|
Номер ответа: 5 Автор ответа: HACKERРазработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #5 | Добавлено: 27.06.07 19:36 |
|
Ну вообще-то надо было сразу предупредить что имеется ввиду 2005 студия. Я думаю в дотнете есть какой-то класс/метод, осталось только узнать какой
|
||
|
Номер ответа: 6 Автор ответа: MarkiВопросов: 42 Ответов: 94 |
Профиль | | #6 | Добавлено: 27.06.07 20:53 |
|
виноват. )
Но лучше поздно, чем никогда
Хотя я надеялся что ссылка на ветку где это обсуждается, как то поможет... |
||
|
Номер ответа: 7 Автор ответа: BUMM ®Вопросов: 8 Ответов: 482 |
Профиль | | #7 | Добавлено: 27.06.07 23:54 |
|
вручную влом искать, поиск не работает на форуме,
код примерно такой: Private Sub get_drives_info()
Dim diskClass As New System.Management.ManagementObjectSearcher("SELECT * FROM Win32_PhysicalMedia" 
Dim disk As System.Management.ManagementObject Dim s As String = "" For Each disk In diskClass.Get() s &= disk("Tag" & " " & disk("SerialNumber" & ControlChars.CrLf
Next disk MsgBox(s) diskClass.Dispose() End Sub не забудь добавить в проект референс на System.Management |
||
|
Номер ответа: 8 Автор ответа: sneРазработчик Offline Client ICQ: 233286456 Вопросов: 34 Ответов: 5445 |
Web-сайт: Профиль | | #8 | Добавлено: 28.06.07 00:29 |
|
дотнэт это ацтой, нафига там привязка к железу, если все можно спокойно отдекомпилить ) лол наф
|
||
|
Номер ответа: 9 Автор ответа: MarkiВопросов: 42 Ответов: 94 |
Профиль | | #9 | Добавлено: 28.06.07 00:29 |
|
Сложности начались с конца сообщения
не забудь добавить в проект референс на System.Management
Никогда ничего подобного не делал (еще не приходилось сталкиваться), помощь http://msdn.microsoft.com/library/rus/default.asp?url=/library/rus/vbcon/html/vxlrfvslangprojreference.asp
тоже не внесла ясности. Для меня во всяком случае. Попытки добавить через ".Net Framework Components" средой отвергнуты. В общем, снова в тупике... |
||
|
Номер ответа: 10 Автор ответа: BUMM ®Вопросов: 8 Ответов: 482 |
Профиль | | #10 | Добавлено: 28.06.07 23:13 |
|
дотнэт это ацтой, нафига там привязка к железу, если все можно спокойно отдекомпилить
) лол наф покажи мне прогу которую нельзя декомпилить ) лол наф
|
||
|
Номер ответа: 11 Автор ответа: BUMM ®Вопросов: 8 Ответов: 482 |
Профиль | | #11 | Добавлено: 28.06.07 23:18 |
|
Сложности начались с конца сообщения
в меню студии нажми project -> add reference в закладке net найди system.management |
||
|
Номер ответа: 12 Автор ответа: MarkiВопросов: 42 Ответов: 94 |
Профиль | | #12 | Добавлено: 29.06.07 00:06 |
|
Ну вот, собственно, только с концом сообщения и разобрался. Спасиб.
А вот остальное - не пашет. Точнее не то чтобы совсем не работало - чего то там пыхтит, но результат выдает.. увы, совсем не ожидаемый. Иначе говоря, окно сообщения содержит ТРИ строки, каждую из которых привожу достовно: \\.\PHYSICALDRIVE0
\\.\PHYSICALDRIVE1 \\.\PHYSICALDRIVE2 ниже следует кнопка "ОК".
|
||
|
Номер ответа: 13 Автор ответа: BUMM ®Вопросов: 8 Ответов: 482 |
Профиль | | #13 | Добавлено: 29.06.07 22:08 |
|
ну значит у тя диски без серийников )))
|
||
|
Номер ответа: 14 Автор ответа: BUMM ®Вопросов: 8 Ответов: 482 |
Профиль | | #14 | Добавлено: 29.06.07 22:15 |
|
Вот что выдает у меня...
\\.\PHYSICALDRIVE0 Y2F21F8E
\\.\PHYSICALDRIVE1 662206340277 \\.\PHYSICALDRIVE2 Y3M7S3BE |
||
|
Номер ответа: 15 Автор ответа: MarkiВопросов: 42 Ответов: 94 |
Профиль | | #15 | Добавлено: 30.06.07 00:13 |
|
а куда ж я их подевал, по вашему?
|
||