| Вопрос: Serial Number | Добавлено: 25.08.05 00:04 |
Автор вопроса:  Виталий | Web-сайт: www.feshin.info
|
|
Интересная возможность в С++ есть - возможность определьть заводской серийник CD диска.
Есть ли эта возможность в VB? |
| Ответы | Всего ответов: 16 |
|
Номер ответа: 1 Автор ответа:  GSerg Вопросов: 0 Ответов: 1876 
|
Профиль | | #1 | Добавлено: 25.08.05 02:41 |
|
Такой вопрос.
Возможность определить заводской серийник CD диска - это встроенная конструкция C++ на манер if, switch или break? Потому что если нет, то какая разница, на каком языке? |
||
|
Номер ответа: 2 Автор ответа: AndreyMpICQ: 237822510 Вопросов: 28 Ответов: 1182 |
Профиль | | #2 | Добавлено: 25.08.05 09:29 |
|
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 Public Function GetSerialNumber(strDrive As String) As Long  im SerialNum As Long
im Res As Long
im Temp1 As String
im Temp2 As String
Temp1 = String$(255, Chr$(0)) Temp2 = String$(255, Chr$(0)) Res = GetVolumeInformation(strDrive, Temp1, _ Len(Temp1), SerialNum, 0, 0, Temp2, Len(Temp2)) GetSerialNumber = SerialNum End Function Получаете ID любого драйва, если привод CD пустой (нет диска)-получаете 0. |
||
|
Номер ответа: 3 Автор ответа: sneРазработчик Offline Client ICQ: 233286456 Вопросов: 34 Ответов: 5445 |
Web-сайт: Профиль | | #3 | Добавлено: 25.08.05 11:00 |
| Это не серийник диска, это серийник раздела, что меняеться как вручную, так и каждый раз при форматировании раздела... | ||
|
Номер ответа: 4 Автор ответа: AndreyMpICQ: 237822510 Вопросов: 28 Ответов: 1182 |
Профиль | | #4 | Добавлено: 25.08.05 11:51 |
|
Согласен,но лучше в VB по этому вопросу пока ничего не встретил (хотя и не очень и искал).
что меняеться как вручную
А как это для CD сделать ? Я так понял что речь идет о защите от копирования? |
||
|
Номер ответа: 5 Автор ответа: mzx ICQ: 259560026 Вопросов: 21 Ответов: 143 |
Профиль | | #5 | Добавлено: 25.08.05 12:48 |
|
2 Андрей
У меня есть пример определения именно серийника диска и других его характеристик. Если нужно. |
||
|
Номер ответа: 6 Автор ответа: AndreyMpICQ: 237822510 Вопросов: 28 Ответов: 1182 |
Профиль | | #6 | Добавлено: 25.08.05 14:09 |
| mzx если пример на VB, то конечно нужен, на сях у меня где то есть. Можешь на мыло кинуть, в профиле есть. | ||
|
Номер ответа: 7 Автор ответа: Black DragonICQ: 321186096 Вопросов: 30 Ответов: 347 |
Web-сайт: Профиль | | #7 | Добавлено: 25.08.05 20:09 |
|
mzx, мне тоже, плиз, кинь (если на VB).
bdragon05@mail.ru |
||
|
Номер ответа: 8 Автор ответа: sneРазработчик Offline Client ICQ: 233286456 Вопросов: 34 Ответов: 5445 |
Web-сайт: Профиль | | #8 | Добавлено: 25.08.05 21:17 |
|
А как это для CD сделать ?
Не для СД, для жестких дисков Как получить реальный серийник написано тут: http://vbnet.mvps.org/ |
||
|
Номер ответа: 9 Автор ответа: AndreyMpICQ: 237822510 Вопросов: 28 Ответов: 1182 |
Профиль | | #9 | Добавлено: 25.08.05 22:19 |
|
Как получить реальный серийник написано тут: http://vbnet.mvps.org/
А можно ссылку конкретнее дать. Я конечно полажу по этому сайту, но пока ни чего нового для себя там не нашел. |
||
|
Номер ответа: 10 Автор ответа: sneРазработчик Offline Client ICQ: 233286456 Вопросов: 34 Ответов: 5445 |
Web-сайт: Профиль | | #10 | Добавлено: 26.08.05 00:31 |
| см. DriveIoControl, там есть АПИ справочник. | ||
|
Номер ответа: 11 Автор ответа: Виталий Вопросов: 11 Ответов: 51 |
Web-сайт: Профиль | | #11 | Добавлено: 26.08.05 09:12 |
| Для защиты CD это не сильно сгодится, но задача для бэйсика, видимо, сложная | ||
|
Номер ответа: 12 Автор ответа: AndreyMpICQ: 237822510 Вопросов: 28 Ответов: 1182 |
Профиль | | #12 | Добавлено: 27.08.05 19:02 |
|
sne твоя ссылка http://vbnet.mvps.org/
все равно что на www.microsoft.com послать. |
||
|
Номер ответа: 13 Автор ответа: ВиталийВопросов: 11 Ответов: 51 |
Web-сайт: Профиль | | #13 | Добавлено: 27.08.05 23:43 |
|
GSerg, как эта функция называется?
sne, как можно поменять вручную на лазерном диске (желательно программно на VB)? |
||
|
Номер ответа: 14 Автор ответа: sneРазработчик Offline Client ICQ: 233286456 Вопросов: 34 Ответов: 5445 |
Web-сайт: Профиль | | #14 | Добавлено: 28.08.05 20:47 |
|
2Андрей, я указал что искать!
2Виталий, не в курсе даже возможно-ли это. |
||
|
Номер ответа: 15 Автор ответа: AndreyMpICQ: 237822510 Вопросов: 28 Ответов: 1182 |
Профиль | | #15 | Добавлено: 28.08.05 22:38 |
|
Виталий, не в курсе даже возможно-ли это.
Тогда чем плох ID для CD. Кстати таким образом можно проверить в каком драйве стоит CD. Пройтись в цикле по всем, выбирать тип CD/DVD (не помню как он там звучит конкретно) и смотреть ID<>0.Где то на форуме я встречал такую тему. |
||