Что нового

Встроенный IE в GUI форму. Нету адресной строки.

fortages

Новичок
Сообщения
81
Репутация
3
Здравствуйте. Подскажите, пожалуйста, можно ли при встраивании IE в GUI отобразить адресную строку?
Например, при использовании кода из справки
Код:
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

Opt('MustDeclareVars', 1)

Example()

Func Example()
    Local $oIE, $GUIActiveX, $GUI_Button_Back, $GUI_Button_Forward
    Local $GUI_Button_Home, $GUI_Button_Stop, $msg
   
    $oIE = ObjCreate("Shell.Explorer.2")

    ; Create a simple GUI for our output
    GUICreate("Embedded Web control Test", 640, 580, (@DesktopWidth - 640) / 2, (@DesktopHeight - 580) / 2, BitOR($WS_OVERLAPPEDWINDOW, $WS_CLIPSIBLINGS, $WS_CLIPCHILDREN))
    $GUIActiveX = GUICtrlCreateObj ($oIE, 10, 40, 600, 360)
    $GUI_Button_Back = GUICtrlCreateButton("Back", 10, 420, 100, 30)
    $GUI_Button_Forward = GUICtrlCreateButton("Forward", 120, 420, 100, 30)
    $GUI_Button_Home = GUICtrlCreateButton("Home", 230, 420, 100, 30)
    $GUI_Button_Stop = GUICtrlCreateButton("Stop", 330, 420, 100, 30)

    GUISetState()       ;Show GUI

    $oIE.navigate("http://www.google.com")

    ; Waiting for user to close the window
    While 1
        $msg = GUIGetMsg()

        Select
            Case $msg = $GUI_EVENT_CLOSE
                ExitLoop
            Case $msg = $GUI_Button_Home
                $oIE.navigate("http://www.google.com")
            Case $msg = $GUI_Button_Back
                $oIE.GoBack
            Case $msg = $GUI_Button_Forward
                $oIE.GoForward
            Case $msg = $GUI_Button_Stop
                $oIE.Stop
        EndSelect
       
    WEnd

    GUIDelete()
EndFunc   ;==>Example
адресная строка и пункт "открыть в новой вкладке" недоступны. Подскажите, можно ли что-то сделать?
 
Автор
fortages

fortages

Новичок
Сообщения
81
Репутация
3
Проблема с адресной строкой решилась, хоть и криво.



Код:
$ButtonOK = GUICtrlCreateButton("OK", 951, 16, 49, 25, $WS_GROUP)
    $Inputaddr = GUICtrlCreateInput("Input1",  208, 16, 729, 21)
	$page = "http://www.ya.ru"
	$navigate = _IENavigate($oIE, $page)
	
GUISetState(@SW_SHOW)


While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit
		Case $ButtonOK
			 
			 $page = GUICtrlRead($Inputaddr)
			 $navigate = _IENavigate($oIE, $page)
	EndSwitch
WEnd


Но как быть с вкладками?
 
Верх