Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Как написать программу, которая смотрит серийный номер тома / 13 сообщений из 13, страница 1 из 1
28.09.2006, 15:38
    #34019424
Charles Weyland
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как написать программу, которая смотрит серийный номер тома
Кажому харду, флоппику, USB-Flash Drive изготовителем присваивается свой индивидуальный серийный номер.
Как в VisualBasic 6 написать программу, которая выводит на экран (скажем, ввиде диалогового окна) или сохраняет в файл.txt значение серийного номера заданного диска.
Если на VB6 это невозможно, то как это сделать на Delphi,C++,Assembler (хоть ASM для DOS). Программа должна считывать серийный номер указанного диска (C: или D: ... ) и сохранять этот номер в отдельный текстовый файл.
Пожалуйста, дельные советы, которые мне реально помогут разобраться с ситуацией, или код программы))) Код программы - это конечно, лучше. Желательно, конечно, в VB6. Очень надо....
...
Рейтинг: 0 / 0
28.09.2006, 15:57
    #34019521
bubucha
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как написать программу, которая смотрит серийный номер тома
гляньте API, в инете куча примеров, например http://sources.ru/vb/system/disk_serial_number.shtml
...
Рейтинг: 0 / 0
28.09.2006, 16:16
    #34019605
Charles Weyland
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как написать программу, которая смотрит серийный номер тома
АБСОЛЮТНО чёткий ответ!!! Клёво!! ИМЕННО этого я и искал так долго... пока не решил написать на форуме!!!
...
Рейтинг: 0 / 0
28.09.2006, 16:28
    #34019660
marvan
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как написать программу, которая смотрит серийный номер тома
Серийный номмер железки
Charles WeylandКажому харду, флоппику, USB-Flash Drive изготовителем присваивается свой индивидуальный серийный номер.
И серийный номер логического диска
Charles WeylandПрограмма должна считывать серийный номер указанного диска (C: или D: ... )
Разные вещи.
Серийный номер логического диска определяется API функцией GetVolumeInformation. При желании может быть подделан. Например я это видел в кряке одной из последних версий VirtuaGirl.
Серийный номмер железки без использования дополнительных библиотек сторонних производителей не определить, с ним лучне не связываться, хотя номерок этот подделать сложнее.
...
Рейтинг: 0 / 0
28.09.2006, 16:28
    #34019664
timtim
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как написать программу, которая смотрит серийный номер тома
в XP эта ф-ия не показывает серийник!
...
Рейтинг: 0 / 0
28.09.2006, 16:39
    #34019714
marvan
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как написать программу, которая смотрит серийный номер тома
2 timtim
В XP - показывает.
Только что пример из API-Guide протестил.
...
Рейтинг: 0 / 0
28.09.2006, 16:51
    #34019761
Charles Weyland
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как написать программу, которая смотрит серийный номер тома
Там немного выше.. во второй реплике (bubucha) указана ссылка.. я протестил эту прогу, и получилось так, что она работает только на каждом втором устройстве... а каждое второе устройство выдаёт, номер 0.
Частенько "серийный номер устройства" равен нулю... ((
Какие есть советы по защите программы от копирования? Заказчик хочет, что бы я сделал так, что моя программа запускается только у него с Flesh'ки, и что бы она не запускалась с другого места (с другой флешки, харда etc)
...
Рейтинг: 0 / 0
28.09.2006, 18:11
    #34020100
marvan
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как написать программу, которая смотрит серийный номер тома
Ходят слухи, что это не реально.
...
Рейтинг: 0 / 0
28.09.2006, 18:18
    #34020124
Charles Weyland
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как написать программу, которая смотрит серийный номер тома
нет невзламываемых программ. Но есть тяжело взламываемые... вот такую мне и надо создать
...
Рейтинг: 0 / 0
29.09.2006, 10:31
    #34021142
marvan
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как написать программу, которая смотрит серийный номер тома
marvanХодят слухи, что это не реально.
- это я про привязку к флешке.
- не ко всякой флешке можно привязаться.
- но наверняка есть те, к которым можно и производитель в таком случае предоставляет соответствующий API.
...
Рейтинг: 0 / 0
30.09.2006, 12:09
    #34023887
Charles Weyland
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как написать программу, которая смотрит серийный номер тома
А вот вопрос...
я запускаю прогу:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
    Dim objFso
    Dim drv
    Dim strSN
    Dim Disk As String
    Disk = "C:" 'Подставляю A: и прочие
    
    Set objFso = CreateObject("Scripting.FileSystemObject")
    Set drv = objFso.GetDrive(Disk)
    strSN = "Диск " & Disk & vbCrLf _
            & "Серийный номер: " & drv.SerialNumber
    msgbox strSN
    
    Set objFso = Nothing
Она работает, всё клёво - выдёт номер. Вот только иногда она почему-то выдаёт 0. Просто для некоторых дисков и дискет - значение равно нулю! Почему так?
...
Рейтинг: 0 / 0
01.10.2006, 13:27
    #34024474
ВasiС
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как написать программу, которая смотрит серийный номер тома
Посмотри мой пример - там всё нормально
...
Рейтинг: 0 / 0
01.10.2006, 16:23
    #34024612
Charles Weyland
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как написать программу, которая смотрит серийный номер тома
Вот эта по-настоящему крутая прога!!! 5 баллов!
...
Рейтинг: 0 / 0
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Как написать программу, которая смотрит серийный номер тома / 13 сообщений из 13, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]