IE Object Scrollbalken deaktivieren

  • HI COmmunity

    Ich habe gerade festgestellt dasss wenn ich in einem ie object einen code ausführe, dass dann auch wenn es ganz klein ist der scrollbalken ohne möglichkeit zu scrollen , also nur der graue balken angezeigt wird,
    jetzt meine Frage:
    Ist es möglich diesen Balken zu "deaktivieren" also zu verstecken?

    Danke für eure Hilfe

    Mfg.simon

  • Du erstellst dein IE Objekt einfach auf einem weiteren GUI. Das IE Objekt muss dabei 18 pixel höher und 18 pixel breiter sein als das GUI. Dieser Bereich liegt dann außerhalb des GUI's, und ist somit nicht mehr sichtbar.

    Spoiler anzeigen
    [autoit]

    #include <IE.au3>
    #include <WindowsConstants.au3>
    $hGUI = GUICreate("",700,500)
    GUISetState()

    [/autoit] [autoit][/autoit] [autoit]

    $hIE = GUICreate("",400,300,150,100,$WS_CHILD,Default,$hGUI)
    $oIE = _IECreateEmbedded()
    GUICtrlCreateObj($oIE,0,0,418,318)
    _IENavigate($oIE,"about:blank")

    [/autoit] [autoit][/autoit] [autoit]

    GUISetState()
    _IENavigate($oIE,"www.google.de")
    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case -3
    Exit
    EndSwitch
    WEnd

    [/autoit]

    Viel Spaß!

  • Komisch ich habe deines jetzt in meine funktion eingebaut , aber ich bekomme gar keine gui zu gesicht hier mein code inder func


    [autoit]

    $iGUI = WinGetHandle($iGUI)
    $hIE = GUICreate("", $iLeft, $iTop, $iWidth +16, $iHeight + 16,0x40000000, Default,$iGUI)
    $oIE = ObjCreate("Shell.Explorer.2")
    $obj = GUICtrlCreateObj($oIE, $iLeft, $iTop, $iWidth + 21, $iHeight + 5)
    GUISETSTATE()

    [/autoit]

    Und die andere gui

    [autoit]

    #include <IE.au3>
    #include <GUIConstants.au3>

    [/autoit][autoit][/autoit][autoit]

    #Region - GUI Create
    $gui = GUICreate('', 500, 500)

    [/autoit][autoit][/autoit][autoit]

    diefunc ($gui)

    [/autoit][autoit][/autoit][autoit]

    GUISetState()
    #EndRegion - GUI Create

    [/autoit][autoit][/autoit][autoit]

    #Region - GUI SelectLoop
    While 1
    $msg = GUIGetMsg()
    Select
    Case $msg = $GUI_EVENT_CLOSE
    Exit
    EndSelect
    WEnd

    [/autoit]
  • Hallo Simon,

    da du nur Codeschnipsel postet aus denen ich nichts erkennen kann, hier einmal ein Beispiel:

    Spoiler anzeigen
    [autoit]

    #cs ----------------------------------------------------------------------------

    [/autoit] [autoit][/autoit] [autoit]

    AutoIt Version: 3.3.6.1
    Author: AutoBert: http://www.autoit.de/index.php?page…4679#post164679

    [/autoit] [autoit][/autoit] [autoit]

    Skriptbeispiel für den Umgang mit _IECreateEmbedded, _IEErrorHandlerRegister, _IENavigate, _IEAction GuiCtrlCreateProgress, _IEPropertyGet
    #ce ----------------------------------------------------------------------------
    #include <GUIConstantsEx.au3>
    #include <WindowsConstants.au3>
    #include <IE.au3>

    [/autoit] [autoit][/autoit] [autoit]

    _IEErrorHandlerRegister()

    [/autoit] [autoit][/autoit] [autoit]

    $oIE = _IECreateEmbedded()
    $SinkObject = ObjEvent($oIE, "IEEvent_", "DWebBrowserEvents2") ; Ereignisse den UDFs zuweisen, beginnend mit IEEvent_
    GUICreate("Embedded Web control Test", 640, 600, _
    (@DesktopWidth - 640) / 2, (@DesktopHeight - 580) / 2, _
    $WS_OVERLAPPEDWINDOW + $WS_VISIBLE + $WS_CLIPSIBLINGS + $WS_CLIPCHILDREN)
    $hInput = GUICtrlCreateInput("Hier URL eingeben: ", 10, 10, 500)
    $hGo = GUICtrlCreateButton("&Go", 520, 10, 50)
    $GUIActiveX = GUICtrlCreateObj($oIE, 0, 40, 658, 498)
    GUICtrlSetResizing($GUIActiveX, $GUI_DOCKAUTO)
    $idProgress = GUICtrlCreateProgress(0, 520, 640, 28)
    GUICtrlSetResizing(-1, $GUI_DOCKSTATEBAR)

    [/autoit] [autoit][/autoit] [autoit]

    GUISetState(@SW_SHOW) ;Show GUI

    [/autoit] [autoit][/autoit] [autoit]

    _IENavigate($oIE, "http://www.autoit.de/index.php?page=Thread&postID=164679#post164679")

    [/autoit] [autoit][/autoit] [autoit]

    ; Waiting for user to close the window
    While 1
    $msg = GUIGetMsg()
    Select
    Case $msg = $GUI_EVENT_CLOSE
    ExitLoop
    Case $msg = $hGo
    _IENavigate($oIE, GUICtrlRead($hInput))
    EndSelect
    $surl1 = _IEPropertyGet($oIE, "locationurl")
    $surl2 = GUICtrlRead($hInput)
    ; ConsoleWrite($surl1 & " " & $surl2 & " " & GUICtrlRead($idProgress) & @CRLF)
    If $surl1 <> $surl2 And GUICtrlRead($idProgress) > 90 Then GUICtrlSetData($hInput, $surl1)
    WEnd

    [/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

    $SinkObject = 0 ; IE Eventzuweisung aufheben
    $oIE.Quit ; IE beenden
    $oIE = 0
    GUIDelete()
    Exit

    [/autoit] [autoit][/autoit] [autoit]

    Func IEEvent_ProgressChange($Progress, $ProgressMax)
    $percent = Int(($Progress * 100) / $ProgressMax)
    If $percent >= 0 And $percent <= 100 Then GUICtrlSetData($idProgress, $percent)
    EndFunc ;==>IEEvent_ProgressChange

    [/autoit]

    den rechte Scrollbalken sieht man nicht da der embeded IE in der Breite grösser, der untere wird von einem Progressbalken überdeckt.

    mfg (Auto)Bert

  • Ich habe mal den größeren teil des ganzen gepostet

    Spoiler anzeigen
    [autoit]


    #include <IE.au3>
    #include <GUIConstants.au3>
    #include <WindowsConstants.au3>
    #Region - GUI Create
    $gui = GUICreate('', 500, 500)
    GUISetState()
    test($gui, "http://www.youtube.com/watch?v=CGg9m9Dv65g")

    [/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

    #EndRegion - GUI Create

    [/autoit] [autoit][/autoit] [autoit]

    #Region - GUI SelectLoop
    While 1
    $msg = GUIGetMsg()
    Select
    Case $msg = $GUI_EVENT_CLOSE
    Exit
    EndSelect
    WEnd
    #EndRegion - GUI SelectLoop

    [/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

    ;(c) Simon (http://www.autoit.de)
    Func Test($iGUI, $iVideo, $iLeft = 0, $iTop = 0, $iWidth = 480, $iHeight = 385)
    If Not $iVideo = "" Then
    If WinExists(WinGetHandle($iGUI)) Then
    If UBound($iUrl_Split) >= 3 Then
    $style = GUIGetStyle($iGUI)
    GUISetStyle($style[0],$style[1])

    $iGUI = WinGetHandle($iGUI)
    $hIE = GUICreate("", $iLeft, $iTop, $iWidth +16, $iHeight + 16,0x40000000, Default,$iGUI)
    $oIE = ObjCreate("Shell.Explorer.2")
    $obj = GUICtrlCreateObj($oIE, $iLeft, $iTop, $iWidth + 21, $iHeight + 5)

    ;GUISETSTATE()
    EndIf
    EndIf
    EndIf
    EndFunc

    [/autoit]
  • Hallo Simon,

    kann dein Beispiel nicht startern. Ausgabe Scite-Konsole:

    ich kann aber nirgends entdecken, wo die übergebene URL aufgerufen wird,

    mfg (Auto)Bert