ReSQL.ru
     
powered by simpleCommunicator - 2.0.59     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / определить координаты
7 сообщений из 7, страница 1 из 1
определить координаты
    #38020314
opopopopo
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
opopopopo
Гость
подскажите, как определить координаты слова на странице?
я открывыаю эксплорером страницу, мне нужно найти опредленное слово, сместиться относительно него на заданное расстояние и сэмулировать нажатие правой кнопки мышки с сохранением картинки.
пока что-то не могу сообразить как координаты слова определить..
...
Рейтинг: 0 / 0
31.10.2012, 15:31
| Ответить | Цитировать | Написать  
определить координаты
    #38022057
opopopopo
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
opopopopo
Гость
да ладно, неужели это невыполнимая задача???
нужно просто курсор навести на слово на web-странице.. очень нужно!!
help.....
...
Рейтинг: 0 / 0
01.11.2012, 16:23
| Ответить | Цитировать | Написать  
определить координаты
    #38022168
Фотография Serge 007
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Serge 007
Участник
opopopopo...на web-странице...
А с каких пор в состав офиса входит браузер?
...
Рейтинг: 0 / 0
01.11.2012, 17:09
| Ответить | Цитировать | Написать  
определить координаты
    #38022276
opopopopo
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
opopopopo
Гость
Serge 007А с каких пор в состав офиса входит браузер?
так це ж все продукты microsoft.
попробую пойти другим путем - вызывать эксплорер с жесткой привязкой к левому врехнему углу экрана и посылать туда ctrl+F, тогда нужная мне строка всегда получается в одном и том же месте..
...
Рейтинг: 0 / 0
01.11.2012, 18:06
| Ответить | Цитировать | Написать  
определить координаты
    #38022310
Фотография Akina
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Akina
Участник
opopopopoвызывать эксплорер с жесткой привязкой к левому врехнему углу экранаMaximized
...
Рейтинг: 0 / 0
01.11.2012, 18:27
| Ответить | Цитировать | Написать  
определить координаты
    #38022758
opopopopo
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
opopopopo
Гость
Akina, не, я сделал так
привязал к левому верхнему углу и жестко задал размер окна.

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
IE.Navigate addr$
IE.Visible = True
IE.Height = 350
IE.Width = 600
IE.Left = 0
IE.Top = 0
IE.AddressBar = False
While IE.Busy Or (IE.readyState <> 4): DoEvents: Wend
While IE.Busy Or (IE.readyState <> 4): DoEvents: Wend



вот только потом у меня какой-то глюк - посылаю сочетания клавиш в эксплорер - а они не туда посылаются...
и в итоге не делается как нужно

Код: vbnet
1.
2.
3.
4.
5.
Sheets("temp").Cells(1, 1).Copy
AppActivate "Windows Internet Explorer"
SendKeys "^f"
AppActivate "Windows Internet Explorer"
SendKeys "^v"



причем в другом скрипте у меня отлично срабатывает этот AppActivate..
...
Рейтинг: 0 / 0
02.11.2012, 08:53
| Ответить | Цитировать | Написать  
определить координаты
    #38022772
opopopopo
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
opopopopo
Гость
пока обошел как-то так, но надо, конечно, тестировать

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
AppActivate "Windows Internet Explorer"
Application.SendKeys ("^f"), True
StartTime = Now
    Do While DateDiff("s", StartTime, Now) < 0.5
  Loop
AppActivate "Windows Internet Explorer"
Application.SendKeys ("^v"), True



кто-нибудь знает какой-то более надежный способ работы с этим AppActivate???
...
Рейтинг: 0 / 0
02.11.2012, 09:09
| Ответить | Цитировать | Написать  
7 сообщений из 7, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / определить координаты
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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