Гость
Войти | Профиль | Очистить
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Получение серийника HD / 25 сообщений из 108, страница 1 из 5
  1  все
15.01.2015, 17:17
    #38855458
vdekameron
vdekameron
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Получение серийника HD
Искал в интернете. Довольно много есть на эту тему обсуждений и примеров. Но в своем большинстве они основаны на дублированной защите. Т.е. серийный номер используют в качестве некоторых символов лицензионного кода и т.д.
Подскажите, пожалуйста, наиболее простой способ получение серийного номера жесткого диска. Хотя для жителей этого форума наверное все способы простые)
Заранее спасибо!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
15.01.2015, 17:50
    #38855490
Akina
Akina
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Получение серийника HD
Код: 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
| Ответить | Цитировать | Написать  
16.01.2015, 09:26
    #38855798
vdekameron
vdekameron
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Получение серийника HD
Akina,

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

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


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

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

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

Сорри, как вы его получили? перевожу числа через hex получается вообще не то.
И если ASCII коды, то какие, если тут одно сплошное число и 2 строковых параметра "а" затисались
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
16.01.2015, 11:28
    #38855932
Akina
Akina
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Получение серийника HD
Код: 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
    #38855934
Akina
Akina
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Получение серийника HD
сорри

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

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

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

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


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

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

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

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

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


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