[Окна, Диалоги] IE: Работа с JavaScript сообщениями

Send($count)
Send("{ENTER}")

#include IE.au3

$oIE = _IECreate (http://test.com)
_IELoadWait ($oIE)

	_IEImgClick ($oIE, "Management", "alt")
	_IELoadWait ($oIE)
	
		$count=1
		
		For 1 to 10
			_IEImgClick ($oIE, "New", "alt")
			;появляется JavaScript message 
			; WinWaitActive("JavaScript Window Name") -?
			; _IELoadWait ("JavaScript Window Name") -?
			Send($count)
			Sleep(1000)
			Send("{ENTER}")
			$count=$count+1
		Next

$hWind = WinWaitActive("[Class:IEFrame]")
MsgBox(0, "22", $hWind, 3)

MsgBox(0, '', 'Yes')

#include <IE.au3>
#include <File.au3>

;Ваш код
;...

$sTempFile = _TempFile(@TempDir)
$iPid = _Click_Prompt_IE('Test')
If Not $iPid Then
	MsgBox(16, 'Error', '_Click_Prompt_IE')
EndIf
;_IEImgClick($oIE, "New", "alt");здесь функция, после которой появляется окно
If ProcessExists($iPid) Then
	ProcessClose($iPid)
	Sleep(500)
EndIf
FileDelete($sTempFile)
;Ваш дальнейший код
;...

Func _Click_Prompt_IE($s_Text)
	Local $s_TempFile, $s_Script, $h_File, $i_Pid, $i_Start, $i_TimeOut = 4000 ; 4 sec

	$s_Script = "#NoTrayIcon" & @CRLF & _
			"$hWin = WinWait('[Title:Explorer User Prompt; Class:#32770]', '', 3)" & @CRLF & _
			"If Not $hWin Then Exit" & @CRLF & _
			"ControlSetText($hWin, '', '[CLASS:Edit; INSTANCE:1]', '" & $s_Text & "')" & @CRLF & _ ;у Вас может быть другой
			"Sleep(500)" & @CRLF & _
			"ControlClick($hWin, '', '[CLASS:Button; INSTANCE:1]')" & @CRLF & _;у Вас может быть другой
			"Sleep(500)" & @CRLF & _
			"If WinExists($hWin) Then" & @CRLF & _
			"ToolTip('Ошибка 3', 0, 0)" & @CRLF & _
			"Sleep(5000)" & @CRLF & _
			"EndIf" & @CRLF & _
			"Exit"

	$h_File = FileOpen($sTempFile, 2)
	FileWrite($h_File, $s_Script)
	FileClose($h_File)
	If @Compiled Then
		$i_Pid = Run(@ScriptFullPath & ' /AutoIt3ExecuteScript "' & $sTempFile & '"')
	Else
		$i_Pid = Run(@AutoItExe & ' /AutoIt3ExecuteScript "' & $sTempFile & '"')
	EndIf
	Return $i_Pid
EndFunc   ;==>_Click_Prompt_IE

#include <IE.au3>

Global $_IENativeFunctionsHandler_Interation=0

$ie=_IECreate('ya.ru')
_IENativeFunctionsHandler_Initailize($ie) ;Инициализировать при каждом переходе
_IENativeFunctionsHandler_SetPromptAnswer($ie,'288') ;устанавливаем ответ на Prompt-запросы
;Выполняем действие вызывающее Prompt

;Также можно получать содержимое alert-запросов
$sAlertAnsw=_IENativeFunctionsHandler_WaitForAlert($ie,10000)
MsgBox(0,'Alert',$sAlertAnsw)
;и тексты prompt запросов
$aPromptRequest=_IENativeFunctionsHandler_WaitForPrompt($ie,10000)
#include <Array.au3>
_ArrayDisplay($aPromptRequest)

Func _IENativeFunctionsHandler_Initailize(ByRef $oIE)
	$oContainer=$oIE.document.getElementById('NativeFunctionsInteractionContainer')
	if isobj($oContainer) Then Return SetError(1,0,0)
	$oContainer=$oIE.document.getElementById('NativeFunctionsInteractionPromptAnswer')
	if isobj($oContainer) Then Return SetError(2,0,0)

	$oContainer=$oIE.document.createElement("span")
	$oContainer.id='NativeFunctionsInteractionContainer'
	$oContainer.style.display="none"
	$oContainer.innerHTML='o'
	$oIE.document.body.appendChild($oContainer)

	$oContainer=$oIE.document.createElement("span")
	$oContainer.id='NativeFunctionsInteractionPromptAnswer'
	$oContainer.style.display="none"
	$oContainer.innerHTML='false'

	$oIE.document.body.appendChild($oContainer)
	$oIE.document.parentWindow.execScript("window.NativeFunctionsInteractionCounter=0")
	$oIE.document.parentWindow.execScript("window.alert=function(str){document.getElementById('NativeFunctionsInteractionContainer').innerHTML=document.getElementById('NativeFunctionsInteractionContainer').innerHTML+'|a'+String(str).replace('|','').replace(';','');window.NativeFunctionsInteractionCounter++;}")
 	$oIE.document.parentWindow.execScript("window.prompt=function(str,val){document.getElementById('NativeFunctionsInteractionContainer').innerHTML=document.getElementById('NativeFunctionsInteractionContainer').innerHTML+'|p'+String(str).replace('|','').replace(';','')+';'+String(val).replace('|','').replace(';','');window.NativeFunctionsInteractionCounter++;return document.getElementById('NativeFunctionsInteractionPromptAnswer').innerHTML;}")
	$_IENativeFunctionsHandler_Interation=0
	return True
EndFunc

Func _IENativeFunctionsHandler_WaitForAlert(ByRef $oIE,$timeout=10000)
	$oContainer=$oIE.document.getElementById('NativeFunctionsInteractionContainer')
	if Not isobj($oContainer) Then Return SetError(1,0,0)

	$time=TimerInit()

	while timerdiff($time)<$timeout
		$sAllMsg=$oContainer.innerHTML
		$iStart=StringInStr($sAllMsg,'|',0,$_IENativeFunctionsHandler_Interation+1)
		if $iStart Then
			$sType=StringMid($sAllMsg,$iStart+1,1)
			if $sType='a' Then
				ExitLoop
			Else
				$_IENativeFunctionsHandler_Interation+=1
			EndIf
		EndIf
	WEnd
	if Not $iStart Then Return SetError(2,0,0)

	$iEnd=StringInStr($sAllMsg,'|',0,$_IENativeFunctionsHandler_Interation+2)
	$sMsg=StringMid($sAllMsg,$iStart+2,$iEnd)
	if not $iEnd Then $sMsg=StringMid($sAllMsg,$iStart+2)

	$_IENativeFunctionsHandler_Interation+=1
	return $sMsg
EndFunc

Func _IENativeFunctionsHandler_SetPromptAnswer(ByRef $oIE,$sAnswer)
	$oContainer=$oIE.document.getElementById('NativeFunctionsInteractionPromptAnswer')
	if Not isobj($oContainer) Then Return SetError(1,0,0)

	$time=TimerInit()

	$oContainer.innerHTML=$sAnswer
	return True
EndFunc

Func _IENativeFunctionsHandler_WaitForPrompt(ByRef $oIE,$timeout=10000)
	$oContainer=$oIE.document.getElementById('NativeFunctionsInteractionContainer')
	if Not isobj($oContainer) Then Return SetError(1,0,0)

	$time=TimerInit()

	while timerdiff($time)<$timeout
		$sAllMsg=$oContainer.innerHTML
		$iStart=StringInStr($sAllMsg,'|',0,$_IENativeFunctionsHandler_Interation+1)
		if $iStart Then
			$sType=StringMid($sAllMsg,$iStart+1,1)
			if $sType='p' Then
				ExitLoop
			Else
				$_IENativeFunctionsHandler_Interation+=1
			EndIf
		EndIf
	WEnd
	if Not $iStart Then Return SetError(2,0,0)

	$iEnd=StringInStr($sAllMsg,'|',0,$_IENativeFunctionsHandler_Interation+2)
	$sMsg=StringMid($sAllMsg,$iStart+2,$iEnd)
	if not $iEnd Then $sMsg=StringMid($sAllMsg,$iStart+2)

	$aMsg=StringSplit($sMsg,';')
	$_IENativeFunctionsHandler_Interation+=1
	return $aMsg
EndFunc

_IEHeadInsertEventScript()

$oIE.document.parentWindow.execScript("setTimeout(function(){document.f1.t1.click()},1)")
sleep(500)
Send("C:\myfile.txt")
Send('{enter}')

#include <IE.au3>
WinActivate("[CLASS:IEFrame]")
$oIE = _IEAttach("Система 4i", "Title")
$oEdit = _IEGetObjByName($oIE, "ctl00$ctl00$ctl00$MainContent$LeftContent$UserDataContent$saveButton") 
_IEAction($oEdit, "click") ; после нажатия кнопки сохранить появляется модальное окно
ControlClick('[Title:Сообщение с веб-страницы]', '', '[CLASS:Button; INSTANCE:1]') ; вот тут хотелось бы нажать кнопку Ок :)

#include <IE.au3>
#include <File.au3>
WinActivate("[CLASS:IEFrame]")
$oIE = _IEAttach("Система 4i", "Title")
$oEdit = _IEGetObjByName($oIE, "ctl00$ctl00$ctl00$MainContent$LeftContent$UserDataContent$saveButton") 
$sTempFile = _TempFile(@TempDir)
$iPid = _Click_Prompt_IE('Test')
If Not $iPid Then
    MsgBox(16, 'Error', '_Click_Prompt_IE')
EndIf
_IEAction($oEdit, "click")
If ProcessExists($iPid) Then
    ProcessClose($iPid)
    Sleep(500)
EndIf
FileDelete($sTempFile)
ControlClick('[Title:Сообщение с веб-страницы]', '', '[CLASS:Button; INSTANCE:1]')

Func _Click_Prompt_IE($s_Text)
    Local $s_TempFile, $s_Script, $h_File, $i_Pid, $i_Start, $i_TimeOut = 4000 ; 4 sec

    $s_Script = "#NoTrayIcon" & @CRLF & _
            "$hWin = WinWait('[Title:Explorer User Prompt; Class:#32770]', '', 3)" & @CRLF & _
            "If Not $hWin Then Exit" & @CRLF & _
			"ControlClick($hWin, '', '[CLASS:Button; INSTANCE:1]')" & @CRLF & _;у Вас может быть другой
            "Sleep(500)" & @CRLF & _
            "If WinExists($hWin) Then" & @CRLF & _
            "ToolTip('Ошибка 3', 0, 0)" & @CRLF & _
            "Sleep(5000)" & @CRLF & _
            "EndIf" & @CRLF & _
            "Exit"

    $h_File = FileOpen($sTempFile, 2)
    FileWrite($h_File, $s_Script)
    FileClose($h_File)
    If @Compiled Then
        $i_Pid = Run(@ScriptFullPath & ' /AutoIt3ExecuteScript "' & $sTempFile & '"')
    Else
        $i_Pid = Run(@AutoItExe & ' /AutoIt3ExecuteScript "' & $sTempFile & '"')
    EndIf
    Return $i_Pid
EndFunc   ;==>_Click_Prompt_IE