Что нового

клик по кнопке href "onclick="chat.submit();return false;"

Tob72

Новичок
Сообщения
13
Репутация
2
Код:
<map name="map_chat">
	<area shape="rect" coords="25,6,38,22" href="#preveeed! :)"onclick="chat.submit();return false;"title="Отправить" alt="Отправить"/>
подскажите как нажать по такой кнопке
 

Garrett

Модератор
Локальный модератор
Сообщения
3,999
Репутация
967
Попробуйте так
Код:
$oAreas = _IETagNameGetCollection($oIE, "area")
$oArea = $oAreas(0)
_IEAction($oArea, "click")
 
Автор
T

Tob72

Новичок
Сообщения
13
Репутация
2
ошибка выскакивает.вот код с тремя кнопками если поможет

Код:
<map name="map_chat">
	<area shape="rect" coords="25,6,38,22" href="#preveeed! :)"onclick="chat.submit();return false;"title="Отправить" alt="Отправить"/>
	<area shape="rect" coords="50,6,63,22" href="#очистить всё!! o_O"onclick="chat.clear();return false;" title="Очистить окно чата" alt="Очистить окно чата"/>
	<area shape="rect" coords="75,6,88,22" href="#нажмешь - появяццо смалеги (:" id="btn_smile"/>
</map>
 

Asshaker

Знающий
Сообщения
150
Репутация
17
попробуй так:
Код:
$oIE=_IEAttach('Title') ; подключаемся к окну ИЕ с Title
$oMaps=_IETagNameGetCollection($oIE,'map') ; собираем теги на подключенной странице
For $oMap in $oMaps
	$oAreas=_IETagNameGetCollection($oMap,'area') ; собираем теги в ранее собранных
	For $oArea in $oAreas
		If $oArea.href='#preveeed! :)' Then ; если ссылка содержит
			_IEAction($oArea,'Click') ; клик по кнопке
			ExitLoop
		EndIf
	Next
Next

Ты бы показал бы, что там за "ошибка"
 

ggzgamer

Осваивающий
Сообщения
134
Репутация
23
Код:
#include <IE.au3>

$oTags=_IETagNameGetCollection($oIE, 'area')
If Not @error Then
	For $oTag In $oTags
		Local $sTagProp=_IEPropertyGet($oTag, 'outerhtml')
		If Not @error Then
			If StringInStr($sTagProp, 'chat.submit') And StringInStr($sTagProp, 'Отправить') Then
				_IEAction($oTag, 'click')
				If @error Then
					ConsoleWrite('Error Click' & @CRLF)					
				EndIf
				ExitLoop
			EndIf
		Else
			ConsoleWrite('Error Get Prop' & @CRLF)
			Exit
		EndIf
	Next
Else
	ConsoleWrite('Error Get Tag' & @CRLF)
	Exit
EndIf
 

Garrett

Модератор
Локальный модератор
Сообщения
3,999
Репутация
967
Tob72 [?]
_IEAction($oAreas(0), "click")_IEAction($oAreas^ERRORError: Error parsing function call.
Поправил
Можно ещё так
Код:
$oArea = _IETagNameGetCollection($oIE, "area", 0)
_IEAction($oArea, "click")
 

Garrett

Модератор
Локальный модератор
Сообщения
3,999
Репутация
967
Tob72
Поправил
 

Asshaker

Знающий
Сообщения
150
Репутация
17
Что-то мне подсказывает ты даже к окну IE не подключаешься...
Почитай хепл по командам.
----
Добавил коменты
 
Автор
T

Tob72

Новичок
Сообщения
13
Репутация
2
Кажется я что то не то делаю вот мой код может попробуете сами зайти и посмотреть

Код:
#include <IE.au3>
$oIE = _IECreate ("http://www.ereality.ru") ; Заходим на сайт
_IELoadWait($oIE) ; Ждем пока полность загрузится
$oForm = _IEFormGetObjByName ($oIE, "login") ; Находим форму
$oUser = _IEFormElementGetObjByName ($oForm, "login") ; Находим поле имя
$oPass = _IEFormElementGetObjByName ($oForm, "pass") ; Находим поле пароль
_IEFormElementSetValue ($oUser, "testergr") ; Вводим имя
_IEFormElementSetValue ($oPass, "passtester") ; Вводим пароль
$go_Submit = _IEFormElementGetObjByName($oForm, "submit") ; Находим кнопку submit
_IEAction($go_Submit, "click") ; Нажимаем submit
_IELoadWait($oIE) ; Ждем пока полность загрузится
$oForm = _IEFormGetObjByName ($oIE, "frm_chat") ; Находим форму чата
$oChat_msg = _IEFormElementGetObjByName ($oForm, "chat_msg") ; Находим поле чата
_IEFormElementSetValue ($oChat_msg, "[testergr] привет") ; Вводим текст 
; дальше нужно нажать на кнопку отправить
 

madmasles

Модератор
Глобальный модератор
Сообщения
7,790
Репутация
2,322
Tob72,
Предупреждение За нарушение правил форума (пункт В.11):
Любые отрывки AutoIt кода необходимо заключать в тег [autoit]
autoit.gif
(подробнее), а обычный код соответственно в тег [code]
code.gif
(подробнее). Также большие выдержки текста помещайте под тег [spoiler]
spoiler.gif
(подробнее), там где это поддерживается естественно. Как в случае с названием темы, также короткое и эргономичное сообщение привлекает больше внимания, и шансы на получение конкретного ответа увеличиваются.


С уважением, ваш Модератор.
 

Garrett

Модератор
Локальный модератор
Сообщения
3,999
Репутация
967
Код:
#include <IE.au3>
$oIE = _IECreate ("http://www.ereality.ru") ; Заходим на сайт
$oForm = _IEFormGetCollection($oIE, 1)
$oLogin = _IEFormElementGetObjByName($oForm, "login")
_IEFormElementSetValue ($oLogin, "testergr") ; Вводим имя
$oPassw = _IEFormElementGetObjByName($oForm, "pass")
_IEFormElementSetValue ($oPassw, "passtester") ; Вводим пароль
$go_Submit = _IEFormElementGetObjByName($oForm, "submit") ; Находим кнопку submit
_IEAction($go_Submit, "click") ; Нажимаем submit
_IELoadWait($oIE)
$oForm = _IEFormGetObjByName ($oIE, "frm_chat") ; Находим форму чата
$oChat_msg = _IEFormElementGetObjByName ($oForm, "chat_msg") ; Находим поле чата
_IEFormElementSetValue ($oChat_msg, "[testergr] привет") ; Вводим текст
$oArea = _IETagNameGetCollection($oIE, "area")
$oArea = $oArea(0)
_IEAction($oArea, "click")
 
Автор
T

Tob72

Новичок
Сообщения
13
Репутация
2
сейчас попробывал на старом компе каждый ваш присланный код работает прекрасно:smile:
значит проблема в ИЕ на ноуте?
 

CreatoR

Must AutoIt!
Команда форума
Администратор
Сообщения
8,671
Репутация
2,481
Tob72
Поправь свои сообщения, или тема будет закрыта.
 

Asshaker

Знающий
Сообщения
150
Репутация
17
Какая версия IE на ноутбуке? Если 9ка, сноси нафиг и ставь 8ку :smile:
 

Garrett

Модератор
Локальный модератор
Сообщения
3,999
Репутация
967
Предупреждение
Tob72
Если тема решена, это не означает что нужно продолжать игнорировать замечания "Администратора" и "Модератора"!
Сегодня я поправил ваши сообщения за вас, но впредь этого не будет.
Придерживайтесь, пожалуйста, правил форума.

С уважением, ваш Модератор.
 
Верх