$oSendFrame = _IEFrameGetObjByName($oFrames,'inp')
;не задумывался над этим. просто откопипастил
Do
Sleep(250)
Until _IEPropertyGet($oSendFrame, "InnerText") <> ""
;=====>
$oForm = _IEFormGetObjByName($oSendFrame, "say")
$oSendText = _IEFormElementGetObjByName ($oForm, "EX")
_IEFormElementSetValue($oSendText, _IEFormElementGetValue ($oSendText) & ' Ай Лю Лю. Пыщь-пыщь!!!!')
$oInputs = _IETagNameGetCollection($oForm, 'INPUT')
;Одно из этого оставь. Сейчас работает приват
$s = 'Всем'
$s = 'Приват'
For $elem In $oInputs
$sHTML = _IEPropertyGet($elem, 'outerHTML')
$i = StringInStr($sHTML, $s)
If $i > 0 Then
MsgBox(0,0, 'Сейчас отправим сообщение. ' & $s)
;снимешь коммент
;~ _IEAction($elem, 'click')
ExitLoop
EndIf
Next