Здравствуйте!
Не могу понять, по какой причине не работает данный код. Пожалуйста помогите разобраться.
Не могу понять, по какой причине не работает данный код. Пожалуйста помогите разобраться.
Код:
#include <IE.au3>
#RequireAdmin
Opt("WinTitleMatchMode", 4)
HotKeySet("{ESC}", "Terminate")
Func Terminate()
Exit 0
EndFunc
;~ $sIE = _IECreate(@ScriptDir & '\test.html')
$sIE = WinWait("test", "", 2)
If Not $sIE Then
MsgBox(16+4096, 'Сообщение', 'Окно не найдено, завершаем работу скрипта.')
Exit
EndIf
WinActivate($sIE) ;заход в окно програмы
$sIE = _IEAttach($sIE, "Embedded")
MsgBox(4096, "The Embedded", _IEPropertyGet($sIE, "Embedded"))
$oFrame = _IEFrameGetObjByName($sIE, "IEFrame")
$sHTML = _IEDocReadHTML($oFrame)
;~ MsgBox(4096, "Document Source", $sHTML)
$f = FileOpen(@ScriptDir & "\HTMLText.txt", 2)
FileWrite($f, $sHTML)
FileClose($f)