Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- #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
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement