Visual Basic, .NET, ASP, VBScript
 

   
   
     

Форум - .NET

Страница: 1 |

 

  Вопрос: Серийник cd, dvd диска Добавлено: 12.03.09 07:28  

Автор вопроса:  van-lamer
Привет всем!

Интересно есть ли у cd, dvd дисков уникальные серийные номера, если да то как их можно получить средствами vb.net?

Ответить

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

Номер ответа: 1
Автор ответа:
 Smith



ICQ: adamis@list.ru 

Вопросов: 153
Ответов: 3632
 Профиль | | #1 Добавлено: 13.03.09 01:24
Кажись это неподсилу ни апи ни дотнэт.
И всетаки! Какой такой кайфун тайфун?
Каким экскавадаром нэро добывает эту инфу?
Производителя болванки и т.п.

Ответить

Номер ответа: 2
Автор ответа:
 Kardinal



ICQ: 360041513 

Вопросов: 1
Ответов: 164
 Web-сайт: kg7.ru
 Профиль | | #2
Добавлено: 13.03.09 10:20
Есть апи-функция которая дает серийник, но он привязан к данным а на чистом диске он пустой

Ответить

Номер ответа: 3
Автор ответа:
 Sharp


Лидер форума

ICQ: 216865379 

Вопросов: 106
Ответов: 9979
 Web-сайт: sharpc.livejournal.com
 Профиль | | #3
Добавлено: 13.03.09 10:37
BOOL WINAPI GetVolumeInformation(
  __in LPCTSTR lpRootPathName,
  __out LPTSTR lpVolumeNameBuffer,
  __in DWORD nVolumeNameSize,
  __out LPDWORD lpVolumeSerialNumber,
  __out LPDWORD lpMaximumComponentLength,
  __out LPDWORD lpFileSystemFlags,
  __out LPTSTR lpFileSystemNameBuffer,
  __in DWORD nFileSystemNameSize
);

Ответить

Номер ответа: 4
Автор ответа:
 Smith



ICQ: adamis@list.ru 

Вопросов: 153
Ответов: 3632
 Профиль | | #4 Добавлено: 15.03.09 14:51
Волюм сериал и дир выдает, этот сериал генерится при форматировании/записи диска, кажется ТС имел ввиду другое, он хотел привязать прогу к конкретной болванке и защитить её таким образом.

Ответить

Номер ответа: 5
Автор ответа:
 Дмитрий Юпатов



Вопросов: 4
Ответов: 457
 Web-сайт: cargomaster.at.ua/
 Профиль | | #5
Добавлено: 18.03.09 15:13
хм... а почему не привязать к метке логического диска винта?
  1. Try
  2.             ' Вычисление серийника
  3.             ' Получение серийного номера, на котором стоит приложение
  4.             Dim str As String
  5.             Dim driver As Scripting.Drive
  6.             Dim fso As New Scripting.FileSystemObject
  7.             Dim pathh As String = Path.GetPathRoot(My.Application.Info.DirectoryPath)
  8.             driver = fso.GetDrive(pathh)
  9.             str = driver.SerialNumber
  10.             'собственно, str - серийник.
  11.         Catch ex As Exception
  12.         End Try

Есть одна тонкость: этот серийник можно сменить, чтобы подстроиться под конкретную прогу. НО: нет гарантии, что другие проги при этом не слетят. Да и еще к этому прийти надо... так что, если прога не очень ценная и нет рукастого чела, который поставит себе цель это ломануть, такая защита прокатит.

Ответить

Номер ответа: 6
Автор ответа:
 mc-black



ICQ: 308-534-060 

Вопросов: 20
Ответов: 1860
 Web-сайт: mc-black.narod.ru/dzp.htm
 Профиль | | #6
Добавлено: 18.03.09 21:20
Все на свете можно сменить в одной-единственной программе - в отладчике один одну переменную в секции данных пропатчить ) Если программа не слишком обременена протекторами.

Ответить

Номер ответа: 7
Автор ответа:
 Дмитрий Юпатов



Вопросов: 4
Ответов: 457
 Web-сайт: cargomaster.at.ua/
 Профиль | | #7
Добавлено: 18.03.09 21:26
тогда юзайте sentonel super pro :)

Ответить

Номер ответа: 8
Автор ответа:
 Дмитрий Юпатов



Вопросов: 4
Ответов: 457
 Web-сайт: cargomaster.at.ua/
 Профиль | | #8
Добавлено: 18.03.09 21:27
тогда юзайте sentonel super pro :)

Ответить

Номер ответа: 9
Автор ответа:
 Дмитрий Юпатов



Вопросов: 4
Ответов: 457
 Web-сайт: cargomaster.at.ua/
 Профиль | | #9
Добавлено: 18.03.09 21:28
аписка вышла... sentinel super pro :)

Ответить

Страница: 1 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам