Ветеран
Сообщения: 812
Благодарности: 353
|
Профиль
|
Отправить PM
| Цитировать
klsorat2010,
Вот что у меня получилось. При активации кнопки Проверка теста окно с IE становится не активным до тех пор, пока на кнопку не нажмешь.
Код:  #RequireAdmin
#include "GUIConstantsEx.au3"
#include "WindowsConstants.au3"
#include "IE.au3"
Opt("TrayMenuMode", 1)
_IEErrorHandlerRegister()
$oIE = _IECreateEmbedded()
$hForm = GUICreate("Автоматизированная система обучения.", @DesktopWidth, @DesktopHeight, 0, 0, -1, $WS_EX_TOOLWINDOW)
GUISetBkColor(0x99CCFF)
$GUIActiveX = GUICtrlCreateObj($oIE, 5, 5, @DesktopWidth - 10, @DesktopHeight - 150)
$GUI_Button_Test = GUICtrlCreateButton("Запустить АСО", @DesktopWidth / 2 - 250, _
@DesktopHeight - 100, 150, 30)
GUICtrlSetColor(-1, 0x0000FF)
GUICtrlSetBkColor(-1, 0xFFCCFF)
GUICtrlSetFont(-1, 11, 600, 2, "Arial")
GUICtrlSetCursor(-1, 0)
GUICtrlSetTip(-1, "Перейти на страницы прохождения тестов.")
$GUI_Button_Check = GUICtrlCreateButton("Запустить MatLab", @DesktopWidth / 2 + 100, _
@DesktopHeight - 100, 150, 30)
GUICtrlSetState(-1, $GUI_DISABLE)
GUICtrlSetBkColor(-1, 0xFFCCFF)
GUICtrlSetColor(-1, 0x0000FF)
GUICtrlSetFont(-1, 11, 600, 2, "Arial")
GUICtrlSetCursor(-1, 0)
GUICtrlSetTip(-1, "Проверить результат теста.")
DllCall("User32.dll", "long", "AnimateWindow", "hwnd", $hForm, "long", 1000, "long", 0x10)
GUISetState()
_IENavigate($oIE, "C:/proba.jpg")
While 1
$msg = GUIGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE
DllCall("User32.dll", "long", "AnimateWindow", "hwnd", $hForm, "long", 1000, "long", _
0x10 + 0x10000)
Exit
Case $msg = $GUI_Button_Test
GUICtrlSetState($GUI_Button_Test, $GUI_DISABLE)
_IENavigate($oIE, "http://demo/")
_ControlTest()
Case $msg = $GUI_Button_Check
_ControlTest()
GUICtrlSetState($GUI_Button_Check, $GUI_DISABLE)
$sText = _IEBodyReadText($oIE)
;##########################################################################################
If StringInStr($sText, "Не сдан") <> 0 Then
$iMsgBoxAnswer1 = MsgBox(266257, "Внимание!", "Вы не прошли этот тест." & @CRLF _
& @CRLF & "ОК - продолжить прохождение тестов." & _
@CRLF & "Отмена - вернуться на домашнюю страницу." & @CRLF & _
"У вас есть 5 секунд для выбора", 5)
Select
Case $iMsgBoxAnswer1 = 1 Or $iMsgBoxAnswer1 = -1;OK
_IEAction($oIE, "back")
GUICtrlSetState($GUIActiveX, $GUI_ENABLE)
_ControlTest()
Case $iMsgBoxAnswer1 = 2 ;Cancel
_IENavigate($oIE, "http://demo/index.php?option=com_ariquiz&Itemid=8")
GUICtrlSetState($GUIActiveX, $GUI_ENABLE)
GUICtrlSetState($GUI_Button_Test, $GUI_ENABLE)
EndSelect
Else
$iMsgBoxAnswer = MsgBox(266275, "Успех!", "Вы успешно прошли этот тест!" & @CRLF _
& @CRLF & "Да - открыть архиватор WinRAR и продолжить прохождение тестов." & _
@CRLF & "Нет - продолжить прохождение тестов" & @CRLF & _
"Отмена - вернуться на домашнюю страницу." & @CRLF & _
"У вас есть 5 секунд для выбора", 5)
Select
Case $iMsgBoxAnswer = 6 ;Yes
Run(@ProgramFilesDir & "\WinRAR\WinRAR.exe")
_IEAction($oIE, "back")
GUICtrlSetState($GUIActiveX, $GUI_ENABLE)
_ControlTest()
Case $iMsgBoxAnswer = 7 Or $iMsgBoxAnswer = -1 ;No
_IEAction($oIE, "back")
GUICtrlSetState($GUIActiveX, $GUI_ENABLE)
_ControlTest()
Case $iMsgBoxAnswer = 2 ;Cancel
_IENavigate($oIE, "http://demo/index.php?option=com_ariquiz&Itemid=8")
GUICtrlSetState($GUIActiveX, $GUI_ENABLE)
GUICtrlSetState($GUI_Button_Test, $GUI_ENABLE)
EndSelect
EndIf
;##########################################################################################
EndSelect
WEnd
Func _ControlTest()
While 1
Local $sUrl = _IEPropertyGet($oIE, "locationurl")
If StringInStr($sUrl, _
"http://demo/index.php?option=com_ariquiz&task=quiz_finished&ticketId=") _
<> 0 Then
GUICtrlSetState($GUI_Button_Check, $GUI_ENABLE)
GUICtrlSetState($GUIActiveX, $GUI_DISABLE)
Return
EndIf
Sleep(100)
WEnd
EndFunc ;==>_ControlTest
|
