Sign in to follow this  
Followers 0
keen

Lemons Browser Beta

7 posts in this topic

#1 ·  Posted (edited)

A browser:

For 15 inch monitor:

#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 by keen

[center]Kesne's Bar & Grill[/center]

Share this post


Link to post
Share on other sites



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


Share this post


Link to post
Share on other sites

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

Share this post


Link to post
Share on other sites

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


[center]Kesne's Bar & Grill[/center]

Share this post


Link to post
Share on other sites

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

Share this post


Link to post
Share on other sites

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

Share this post


Link to post
Share on other sites

wait since when does full screen affect the monitor size?


Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!


Register a new account

Sign in

Already have an account? Sign in here.


Sign In Now
Sign in to follow this  
Followers 0