|
|
|
Устройства Винды
|
|||
|---|---|---|---|
|
#18+
День добрый... Скажите плиз как в басике определить железо, тобишь: мамку, звуковую, сетевую, принтер, монитор, сканер, модем... ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 26.07.2005, 13:58:54 |
|
||
|
Устройства Винды
|
|||
|---|---|---|---|
|
#18+
Ky3ABДень добрый... Скажите плиз как в басике определить железо, тобишь: мамку, звуковую, сетевую, принтер, монитор, сканер, модем... Может считывая инфу с реестра... ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 26.07.2005, 22:48:31 |
|
||
|
Устройства Винды
|
|||
|---|---|---|---|
|
#18+
Копайте в сторону Windows Management Instrumentation (WMI). Самый простой способ (шутка :)): Shell "..\Aida32.exe", VB_SHOW ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 27.07.2005, 11:49:25 |
|
||
|
Устройства Винды
|
|||
|---|---|---|---|
|
#18+
Это можно сделать на VBScript: strComputer = "." Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set colMice = objWMIService.ExecQuery _ ("Select * from Win32_PointingDevice") For Each objMouse In colMice MsgBox "Hardware Type: " & objMouse.HardwareType MsgBox "Number of Buttons: " & objMouse.NumberOfButtons MsgBox "Status: " & objMouse.Status MsgBox "PNP Device ID: " & objMouse.PNPDeviceID Next В данном примере узнаем информацию о мыши. Есть WMITools на сайте Microsoft (примерно 5 Мб). Там расписаны все классы устройств. Устанавливаешь, смотришь, подставляешь в пример и получаешь подробную информацию об устройствах. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 27.07.2005, 19:51:14 |
|
||
|
|
start [/forum/topic.php?desktop=1&fid=60&tid=2167430]: |
0ms |
get settings: |
10ms |
get forum list: |
16ms |
check forum access: |
4ms |
check topic access: |
4ms |
track hit: |
86ms |
get topic data: |
10ms |
get forum data: |
2ms |
get page messages: |
43ms |
get tp. blocked users: |
2ms |
| others: | 239ms |
| total: | 416ms |
| 0 / 0 |
