ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Как написать программу, которая смотрит серийный номер тома
13 сообщений из 13, страница 1 из 1
Как написать программу, которая смотрит серийный номер тома
    #34019424
Charles Weyland
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Charles Weyland
Участник
Кажому харду, флоппику, USB-Flash Drive изготовителем присваивается свой индивидуальный серийный номер.
Как в VisualBasic 6 написать программу, которая выводит на экран (скажем, ввиде диалогового окна) или сохраняет в файл.txt значение серийного номера заданного диска.
Если на VB6 это невозможно, то как это сделать на Delphi,C++,Assembler (хоть ASM для DOS). Программа должна считывать серийный номер указанного диска (C: или D: ... ) и сохранять этот номер в отдельный текстовый файл.
Пожалуйста, дельные советы, которые мне реально помогут разобраться с ситуацией, или код программы))) Код программы - это конечно, лучше. Желательно, конечно, в VB6. Очень надо....
...
Рейтинг: 0 / 0
28.09.2006, 15:38
| Ответить | Цитировать | Написать  
Как написать программу, которая смотрит серийный номер тома
    #34019521
bubucha
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
bubucha
Участник
гляньте API, в инете куча примеров, например http://sources.ru/vb/system/disk_serial_number.shtml
...
Рейтинг: 0 / 0
28.09.2006, 15:57
| Ответить | Цитировать | Написать  
Как написать программу, которая смотрит серийный номер тома
    #34019605
Charles Weyland
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Charles Weyland
Участник
АБСОЛЮТНО чёткий ответ!!! Клёво!! ИМЕННО этого я и искал так долго... пока не решил написать на форуме!!!
...
Рейтинг: 0 / 0
28.09.2006, 16:16
| Ответить | Цитировать | Написать  
Как написать программу, которая смотрит серийный номер тома
    #34019660
marvan
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
marvan
Участник
Серийный номмер железки
Charles WeylandКажому харду, флоппику, USB-Flash Drive изготовителем присваивается свой индивидуальный серийный номер.
И серийный номер логического диска
Charles WeylandПрограмма должна считывать серийный номер указанного диска (C: или D: ... )
Разные вещи.
Серийный номер логического диска определяется API функцией GetVolumeInformation. При желании может быть подделан. Например я это видел в кряке одной из последних версий VirtuaGirl.
Серийный номмер железки без использования дополнительных библиотек сторонних производителей не определить, с ним лучне не связываться, хотя номерок этот подделать сложнее.
...
Рейтинг: 0 / 0
28.09.2006, 16:28
| Ответить | Цитировать | Написать  
Как написать программу, которая смотрит серийный номер тома
    #34019664
timtim
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
timtim
Участник
в XP эта ф-ия не показывает серийник!
...
Рейтинг: 0 / 0
28.09.2006, 16:28
| Ответить | Цитировать | Написать  
Как написать программу, которая смотрит серийный номер тома
    #34019714
marvan
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
marvan
Участник
2 timtim
В XP - показывает.
Только что пример из API-Guide протестил.
...
Рейтинг: 0 / 0
28.09.2006, 16:39
| Ответить | Цитировать | Написать  
Как написать программу, которая смотрит серийный номер тома
    #34019761
Charles Weyland
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Charles Weyland
Участник
Там немного выше.. во второй реплике (bubucha) указана ссылка.. я протестил эту прогу, и получилось так, что она работает только на каждом втором устройстве... а каждое второе устройство выдаёт, номер 0.
Частенько "серийный номер устройства" равен нулю... ((
Какие есть советы по защите программы от копирования? Заказчик хочет, что бы я сделал так, что моя программа запускается только у него с Flesh'ки, и что бы она не запускалась с другого места (с другой флешки, харда etc)
...
Рейтинг: 0 / 0
28.09.2006, 16:51
| Ответить | Цитировать | Написать  
Как написать программу, которая смотрит серийный номер тома
    #34020100
marvan
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
marvan
Участник
Ходят слухи, что это не реально.
...
Рейтинг: 0 / 0
28.09.2006, 18:11
| Ответить | Цитировать | Написать  
Как написать программу, которая смотрит серийный номер тома
    #34020124
Charles Weyland
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Charles Weyland
Участник
нет невзламываемых программ. Но есть тяжело взламываемые... вот такую мне и надо создать
...
Рейтинг: 0 / 0
28.09.2006, 18:18
| Ответить | Цитировать | Написать  
Как написать программу, которая смотрит серийный номер тома
    #34021142
marvan
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
marvan
Участник
marvanХодят слухи, что это не реально.
- это я про привязку к флешке.
- не ко всякой флешке можно привязаться.
- но наверняка есть те, к которым можно и производитель в таком случае предоставляет соответствующий API.
...
Рейтинг: 0 / 0
29.09.2006, 10:31
| Ответить | Цитировать | Написать  
Как написать программу, которая смотрит серийный номер тома
    #34023887
Charles Weyland
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
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
30.09.2006, 12:09
| Ответить | Цитировать | Написать  
Как написать программу, которая смотрит серийный номер тома
    #34024474
ВasiС
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ВasiС
Гость
Посмотри мой пример - там всё нормально
...
Рейтинг: 0 / 0
01.10.2006, 13:27
| Ответить | Цитировать | Написать  
Как написать программу, которая смотрит серийный номер тома
    #34024612
Charles Weyland
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Charles Weyland
Участник
Вот эта по-настоящему крутая прога!!! 5 баллов!
...
Рейтинг: 0 / 0
01.10.2006, 16:23
| Ответить | Цитировать | Написать  
13 сообщений из 13, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Как написать программу, которая смотрит серийный номер тома
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&msg=34019605&tid=2165220]:
 0ms
get settings:
 9ms
get forum list:
 19ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 50ms
get topic data:
 11ms
get forum data:
 3ms
get page messages:
 49ms
get tp. blocked users:
 2ms
others: 242ms
total:  393ms
созд. / загр.: 393ms
x
x
Закрыть


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