#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <ListViewConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <GuiListView.au3>
#include <File.au3>
#Include <Misc.au3>
#include <IE.au3>

#requireadmin

$browser_x = 100
$browser_y = 100
$devmode = 0
$browser_counter = 0

_IEErrorHandlerRegister()
$IE1 = _IECreateEmbedded()
$IE2 = _IECreateEmbedded()

$main =  GUICreate("main", @DesktopWidth - 2, @DesktopHeight - 2, 1, 1)

$Browser1 = GUICtrlCreateObj($IE1, $browser_x, $browser_y, @DesktopWidth / 5 , @DesktopHeight / 3)
$Browser2 = GUICtrlCreateObj($IE2, $browser_x + 600, $browser_y, @DesktopWidth / 5 , @DesktopHeight / 3)
GUICtrlSetState(-1, $gui_hide)

$input_browser = GUICtrlCreateInput("", 30, 20, @DesktopWidth - 200, 20)
$button_nagivate = GUICtrlCreateButton("Navigate", @DesktopWidth - 140, 20, 60, 20)
$button_change1 = GUICtrlCreateButton("[X]", $browser_x + @DesktopWidth / 5, $browser_y + @DesktopHeight / 3 , 20, 20, "", $WS_EX_TOPMOST)

$button_new_window = GUICtrlCreateButton("New Tab", 30, 50, 100, 20)

GUISetState()

_IENavigate($IE1, "www.google.de")
_IENavigate($IE2, "www.google.de")

while 1
    $msg = GUIGetMsg()
    if $msg = -3 then Exit
    if $msg = $button_nagivate then _IENavigate($IE1, GUICtrlRead($input_browser))
    if $msg = $button_new_window Then $browser_counter = $browser_counter + 1
    if $msg = $button_new_window Then _new_window()
    $a = GUIGetCursorInfo($main)
    if $a[4] = $button_change1 then
        do
            if _IsPressed(01) Then
                $mousepos = MouseGetPos()
                $size_browser1 = ControlGetPos("main", "", $browser1)
                GUICtrlSetPos($browser1, $mousepos[0] - $size_browser1[2] - 13  , $mousepos[1] - $size_browser1[3] - 13)
                GUICtrlSetPos($button_change1, $mousepos[0] - 13 , $mousepos[1] - 31)
                $browser_x = $mousepos[0] - @DesktopWidth / 5 - 13
                $browser_y = $mousepos[1] - @DesktopHeight / 3 - 31
            EndIf
            if _IsPressed(02) Then
                $mousepos = MouseGetPos()
                GUICtrlSetPos($browser1, $browser_x ,$browser_y, $mousepos[0] - $browser_x, $mousepos[1] - $browser_y)
                GUICtrlSetPos($button_change1, $mousepos[0] - 13 , $mousepos[1] - 31)
            EndIf
        until not _IsPressed(02) and not _IsPressed(01)
    EndIf
    sleep (10)
WEnd

func _new_window()
    GUICtrlSetState($Browser2, $gui_show)
EndFunc