Отчего же нельзя, можно. Я выложил все исходники. Надо просто поменять значения в командах задания размера и положения окон.
Вид для печати
ушел разбираться с AutoIt, если не разберусь - обращусь с просьбой помочь Ж)
Обращайся помогу (Мне поменять не долго, но я все равно отладить не смогу с таким экраном) Да и потом AutoIt всегда пригодится для задач PCCAR.
Вообще планирую осенью (сейчас время нет) сделать универсальную версию для любого расположения проги и размеров окон с заданием параметров в ини файле.
первый запуск проги не дал быстрого желаемого результата, начало жать не точто надо...
поменяй плз значения окошка под твое 800*480, только без рамки рр (фуллскрин так сказать- для моего компа оно родное ), а под другое я попытаюсь сам подкрутить ( вникнуться в оба исходника )
Я выложу исходник нужно поменять размеры окна и настроить заново клики мышки начальное положение окна у меня х=43 у=25 дополнительная подвижка окна нужна чтобы заставить закрыться ненужные панели.
Код:#include <GUIConstants.au3>
Opt( "WinSearchChildren", 1)
Opt( "WinTitleMatchMode", 2)
Opt( "WinDetectHiddenText", 1)
If ProcessExists("grym.exe") Then Exit
Run("C:\Program Files\2gis\3.0\grym.exe")
Sleep(500)
WinActivate("Городская информационная система", "")
WinWait("Городская информационная система", "Загрузка завершена")
Sleep(500)
ControlFocus("Городская информационная система", "", "")
ControlClick("Городская информационная система", "", "[CLASS:Button; INSTANCE:1]") ;нажимаем "далее"
WinWaitActive(" - ДубльГИС", "")
Sleep(500)
MouseMove(340, 70, 0); включаем навигацию
MouseClick("left")
MouseMove(110, 90, 5)
MouseClick("left")
;~
WinMove(" - ДубльГИС", "", 43, 25, 721, 549) ;устанавливаем размер окна несколько меньше
ControlHide(" - ДубльГИС", "", "[CLASS:XTPDockBar; INSTANCE:1]"); удаляем все ненужные
ControlHide(" - ДубльГИС", "", "[CLASS:Grym_ToolbarBanner; INSTANCE:1]"); компоненты окна
ControlHide(" - ДубльГИС", "", "[CLASS:Grym_MainBanner; INSTANCE:1]")
ControlHide(" - ДубльГИС", "", "[CLASS:ATL:009BA898; INSTANCE:1]")
ControlHide(" - ДубльГИС", "", "[CLASS:Grym_DirectoryCollection; INSTANCE:1]")
WinMove(" - ДубльГИС", "", 43, 25, 761, 579) ;;устанавливаем размер окна
Sleep(1500)
ControlMove(" - ДубльГИС", "", "[CLASS:Grym_MapView; INSTANCE:1]", -3, -2, 761, 579) ;убираем рамку
ControlHide(" - ДубльГИС", "", "[CLASS:Grym_ToolbarBanner; INSTANCE:1]") ; убираем банер
;закрываем на карте логотипы и т.п.
MouseMove(400, 300, 0)
MouseClick("right")
MouseMove(500, 384, 0)
MouseClick("left")
MouseMove(400, 300, 0)
MouseClick("right")
MouseMove(500, 404, 0)
MouseClick("left")
MouseMove(400, 300, 0)
MouseClick("right")
MouseMove(500, 424, 0)
MouseClick("left")
Exit
Благодарю!! подравнял под свое окошко, на бб работает зашибись, осталось теперь на мелком опробывать!
таак, после манипуляций с местоположением неадекватно стал работать Win_2gis V1, оно и понятно впринципе... можно исходничек посмотреть?! , а то его какраз и небыло...
Да, только не уверен, что это последний рабочий вариант (Все мудрил с плагином ЖПС11.5).
Код:;Код:
#include <GUIConstants.au3>
Opt( "WinSearchChildren", 1)
Opt( "WinTitleMatchMode", 2)
Opt( "WinDetectHiddenText", 0)
WinActivate(" - ДубльГИС", "")
ControlFocus(" - ДубльГИС", "MainBar", "")
Sleep(500)
If WinActive(" - ДубльГИС", "MainBar") Then
Sleep(500)
MouseMove(340, 70, 0); выключаем навигацию
MouseClick("left")
MouseMove(110, 90, 5)
MouseClick("left")
WinMove(" - ДубльГИС", "", 43, 25, 721, 549) ;устанавливаем размер окна несколько меньше
ControlHide(" - ДубльГИС", "", "[CLASS:XTPDockBar; INSTANCE:1]"); удаляем все ненужные
ControlHide(" - ДубльГИС", "", "[CLASS:Grym_ToolbarBanner; INSTANCE:1]"); компоненты окна
ControlHide(" - ДубльГИС", "", "[CLASS:Grym_MainBanner; INSTANCE:1]")
ControlHide(" - ДубльГИС", "", "[CLASS:ATL:009BA898; INSTANCE:1]")
ControlHide(" - ДубльГИС", "", "[CLASS:Grym_DirectoryCollection; INSTANCE:1]")
WinMove(" - ДубльГИС", "", 43, 25, 761, 579) ;;устанавливаем размер окна
Sleep(500)
ControlMove(" - ДубльГИС", "", "[CLASS:Grym_MapView; INSTANCE:1]", -3, -2, 761, 579) ;убираем рамку
ControlHide(" - ДубльГИС", "", "[CLASS:Grym_ToolbarBanner; INSTANCE:1]") ; убираем банер
ControlFocus(" - ДубльГИС", "", "[CLASS:Grym_MapView; INSTANCE:1]")
Exit
EndIf
ControlFocus(" - ДубльГИС", "", "")
ControlMove(" - ДубльГИС", "", "[CLASS:Grym_MapView; INSTANCE:1]", -3, 81, 761, 529)
ControlHide(" - ДубльГИС", "", "[CLASS:ATL:009BA898; INSTANCE:1]")
ControlHide(" - ДубльГИС", "", "[CLASS:Grym_DirectoryCollection; INSTANCE:1]")
ControlShow(" - ДубльГИС", "", "[CLASS:XTPDockBar; INSTANCE:1]"); Включаем все нужные
ControlShow(" - ДубльГИС", "MainBar", "")
Sleep(500)
MouseMove(340, 70, 0); включаем навигацию
MouseClick("left")
MouseMove(110, 90, 5)
MouseClick("left")
MouseMove(340, 70, 0); включаем окно навигации
MouseClick("left")
ControlHide(" - ДубльГИС", "", "[CLASS:Grym_MainBanner; INSTANCE:1]")
ControlHide(" - ДубльГИС", "", "[CLASS:ATL:009BA898; INSTANCE:1]")
ControlHide(" - ДубльГИС", "", "[CLASS:Grym_DirectoryCollection; INSTANCE:1]")
ControlMove(" - ДубльГИС", "", "[CLASS:Grym_MapView; INSTANCE:1]", -3, 81, 761, 529)
Exit
отлично!! прячет и показывает адекватно.. осталось цепануть к жпсу, проверить как кнопки жмет
Вышла новая версия проги 2ГИС 3.0.7.1. Проверил работу с симулятором Franson GpsGate - вроде все работает также.
попробуем проабгрейтить , посмотрим что получится.