Определяем координаты курсора мыши в 1С без ВК...

21.10.05

✎

13:45

Процедура ПриОткрытии()
СтатусВозврата(0);
oIE = CreateObject("InternetExplorer.Application");
oIE.navigate("about:blank");
oIE.Toolbar=0;
oIE.Statusbar=0;
oIE.Left=0;
oIE.Top=0;
oIE.Height=oIE.document.script.screen.Height;
oIE.Width=oIE.document.script.screen.Width;
oIE.resizable=0;
oIE.visible = -1;
oIE.Document.write("<script>
|var mLocX;
|var mLocY;
|function mouseXY(e){
|mLocX = event.x;
|mLocY = event.y;
|}
|document.onmousemove=mouseXY;
|</script><body></body>");
Пока oIE.Busy=-1 Цикл
Состояние("Ждем...");
КонецЦикла;
Пока СокрЛП("" + oIE.Document.script.mLocX)="" Цикл
Состояние("Ждем...");
КонецЦикла;
x=oIE.Document.script.mLocX;
y=oIE.Document.script.mLocY;
oIE.Height=0;
oIE.Width=0;
//oIE.Height=32;
//oIE.Width=30;
//oIE.Left=oIE.Document.script.mLocX -13;
//oIE.Top=oIE.Document.script.mLocY +16;
Предупреждение(""+X+":"+Y);
oIE.Quit();
КонецПроцедуры // ПриОткрытии
...
Если разремить строки то выйдет интересная кнопка, которую можно пристроить к 1С

1 Волшебник

модератор

21.10.05

✎

13:46

Эту статью можно поместить в базу знаний www.kb.mista.ru

2 smaharbA

21.10.05

✎

13:48

Помещю я их все, и Ковычек тоже, времени нету сверстать, да и излагатель из меня слабоват

3 Любитель XML

21.10.05

✎

13:48

прикольно, работает.

4 povar

21.10.05

✎

13:48

(0) зачем это ?

5 smaharbA

21.10.05

✎

13:50

А в обработку ожидания с периодом минут в 30, так можно определить работает чел на компе или просто так 1с запущена, а вообщето "добъю" очень интересная штука может выйти

6 OFF

21.10.05

✎

13:51

(4) пригодиться :)
Спрашивали раз, как карту в жпг в 1с показать и определить координаты, посоветовали юзать ехплорер
А тут тебе и готовую процедурку дали на кординаты :)

7 France

21.10.05

✎

13:51

+4 в стране жрать, нечего; программистов 8.0 не хватает, а народ изгаляецца, панимаеш ли.

8 goodfella

21.10.05

✎

13:53

Ай, молодец.

9 smaharbA

21.10.05

✎

13:53

(6) Она тормозная, это только если определять вообще была мышка в данной области экрана за кусок времени или нет, зачем делал, а незнаю. Вот без ВК определять хэндл окошек в 1С вот это уже будет кое-что

10 smaharbA

21.10.05

✎

13:54

+(9) Работы до и больше, но немАгу больше работать с недолекими...

11 Denisыч

21.10.05

✎

14:00

(0) А как вот это, критично или нет в части
>>Пока oIE.Busy=-1 Цикл

"Если в цикле ожидания готовности объекта objIE условие objIE.readystate < 4
заменить на objiE.busy (распространенная ошибка), то в Windows 9x прило-
жение будет завершаться с ошибкой примерно один раз из четырех."
Взято из Михайлов:Системное программирование

12 smaharbA

21.10.05

✎

14:02

(11) Этт я в курсе, но уж привык

13 raykom

21.10.05

✎

14:49

Самопеарим ? ;)

14 goodfella

21.10.05