Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / vbs: аналог объекта screen? / 10 сообщений из 10, страница 1 из 1
22.12.2005, 10:00
    #33451005
Утюг
Утюг
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vbs: аналог объекта screen?
Собсвенно, надо в скрипте узнать разрешение экрана, типа Screen.Height, Screen.TwipsPerPixelX в VB.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.12.2005, 11:40
    #33451378
Пользователь2
Пользователь2
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vbs: аналог объекта screen?
WMI.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.12.2005, 12:00
    #33451487
Андрей Il
Андрей Il
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vbs: аналог объекта screen?
On Error Resume Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_VideoConfiguration",,48)
For Each objItem in colItems
Wscript.Echo "ActualColorResolution: " & objItem.ActualColorResolution
Wscript.Echo "AdapterChipType: " & objItem.AdapterChipType
Wscript.Echo "AdapterCompatibility: " & objItem.AdapterCompatibility
Wscript.Echo "AdapterDACType: " & objItem.AdapterDACType
Wscript.Echo "AdapterDescription: " & objItem.AdapterDescription
Wscript.Echo "AdapterRAM: " & objItem.AdapterRAM
Wscript.Echo "AdapterType: " & objItem.AdapterType
Wscript.Echo "BitsPerPixel: " & objItem.BitsPerPixel
Wscript.Echo "Caption: " & objItem.Caption
Wscript.Echo "ColorPlanes: " & objItem.ColorPlanes
Wscript.Echo "ColorTableEntries: " & objItem.ColorTableEntries
Wscript.Echo "Description: " & objItem.Description
Wscript.Echo "DeviceSpecificPens: " & objItem.DeviceSpecificPens
Wscript.Echo "DriverDate: " & objItem.DriverDate
Wscript.Echo "HorizontalResolution: " & objItem.HorizontalResolution
Wscript.Echo "InfFilename: " & objItem.InfFilename
Wscript.Echo "InfSection: " & objItem.InfSection
Wscript.Echo "InstalledDisplayDrivers: " & objItem.InstalledDisplayDrivers
Wscript.Echo "MonitorManufacturer: " & objItem.MonitorManufacturer
Wscript.Echo "MonitorType: " & objItem.MonitorType
Wscript.Echo "Name: " & objItem.Name
Wscript.Echo "PixelsPerXLogicalInch: " & objItem.PixelsPerXLogicalInch
Wscript.Echo "PixelsPerYLogicalInch: " & objItem.PixelsPerYLogicalInch
Wscript.Echo "RefreshRate: " & objItem.RefreshRate
Wscript.Echo "ScanMode: " & objItem.ScanMode
Wscript.Echo "ScreenHeight: " & objItem.ScreenHeight
Wscript.Echo "ScreenWidth: " & objItem.ScreenWidth
Wscript.Echo "SettingID: " & objItem.SettingID
Wscript.Echo "SystemPaletteEntries: " & objItem.SystemPaletteEntries
Wscript.Echo "VerticalResolution: " & objItem.VerticalResolution
Next
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.12.2005, 13:19
    #33451852
Утюг
Утюг
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vbs: аналог объекта screen?
Андрей Il On Error Resume Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_VideoConfiguration",,48)
For Each objItem in colItems
mymsg = msgbox("Ура, заработала!")
Next

Чегой-то ни хрена такое не фунциклюет. Но за наводку на WMI спасибо - я про него совсем и забыл. Вобщем, я пошел своим путем:
Код: plaintext
1.
2.
3.
4.
5.
6.
[/SRC]Set Locator = CreateObject("WbemScripting.SWbemLocator")
Set Services = Locator.ConnectServer(".")
Set Obj = Services.ExecQuery("Select * from Win32_DesktopMonitor")

For Each Item In Obj
mymsg = msgbox(Item.ScreenWidth & "x" & Item.ScreenHeight)
Next[SRC vba]
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.12.2005, 13:36
    #33451909
Утюг
Утюг
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vbs: аналог объекта screen?
Рано обрадовался, объект WbemScripting в 98 винде не создается, а мне хотелось бы и в ней запускать.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.12.2005, 15:08
    #33452280
Утюг
Утюг
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vbs: аналог объекта screen?
Вобщем, заработал и предыдущий код - в нем неверно (?) было указано имя класса
Win32_VideoConfiguration, по крайней мере, я такого не нашел. С моникером, конечно, запускать интереснее, но с правами нелады. И если на компах с в2к и ХР можно юзать "местный" WMI, то с 98 - пока напряг. Я не соображу, как и прав не дать и запуск организовать.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.12.2005, 15:33
    #33452412
Андрей Il
Андрей Il
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vbs: аналог объекта screen?
Запуск от имени
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.12.2005, 15:51
    #33452483
Утюг
Утюг
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vbs: аналог объекта screen?
А в 98 откуда runas'у взяться? Да и был бы - раздавать админский пароль не тянет. Кроме того, запускаться это дело должно из шедулера, без участия юзера. Интересно, а какие надо выдать права (или на что), чтобы можно было использовать моникер?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.12.2005, 14:29
    #33454535
Утюг
Утюг
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vbs: аналог объекта screen?
Короче, надоело мне это все, плюнул я и скачал с мелкософта ядро WMI для Win95/98 и WSH 5.6 для них же. Ессно, все заработало...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Период между сообщениями больше года.
18.02.2007, 11:55
    #34338965
Владимир Саныч
Владимир СанычПривилегированный пользователь
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vbs: аналог объекта screen?
Догадываюсь, что мой ответ уже никому не нужен, однако он нашелся. Вместо
CreateObject("WbemScripting.SWbemLocator")
в Windows 98 можно пользоваться вот таким объектом:
<object ID='Locator' CLASSID='CLSID:76A64158-CB41-11D1-8B02-00600806D9B6'></object>
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / vbs: аналог объекта screen? / 10 сообщений из 10, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 745ms
Закрыть
start [/forum/topic.php?fid=60&tablet=1&tid=2164489]:
 0ms
get settings:
 6ms
get forum list:
 16ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 425ms
get topic data:
 11ms
get forum data:
 2ms
get page messages:
 50ms
get tp. blocked users:
 2ms
others: 225ms
total:  745ms
x
x
Закрыть


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