Что нового

[Элементы GUI] Получить содержимое _IECreateEmbedded() с помощью ControlGetText - ?

The Dream

Новичок
Сообщения
393
Репутация
3
Подскажите, возможно ли получить содержимое _IECreateEmbedded() с помощью ф-ции ControlGetText или других не IE.au3-функций. Может быть это все же реально? :whistle:

Код:
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <IE.au3>

_IEErrorHandlerRegister()

$oIE = _IECreateEmbedded()
$hGui = GUICreate("Embedded Web control Test", 640, 580, _
        (@DesktopWidth - 640) / 2, (@DesktopHeight - 580) / 2, _
        $WS_OVERLAPPEDWINDOW + $WS_VISIBLE + $WS_CLIPSIBLINGS + $WS_CLIPCHILDREN)
$GUIActiveX = GUICtrlCreateObj($oIE, 10, 40, 600, 360)
$GUI_Button_Back = GUICtrlCreateButton("*click*", 10, 420, 100, 30)
GUISetState()
_IENavigate($oIE, "http://www.autoitscript.com")

While 1
    $msg = GUIGetMsg()
    Select
        Case $msg = $GUI_EVENT_CLOSE
            ExitLoop
        Case $msg = $GUI_Button_Back
            MsgBox(64, 1 & '-' & $GUIActiveX, 'Internet Explorer_Server: ' & ControlGetHandle($hGui, '', '[CLASS:Internet Explorer_Server; INSTANCE:1]'))
            MsgBox(64, 2 & '-' & $GUIActiveX, 'Shell Embedding: ' & ControlGetHandle($hGui, '', '[CLASS:Shell Embedding; INSTANCE:1]'))
            MsgBox(64, 3 & '-' & $GUIActiveX, 'Shell DocObject View: ' & ControlGetHandle($hGui, '', '[CLASS:Shell DocObject View; INSTANCE:1]'))
    EndSelect
WEnd
GUIDelete()
Exit
 

InnI

AutoIT Гуру
Сообщения
4,950
Репутация
1,445
The Dream [?]
Может быть это все же реально?
Конечно, реально. Через буфер обмена ;)
Код:
Case $msg = $GUI_Button_Back
            ControlClick($hGui, "", "Internet Explorer_Server1") ; здесь главное в ссылку не попасть
            ControlSend($hGui, "", "Internet Explorer_Server1", "^a")
            ControlSend($hGui, "", "Internet Explorer_Server1", "^{ins}")
            ControlClick($hGui, "", "Internet Explorer_Server1")
            ConsoleWrite(ClipGet() & @LF)
 
Верх