#include <IE.au3>
_IEFormElementSetObjByClass($oIE, 'input', 'input help_inp input_title', 'ТЕКСТ')
Func _IEFormElementSetObjByClass($oIE, $sTag, $sClass, $sText)
If IsObj($oIE) = 1 And IsString($sTag) = 1 Then;
Local $Inputs = _IETagNameGetCollection($oIE, $sTag);Функция возвращает колекцию найденных объектов по тегу записанному в переменную $sTag
;если функция _IETagNameGetCollection отработала правильно то в макрос @error ни чего не запишется и соответсвенно переменная $Inputs будет содержать колекцию обьектов по заданному тегу
If Not @error And IsObj($Inputs) = 1 Then
For $Input In $Inputs;В цикле мы перебираем колекцию обьектов тега
If $Input.classname == $sClass Then;Если класс тега записанный в переменную $sClass равен классу в конструкции $Input.classname то значит это наш тег и мы содержимое этого тега передаем в функцию строчкой ниже
_IEFormElementSetValue($Input, $sText)
;MsgBox(1,@error,_IEFormElementSetValue($Input, $sText))
If Not @error Then;Если @error пустой то значит функция _IEFormElementSetValue отработала и наша самописная функция вернет 1
Return 1
Else
Return -4
EndIf
Else
Return -3
EndIf
Next
Else
Return -2
EndIf
Else
Return -1;Выдаст -1 если объект IE, не является обьектом или переменная $sTag не строка
EndIf
EndFunc ;==>_IEFormElementGetObjByClass