Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Устройства Винды / 5 сообщений из 5, страница 1 из 1
26.07.2005, 13:58:54
    #33184920
Ky3AB
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Устройства Винды
День добрый...
Скажите плиз как в басике определить железо, тобишь: мамку, звуковую, сетевую, принтер, монитор, сканер, модем...
...
Рейтинг: 0 / 0
26.07.2005, 22:48:31
    #33185869
# Darth Vader #
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Устройства Винды
Ky3ABДень добрый...
Скажите плиз как в басике определить железо, тобишь: мамку, звуковую, сетевую, принтер, монитор, сканер, модем...

Может считывая инфу с реестра...
...
Рейтинг: 0 / 0
27.07.2005, 11:49:25
    #33186499
rrrrrrrrrr
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Устройства Винды
Копайте в сторону Windows Management Instrumentation (WMI).
Самый простой способ (шутка :)):
Shell "..\Aida32.exe", VB_SHOW
...
Рейтинг: 0 / 0
27.07.2005, 19:51:14
    #33187885
Андрей Il
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Устройства Винды
Это можно сделать на 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 Мб). Там расписаны все классы устройств. Устанавливаешь, смотришь, подставляешь в пример и получаешь подробную информацию об устройствах.
...
Рейтинг: 0 / 0
28.07.2005, 08:25:52
    #33188192
Ky3AB
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Устройства Винды
Спасиба ограмадное..... буду смотреть....
...
Рейтинг: 0 / 0
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Устройства Винды / 5 сообщений из 5, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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