Lemons Browser Beta

[keen]

A browser:

For 15 inch monitor:

expandcollapse popup

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

Dim $URL = "http://www.autoitscript.com"

_IEErrorHandlerRegister()

$oIE = _IECreateEmbedded()
GUICreate("Lemons Browser - Autoit", 800, 600, _
       (@DesktopWidth - 800) / 2, (@DesktopHeight - 600) / 2, _
       $WS_OVERLAPPEDWINDOW + $WS_VISIBLE + $WS_CLIPSIBLINGS)
$Input = GUICtrlCreateInput("", 10, 10, 540)
$GUIActiveX = GUICtrlCreateObj($oIE, 10, 40, 600, 360)
$Go = GUICtrlCreateButton("Go", 560, 10, 50, 20, $BS_DEFPUSHBUTTON)
$back = GUICtrlCreateButton("Back", 10, 420, 100, 30)
$Forward = GUICtrlCreateButton("Forward", 120, 420, 100, 30)
$Stop = GUICtrlCreateButton("Stop", 340, 420, 100, 30)
$Progress = GUICtrlCreateProgress(500, 600, 100, 25)

GUISetState()      ;Show GUI

_IENavigate($oIE, $URL)

HotKeySet ("^{ESC}", "myExit")
Func myExit ()
Exit
EndFunc

; Waiting for user to close the window
While 1
   $msg = GUIGetMsg()
   Switch $msg
       Case $GUI_EVENT_CLOSE
           ExitLoop
       Case $Back
           _IEAction($oIE, "back")
       Case $Forward
           _IEAction($oIE, "forward")
       Case $Stop
           _IEAction($oIE, "stop")
       Case $Go
           if not @error then guictrlsetdata($URL, $Input)
   EndSwitch
WEnd

GUIDelete()

Exit
oÝ÷ Ù±h¯^âÈf¢x­¢¿Ûjëh×6#include <GUIConstants.au3>
#include <IE.au3>

Dim $URL = "http://www.autoitscript.com"

_IEErrorHandlerRegister()

$oIE = _IECreateEmbedded()
GUICreate("Lemons Browser - Autoit", 1024, 768, _
       (@DesktopWidth - 1024) / 2, (@DesktopHeight - 768) / 2, _
       $WS_OVERLAPPEDWINDOW + $WS_VISIBLE + $WS_CLIPSIBLINGS)
$Input = GUICtrlCreateInput("", 10, 10, 540)
$GUIActiveX = GUICtrlCreateObj($oIE, 10, 40, 600, 360)
$Go = GUICtrlCreateButton("Go", 560, 10, 50, 20, $BS_DEFPUSHBUTTON)
$back = GUICtrlCreateButton("Back", 10, 420, 100, 30)
$Forward = GUICtrlCreateButton("Forward", 120, 420, 100, 30)
$Stop = GUICtrlCreateButton("Stop", 340, 420, 100, 30)
$Progress = GUICtrlCreateProgress(500, 600, 100, 25)

GUISetState()      ;Show GUI

_IENavigate($oIE, $URL)

HotKeySet ("^{ESC}", "myExit")
Func myExit ()
Exit
EndFunc

; Waiting for user to close the window
While 1
   $msg = GUIGetMsg()
   Switch $msg
       Case $GUI_EVENT_CLOSE
           ExitLoop
       Case $Back
           _IEAction($oIE, "back")
       Case $Forward
           _IEAction($oIE, "forward")
       Case $Stop
           _IEAction($oIE, "stop")
       Case $Go
           if not @error then guictrlsetdata($URL, $Input)
   EndSwitch
WEnd

GUIDelete()

Exit
oÝ÷ Ù±h¯_bÈf¢x­¢¿Ûjëh×6#include <GUIConstants.au3>
#include <IE.au3>

Dim $URL = "http://www.autoitscript.com"

_IEErrorHandlerRegister()

$oIE = _IECreateEmbedded()
GUICreate("Lemons Browser - Autoit", 1280, 1024, _
       (@DesktopWidth - 1280) / 2, (@DesktopHeight - 1024) / 2, _
       $WS_OVERLAPPEDWINDOW + $WS_VISIBLE + $WS_CLIPSIBLINGS)
$Input = GUICtrlCreateInput("", 10, 10, 540)
$GUIActiveX = GUICtrlCreateObj($oIE, 10, 40, 600, 360)
$Go = GUICtrlCreateButton("Go", 560, 10, 50, 20, $BS_DEFPUSHBUTTON)
$back = GUICtrlCreateButton("Back", 10, 420, 100, 30)
$Forward = GUICtrlCreateButton("Forward", 120, 420, 100, 30)
$Stop = GUICtrlCreateButton("Stop", 340, 420, 100, 30)
$Progress = GUICtrlCreateProgress(500, 600, 100, 25)

GUISetState()      ;Show GUI

_IENavigate($oIE, $URL)

HotKeySet ("^{ESC}", "myExit")
Func myExit ()
Exit
EndFunc

; Waiting for user to close the window
While 1
   $msg = GUIGetMsg()
   Switch $msg
       Case $GUI_EVENT_CLOSE
           ExitLoop
       Case $Back
           _IEAction($oIE, "back")
       Case $Forward
           _IEAction($oIE, "forward")
       Case $Stop
           _IEAction($oIE, "stop")
       Case $Go
           if not @error then guictrlsetdata($URL, $Input)
   EndSwitch
WEnd

GUIDelete()

ExitoÝ÷ Ù±h¯mbÈf¢x­¢¿Ûjëh×6#include <GUIConstants.au3>
#include <IE.au3>

Dim $URL = "http://www.autoitscript.com"

_IEErrorHandlerRegister()

$oIE = _IECreateEmbedded()
GUICreate("Lemons Browser - Autoit", 1600, 1200, _
       (@DesktopWidth - 1600) / 2, (@DesktopHeight - 1200) / 2, _
       $WS_OVERLAPPEDWINDOW + $WS_VISIBLE + $WS_CLIPSIBLINGS)
$Input = GUICtrlCreateInput("", 10, 10, 540)
$GUIActiveX = GUICtrlCreateObj($oIE, 10, 40, 600, 360)
$Go = GUICtrlCreateButton("Go", 560, 10, 50, 20, $BS_DEFPUSHBUTTON)
$back = GUICtrlCreateButton("Back", 10, 420, 100, 30)
$Forward = GUICtrlCreateButton("Forward", 120, 420, 100, 30)
$Stop = GUICtrlCreateButton("Stop", 340, 420, 100, 30)
$Progress = GUICtrlCreateProgress(500, 600, 100, 25)

GUISetState()      ;Show GUI

_IENavigate($oIE, $URL)

HotKeySet ("^{ESC}", "myExit")
Func myExit ()
Exit
EndFunc

; Waiting for user to close the window
While 1
   $msg = GUIGetMsg()
   Switch $msg
       Case $GUI_EVENT_CLOSE
           ExitLoop
       Case $Back
           _IEAction($oIE, "back")
       Case $Forward
           _IEAction($oIE, "forward")
       Case $Stop
           _IEAction($oIE, "stop")
       Case $Go
           if not @error then guictrlsetdata($URL, $Input)
   EndSwitch
WEnd

GUIDelete()

Exit

ATM it can only go about on autoit.

The Escape button (esc) will take you back to autoit home.

Edited November 11, 2006 by keen

[IcyFerno]

just asking, is this like the normal internet explorer browser ?

[Thatsgreat2345]

ummm i would just like to say that its a nice try, but i think you should learn autoit a lil better before embarking on this

[keen]

ATM this is just IE embeded but i'm still working on rendering the engine. Anyway I'm working on Beta 2.

[Thatsgreat2345]

im just saying that your whole 15 inch and 17 inch and 19 and 21 , arent exactly logical :-/ meaning learn autoit a lil better

[Somniis]

Indeed. There are ways to render it properly on all res.

[IcyFerno]

wait since when does full screen affect the monitor size?