ReSQL.ru
     
powered by simpleCommunicator - 2.0.51     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Получение серийника HD
25 сообщений из 108, страница 1 из 5
  1  все
Получение серийника HD
    #38855458
vdekameron
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vdekameron
Гость
Искал в интернете. Довольно много есть на эту тему обсуждений и примеров. Но в своем большинстве они основаны на дублированной защите. Т.е. серийный номер используют в качестве некоторых символов лицензионного кода и т.д.
Подскажите, пожалуйста, наиболее простой способ получение серийного номера жесткого диска. Хотя для жителей этого форума наверное все способы простые)
Заранее спасибо!
...
Рейтинг: 0 / 0
15.01.2015, 17:17
| Ответить | Цитировать | Написать  
Получение серийника HD
    #38855490
Фотография Akina
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Akina
Участник
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
strComputer = "." 
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2") 
Set colItems = objWMIService.ExecQuery( _
    "SELECT * FROM Win32_DiskDrive",,48) 
For Each objItem in colItems 
    Wscript.Echo "-----------------------------------"
    Wscript.Echo "Win32_DiskDrive instance"
    Wscript.Echo "-----------------------------------"
    Wscript.Echo "SerialNumber: " & objItem.SerialNumber
Next
...
Рейтинг: 0 / 0
15.01.2015, 17:50
| Ответить | Цитировать | Написать  
Получение серийника HD
    #38855798
vdekameron
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vdekameron
Гость
Akina,

Делаю прогон в пошаговом, на строке:- Wscript.Echo "-----------------------------------"
вылазит ошибка - необходим объект.

P.S Мне нужно получить sn HD именно в VB6 а через скрипт это случайно не VBS?
...
Рейтинг: 0 / 0
16.01.2015, 09:26
| Ответить | Цитировать | Написать  
Получение серийника HD
    #38855824
Фотография Akina
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Akina
Участник
vdekameronэто случайно не VBS?Есссно... разве не видно?
vdekameronна строке:- Wscript.Echo "-----------------------------------" вылазит ошибка - необходим объект.А заменить на Debug.Print сам догадаться не мог?
...
Рейтинг: 0 / 0
16.01.2015, 09:58
| Ответить | Цитировать | Написать  
Получение серийника HD
    #38855866
vdekameron
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vdekameron
Гость
Akina,


AkinaА заменить на Debug.Print сам догадаться не мог?
Башка вообще не варит сегодня. Получилось.

Большой пардон за доп. вопросы, это реально sn??
"32534a42394a4230353334303535202020202020"

Когда вчера гуглил прочитал что сам sn трудно достать, что обычно достается дата его последнего форматирования.
...
Рейтинг: 0 / 0
16.01.2015, 10:37
| Ответить | Цитировать | Написать  
Получение серийника HD
    #38855904
Фотография Akina
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Akina
Участник
vdekameronБольшой пардон за доп. вопросы, это реально sn??
"32534a42394a4230353334303535202020202020"Ну я почём знаю? возьми на сайте вендора родную для харда утилю его тестирования, получи ею сериал диска и сравни.
Хотя как по виду - это ASCII-коды (hex) строки сериала в одну кучу. А сам сериал - "2SJB9JB0534055 "
...
Рейтинг: 0 / 0
16.01.2015, 11:05
| Ответить | Цитировать | Написать  
Получение серийника HD
    #38855924
vdekameron
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vdekameron
Гость
AkinaА сам сериал - "2SJB9JB0534055 "

Сорри, как вы его получили? перевожу числа через hex получается вообще не то.
И если ASCII коды, то какие, если тут одно сплошное число и 2 строковых параметра "а" затисались
...
Рейтинг: 0 / 0
16.01.2015, 11:24
| Ответить | Цитировать | Написать  
Получение серийника HD
    #38855932
Фотография Akina
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Akina
Участник
Код: vbnet
1.
2.
3.
4.
5.
6.
s = "32534a42394a4230353334303535202020202020"
sn = ""
for i = 1 to len(s)/2
sn = sn & chr(val("&H" & mid(s,i+i-1,2)))
next i
debug.print trim(s)
...
Рейтинг: 0 / 0
16.01.2015, 11:28
| Ответить | Цитировать | Написать  
Получение серийника HD
    #38855934
Фотография Akina
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Akina
Участник
сорри

Код: vbnet
1.
debug.print trim(sn)
...
Рейтинг: 0 / 0
16.01.2015, 11:28
| Ответить | Цитировать | Написать  
Получение серийника HD
    #38856039
vdekameron
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vdekameron
Гость
Akina,

Большое спасибо!
...
Рейтинг: 0 / 0
16.01.2015, 12:29
| Ответить | Цитировать | Написать  
Получение серийника HD
    #38856325
vdekameron
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vdekameron
Гость
Чет сегодня вообще не мой день((
Получил серийник HD, как теперь выполнить проверку этот ли серийник на железе.
ведь при закрытии программы все переменные принимают значение empty. Если бы переменная сохранялась я бы в нее писал значение и потом сравнивал с новым при запуске программы.
...
Рейтинг: 0 / 0
16.01.2015, 15:55
| Ответить | Цитировать | Написать  
Получение серийника HD
    #38856574
Фотография Akina
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Akina
Участник
Сохрани в реестре или в файле. Чё как сегодня родился-то?
...
Рейтинг: 0 / 0
16.01.2015, 22:56
| Ответить | Цитировать | Написать  
Получение серийника HD
    #38856675
vdekameron
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vdekameron
Гость
Akina,

Да ну просто бывает такое, что ну ничего не идет. Не знаю, может только у меня. уже почти разобрался. Сохраняю в реестре, потом считываю номер при запуске и сравниваю.

Я прочитал что можно объявить переменную как Global ,тогда она при выходе из программы сохранит значение. Ее нужно объявлять только в модуле.
Можно ли в модуле объявить, но при этом чтобы переменная была в окне кода формы, или это противоречит всем законам?
...
Рейтинг: 0 / 0
17.01.2015, 12:31
| Ответить | Цитировать | Написать  
Получение серийника HD
    #38856678
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
vdekameronЯ прочитал что можно объявить переменную как Global ,тогда она при выходе из программы сохранит значение.приснилось
...
Рейтинг: 0 / 0
17.01.2015, 12:36
| Ответить | Цитировать | Написать  
Получение серийника HD
    #38856682
vdekameron
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vdekameron
Гость
Shocker.Proприснилось
Нет именно прочитал, найти эту ссылку?
...
Рейтинг: 0 / 0
17.01.2015, 12:53
| Ответить | Цитировать | Написать  
Получение серийника HD
    #38856685
13-й квартал
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
13-й квартал
Гость
vdekameronНет именно прочитал, найти эту ссылку?Просим-просим!
...
Рейтинг: 0 / 0
17.01.2015, 13:08
| Ответить | Цитировать | Написать  
Получение серийника HD
    #38856695
vdekameron
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vdekameron
Гость
13-й кварталПросим-просим!
Страница 65 - Время жизни переменных
www.bstu.by/uploads/attachments/metodichki/kafedri/Visual_Basic_6.pdf
...
Рейтинг: 0 / 0
17.01.2015, 13:29
| Ответить | Цитировать | Написать  
Получение серийника HD
    #38856699
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Время жизни переменныхПеременные, объявленные как локальные, при выходе из процедуры удаляются из памяти, а при новом вызове инициализируются заново.
Глобальные переменные при выходе из программы сохраняют свои значения.да, автор накосячил. Вместо "программы", следует читать "процедуры" так же, как и в первом случае
...
Рейтинг: 0 / 0
17.01.2015, 13:41
| Ответить | Цитировать | Написать  
Получение серийника HD
    #38856706
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Полистал пособие, в принципе вроде бы годная вещь, но тяжеловесная - читается с трудом. Но как дополнение к лекциям (как оно, собственно, и задумано), пожалуй, подходит.
...
Рейтинг: 0 / 0
17.01.2015, 14:00
| Ответить | Цитировать | Написать  
Получение серийника HD
    #38856720
vdekameron
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vdekameron
Гость
Shocker.Pro,


Shocker.ProПолистал пособие, в принципе вроде бы годная вещь, но тяжеловесная - читается с трудом

Посоветуйте пожалуйста автора, который дает информацию - доступность\качество
...
Рейтинг: 0 / 0
17.01.2015, 14:21
| Ответить | Цитировать | Написать  
Получение серийника HD
    #38856723
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Не готов, сам осваивал по бумажной книжке, но это было слишком давно, я ее кому-то уже задарил.

попробуйте поискать здесь в форуме по словам "учебник", "литература" (с морфологией)
...
Рейтинг: 0 / 0
17.01.2015, 14:28
| Ответить | Цитировать | Написать  
Получение серийника HD
    #38856731
vdekameron
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vdekameron
Гость
Shocker.Proпопробуйте поискать здесь в форуме по словам "учебник", "литература" (с морфологией)

Да у меня есть литература. Просто думал вы что-то посоветуете будучи уже знающим как и с чем это кушать.
...
Рейтинг: 0 / 0
17.01.2015, 14:38
| Ответить | Цитировать | Написать  
Получение серийника HD
    #38856739
vdekameron
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vdekameron
Гость
В чем отличие записи в реестр?
1) SaveSetting
2) WshShell.RegWrite
Есть ли в этих двух вариантах принципиальные отличия, либо они по сути выполняют одно и тоже
...
Рейтинг: 0 / 0
17.01.2015, 14:55
| Ответить | Цитировать | Написать  
Получение серийника HD
    #38856750
Фотография The_Prist
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
The_Prist
Участник
vdekameronВ чем отличие записи в реестр?
1) SaveSetting
2) WshShell.RegWrite

SaveSetting пишет исключительно в свою папку данные. В эту: HKEY_CURRENT_USER\Software\VB and VBA Program Settings\
WshShell.RegWrite же может записать в любую, какую укажете.
...
Рейтинг: 0 / 0
17.01.2015, 15:20
| Ответить | Цитировать | Написать  
Получение серийника HD
    #38856751
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
The_Pristв любую, какую укажете.при наличии прав, разумеется )
...
Рейтинг: 0 / 0
17.01.2015, 15:21
| Ответить | Цитировать | Написать  
25 сообщений из 108, страница 1 из 5
  1  все
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Получение серийника HD
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&msg=38856325&tid=2156056]:
 0ms
get settings:
 8ms
get forum list:
 12ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 44ms
get topic data:
 10ms
get forum data:
 2ms
get page messages:
 56ms
get tp. blocked users:
 1ms
others: 12ms
total:  153ms
созд. / загр.: 153ms
x
x
Закрыть


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