| Sower | Дата: Воскресенье, 28 Июнь 2009, 12:24 | Сообщение # 1 |
Ветеран форума
Группа: Проверенные
Сообщений: 808
Репутация: 9
Награды: 2
Статус: Online
| Вот небольшой пример, который извлекает немного информации о вашем процессоре (о нужном процессоре, вы можете указать его номер от 0...) из реестра. В примере есть уневирсальный скрипт для преобразования шестнадцатиричной системы(hex) в десятичную (dec), что было нужно для вывода информации о частоте процессора. Также там задействован vbs скрипт для преобразования юникода (в этой кодировке сохраняется информация из реестра при экспорте) в анси (Unicode->ANSI).
 
|
| |
| |
| YURIY | Дата: Воскресенье, 28 Июнь 2009, 12:31 | Сообщение # 2 |
Злостный админ
Группа: Администраторы
Сообщений: 2537
Репутация: 55
Награды: 20
Статус: Offline
| Неплохо! Молодец! Продолжай в том же духе и тебе станет недалеко до нашего клуба 
Вечная память Андрею Сергееву!
|
| |
| |
| Sower | Дата: Воскресенье, 28 Июнь 2009, 12:49 | Сообщение # 3 |
|
Ветеран форума
Группа: Проверенные
Сообщений: 808
Репутация: 9
Награды: 2
Статус: Online
| Спасибо
|
| |
| |
| YURIY | Дата: Вторник, 29 Сентябрь 2009, 23:56 | Сообщение # 4 |
|
Злостный админ
Группа: Администраторы
Сообщений: 2537
Репутация: 55
Награды: 20
Статус: Offline
| Quote (Grand) Кстати проект почемуто небыл размещен Я честно не знаю, размещать его или нет... Сомневаюсь немного. Какие будут мысли у других участников форума? И главное - у toizy.
Вечная память Андрею Сергееву!
|
| |
| |
| Sower | Дата: Среда, 30 Сентябрь 2009, 08:32 | Сообщение # 5 |
|
Ветеран форума
Группа: Проверенные
Сообщений: 808
Репутация: 9
Награды: 2
Статус: Online
| Quote (YURIY) Я честно не знаю, размещать его или нет... Сомневаюсь немного.
Ну не размещайте, мне както это не очень важно 
|
| |
| |
| YURIY | Дата: Пятница, 02 Июль 2010, 04:43 | Сообщение # 6 |
|
Злостный админ
Группа: Администраторы
Сообщений: 2537
Репутация: 55
Награды: 20
Статус: Offline
| Grand, постой, пусть другие выскажут своё мнение. Добавлено (02 Июль 2010, 04:43)
---------------------------------------------
Ау, блин! Народ, что скажете-то? Алекс, Дима, Пётр..?
Вечная память Андрею Сергееву!
|
| |
| |
| Alex3A | Дата: Пятница, 02 Июль 2010, 14:01 | Сообщение # 7 |
Друг клуба ММВ
Группа: Проверенные
Сообщений: 3032
Репутация: 31
Награды: 11
Статус: Offline
| Ну.. малоли, мож кому и полезно будет, только что бы с описанием скрипта, как самостоятельная прога ценности не большой, но как пример добычи нужного из реестра-
почему бы и нет. На случай, если кому надо в своей проге такие данные, вот тут и важны
будут описания, что бы знать как получить нужную цыферь.
хекс то дес я бы сделал так
Code str$='40A263'
**4235875
str$=LOW(str$)
ch=0
s$=str$[2]
d=LEN(str$)
For i=1 To d
a$=StrCopy(str$,i,1)
cod=ORD(a$)
If (cod>47 & cod<58) Then
rez=cod-48
End
If (cod>96 & cod<103) Then
rez=cod-87
End
p=d-i
ch=ch+rez*(16^p)
Next i
itog$=CHAR(ch)
LOW(str$)-это что бы по барабану было большие или маленькие букавы
|
| |
| |
| Peter | Дата: Пятница, 02 Июль 2010, 18:53 | Сообщение # 8 |
Админ NeoBook
Группа: Админ NeoBook
Сообщений: 2582
Репутация: 37
Награды: 14
Статус: Offline
| Quote (Alex3A) как самостоятельная прога ценности не большой, но как пример добычи нужного из реестра-
почему бы и нет.
Справедливо.
Чем дорожу... Чем рискую на свете я....
Мигом одним! Только мигом одним!...
WHITESNAKE St.Petersburg - 11.12.2008
|
| |
| |
Все права защищены
