<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>
$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
_IEAction($oAreas(0), "click")
_IEAction($oAreas^ERROR
Error: Error parsing function call.
For $oMap in $oMaps
For $oMap in $oMaps^ERROR
Error: Variable must be of type "Object"
#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
Поправил_IEAction($oAreas(0), "click")_IEAction($oAreas^ERRORError: Error parsing function call.
$oArea = _IETagNameGetCollection($oIE, "area", 0)
_IEAction($oArea, "click")
Error: Variable used without being declared
#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] привет") ; Вводим текст
; дальше нужно нажать на кнопку отправить
#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")