Yet another web browser

Alek · August 9, 2007

hehe, another one

Bugs:

-it crashs if the page you are trying to open is to big.

#NoTrayIcon
#region Includes
#include <GUIConstants.au3>
#include <IE.au3>
#include <Inet.au3>
#include <String.au3>
#endregion
Global $Menuitem[100]
$Browser = _IECreateEmbedded()
_IEErrorHandlerRegister()
$Width = 800
$Hight = 600

$Gui = GUICreate("Alek's Web Browser",800,600,-1,-1,BitOR($WS_OVERLAPPEDWINDOW, $WS_CLIPSIBLINGS))

$Menu1 = GUICtrlCreateMenu("Stuff")
$Menuitem[1] = GUICtrlCreateMenuItem("View Source",$Menu1)
$Menuitem[2] = GUICtrlCreateMenuItem("Home page",$Menu1)

$Menu2 = GUICtrlCreateMenu("Favorites")
$Menuitem[3] = GUICtrlCreateMenuItem("Add Favorite",$Menu2)
GUICtrlCreateMenuItem("",$Menu2)
$Favorite = IniReadSection(@ScriptDir & "\Config.ini","Favorites")
if not @error then 
    for $x = 1 to $Favorite[0][0]
        $Menuitem[$x+3] = GUICtrlCreateMenuItem($Favorite[$x][0],$Menu2)
    Next
EndIf
$Button1 = GUICtrlCreateButton("",10,10,34,34,$BS_ICON)
GUICtrlSetImage(-1,@ScriptFullPath,3)
GUICtrlSetResizing(-1,$GUI_DOCKALL)
$Button2 = GUICtrlCreateButton("",46,10,34,34,$BS_ICON)
GUICtrlSetImage(-1,@ScriptFullPath,4)
GUICtrlSetResizing(-1,$GUI_DOCKALL)
$Button3 = GUICtrlCreateButton("",82,10,34,34,$BS_ICON)
GUICtrlSetImage(-1,@ScriptFullPath,5)
GUICtrlSetResizing(-1,$GUI_DOCKALL)
$Button4 = GUICtrlCreateButton("",118,10,34,34,$BS_ICON)
GUICtrlSetImage(-1,@ScriptFullPath,6)
GUICtrlSetResizing(-1,$GUI_DOCKALL)
$Button5 = GUICtrlCreateButton("",154,10,34,34,$BS_ICON)
GUICtrlSetImage(-1,@ScriptFullPath,7)
GUICtrlSetResizing(-1,$GUI_DOCKALL)
$Input1 = GUICtrlCreateInput(IniRead(@ScriptDir & "\Config.ini","Config","Home","Http://www.autoitscript.com"),198,10,582,34)
GUICtrlSetFont(-1,20,400)
GUICtrlSetResizing(-1,$GUI_DOCKALL)
$Obj = GUICtrlCreateObj($Browser,10,54,780,536)

GUICtrlSetState($Button2,$GUI_FOCUS)
$gui2 = GUICreate("Source",800,600,-1,-1,-1,-1,$gui)
$Soruce = GUICtrlCreateEdit("",10,10,780,580,$ES_MULTILINE)

GUISetState(@SW_SHOW,$gui)
GUISetState(@SW_HIDE,$gui2)

_IENavigate($Browser,IniRead(@ScriptDir & "\Config.ini","Config","Home","Http://www.autoitscript.com"))

$Currenturl = _IEPropertyGet($Browser,"locationurl")
$title = _StringBetween(_INetGetSource(GUICtrlRead($Input1)),"<Title>","</Title>")
if not @error Then
    WinSetTitle($Gui,"","Alek's Web Browser - " & $title[0])
Else
    WinSetTitle($Gui,"",GUICtrlRead($Input1))
EndIf

$Temp = 0
Do
    $Msg = GUIGetMsg(1)
    Switch $Msg[0]
        Case $Button1
            _IEAction($Browser,"back")
            GUICtrlSetState($Button2,$GUI_FOCUS)
        Case $Button2
            _IENavigate($Browser,GUICtrlRead($Input1),0)
            $title = _StringBetween(_INetGetSource(GUICtrlRead($Input1)),"<Title>","</Title>")
            if not @error Then
                WinSetTitle($Gui,"",$title[0])
            Else
                WinSetTitle($Gui,"",GUICtrlRead($Input1))
            EndIf
        Case $Button3
            _IENavigate($Browser,IniRead(@ScriptDir & "\Config.ini","Config","Home","Http://www.autoitscript.com"))
            GUICtrlSetState($Button2,$GUI_FOCUS)
        Case $Button4
            _IEAction($Browser,"Stop")
            GUICtrlSetState($Button2,$GUI_FOCUS)
        Case $Button5
            _IEAction($Browser,"Forward")
            GUICtrlSetState($Button2,$GUI_FOCUS)
        Case $Menuitem[1]
            FileDelete(@TempDir & "\Source.txt")
            FileWrite(@TempDir & "\Source.txt",_INetGetSource(GUICtrlRead($Input1)))
            GUICtrlSetData($Soruce,FileRead(@TempDir & "\Source.txt"))
            GUISetState(@SW_SHOW,$gui2)
        Case $Menuitem[2]
            $Home = InputBox("Alek's Web Browser","Change your Start page",_IEPropertyGet($Browser,"locationurl"))
            if $Home <> "" and $Home <> 1 then IniWrite(@ScriptDir & "\Config.ini","Config","Home",$Home)
        Case $Menuitem[3]
                _Favorites()
        Case $GUI_EVENT_CLOSE
            if $msg[1] = $gui2 Then
                GUISetState(@SW_HIDE,$gui2)
            Elseif $msg[1] = $gui Then
                Exit
            EndIf
    EndSwitch
    if IsArray($Favorite) then 
        for $x = 1 to $Favorite[0][0]
            if $msg[0] = $Menuitem[$x+3] Then
                _IENavigate($Browser,IniRead(@ScriptDir & "\config.ini","Favorites",$Favorite[$x][0],"Error"))
            EndIf
        Next
    EndIf
    _setcontrolsize()
    if _IEPropertyGet($Browser,"locationurl") <> $Currenturl then
        GUICtrlSetData($Input1,_IEPropertyGet($Browser,"locationurl"))
        $title = _StringBetween(_INetGetSource(GUICtrlRead($Input1)),"<Title>","</Title>")
        if not @error Then
            WinSetTitle($Gui,"","Alek's Web Browser - " & $title[0])
        Else
            WinSetTitle($Gui,"",GUICtrlRead($Input1))
        EndIf
        $Currenturl = _IEPropertyGet($Browser,"locationurl")
    EndIf
Until 1=2

Func _setcontrolsize()
    $Pos = WinGetPos($Gui)
    if $Pos[2] <> $Width or $Pos[3] <> $Hight Then
        GUICtrlSetPos($Input1,198,10,$Pos[2]-218,34)
        GUICtrlSetPos($Obj,10,54,$Pos[2]-30,$Pos[3]-119)
        $Width = $Pos[2]
        $Hight = $Pos[3]
    EndIf
EndFunc

Func _Favorites()
    $Form1 = GUICreate("Alek's Web Browser", 295, 120, 193, 115)
    $Label1 = GUICtrlCreateLabel("Enter the URL (http://www.myfavoritesite.com) and the of the Page you want to add to you Favorites list", 5, 5, 278, 32, $SS_CENTER)
    $Input2 = GUICtrlCreateInput(_IEPropertyGet($Browser,"locationurl"), 70, 45, 216, 21)
    $Label2 = GUICtrlCreateLabel("Page URL", 5, 45, 54, 17)
    $Label3 = GUICtrlCreateLabel("Page Name", 5, 70, 60, 17)
    $title2 = _StringBetween(_INetGetSource(GUICtrlRead($Input2)),"<Title>","</Title>")
    $Input3 = GUICtrlCreateInput($title2[0], 70, 70, 216, 21)
    $Addbutton = GUICtrlCreateButton("Add To Favorites",5,96,286,20)
    GUISetState(@SW_SHOW)
    do
        $nMsg = GUIGetMsg()
        Switch $nMsg
            Case $Addbutton
                if GUICtrlRead($Input2) <> "" and GUICtrlRead($Input3) <> "" then 
                    IniWrite(@ScriptDir & "\Config.ini","Favorites",GUICtrlRead($Input3),GUICtrlRead($Input2))
                    for $x = 4 to UBound($Menuitem)-1
                        if $Menuitem[$x]= "" Then
                            $Menuitem[$x] = GUICtrlCreateMenuItem(GUICtrlRead($Input3),$Menu2)
                            ExitLoop
                            $nMsg = $GUI_EVENT_CLOSE
                        EndIf
                    Next
                    $Favorite = IniReadSection(@ScriptDir & "\Config.ini","Favorites")
                    ExitLoop
                    GUIDelete($Form1)
                EndIf
        EndSwitch
    Until $nMsg = $GUI_EVENT_CLOSE
    GUIDelete($Form1)
EndFunc

you have to use the compiled version for the button icons to work, i can be decompiled if dont trust me.

compiled: Web_Browser.exe

Edited August 9, 2007 by Alek

jvanegmond · August 9, 2007

The source crashed on me because of an array error in $Favorites[0][0]

Generator · August 9, 2007

Same error mentioned above.

Alek · August 9, 2007

Same error mentioned above.

fixed, forgot to add a safty check, just added if isarray($favorite) then ...

jvanegmond · August 9, 2007

Is this a new trend or something, like it was with the web servers a while ago?

Alek · August 9, 2007

Is this a new trend or something, like it was with the web servers a while ago?

hehe

Generator · August 9, 2007

Another bug, Favorite won't work until you restart the browser.

Alek · August 9, 2007

Another bug, Favorite won't work until you restart the browser.

Fixed

PS:

im useing this browser to post replys

Edited August 9, 2007 by Alek

ds10025 · August 30, 2007

hehe, another one

Bugs:

-it crashs if the page you are trying to open is to big.

#NoTrayIcon
#region Includes
#include <GUIConstants.au3>
#include <IE.au3>
#include <Inet.au3>
#include <String.au3>
#endregion
Global $Menuitem[100]
$Browser = _IECreateEmbedded()
_IEErrorHandlerRegister()
$Width = 800
$Hight = 600

$Gui = GUICreate("Alek's Web Browser",800,600,-1,-1,BitOR($WS_OVERLAPPEDWINDOW, $WS_CLIPSIBLINGS))

$Menu1 = GUICtrlCreateMenu("Stuff")
$Menuitem[1] = GUICtrlCreateMenuItem("View Source",$Menu1)
$Menuitem[2] = GUICtrlCreateMenuItem("Home page",$Menu1)

$Menu2 = GUICtrlCreateMenu("Favorites")
$Menuitem[3] = GUICtrlCreateMenuItem("Add Favorite",$Menu2)
GUICtrlCreateMenuItem("",$Menu2)
$Favorite = IniReadSection(@ScriptDir & "\Config.ini","Favorites")
if not @error then 
    for $x = 1 to $Favorite[0][0]
        $Menuitem[$x+3] = GUICtrlCreateMenuItem($Favorite[$x][0],$Menu2)
    Next
EndIf
$Button1 = GUICtrlCreateButton("",10,10,34,34,$BS_ICON)
GUICtrlSetImage(-1,@ScriptFullPath,3)
GUICtrlSetResizing(-1,$GUI_DOCKALL)
$Button2 = GUICtrlCreateButton("",46,10,34,34,$BS_ICON)
GUICtrlSetImage(-1,@ScriptFullPath,4)
GUICtrlSetResizing(-1,$GUI_DOCKALL)
$Button3 = GUICtrlCreateButton("",82,10,34,34,$BS_ICON)
GUICtrlSetImage(-1,@ScriptFullPath,5)
GUICtrlSetResizing(-1,$GUI_DOCKALL)
$Button4 = GUICtrlCreateButton("",118,10,34,34,$BS_ICON)
GUICtrlSetImage(-1,@ScriptFullPath,6)
GUICtrlSetResizing(-1,$GUI_DOCKALL)
$Button5 = GUICtrlCreateButton("",154,10,34,34,$BS_ICON)
GUICtrlSetImage(-1,@ScriptFullPath,7)
GUICtrlSetResizing(-1,$GUI_DOCKALL)
$Input1 = GUICtrlCreateInput(IniRead(@ScriptDir & "\Config.ini","Config","Home","Http://www.autoitscript.com"),198,10,582,34)
GUICtrlSetFont(-1,20,400)
GUICtrlSetResizing(-1,$GUI_DOCKALL)
$Obj = GUICtrlCreateObj($Browser,10,54,780,536)

GUICtrlSetState($Button2,$GUI_FOCUS)
$gui2 = GUICreate("Source",800,600,-1,-1,-1,-1,$gui)
$Soruce = GUICtrlCreateEdit("",10,10,780,580,$ES_MULTILINE)

GUISetState(@SW_SHOW,$gui)
GUISetState(@SW_HIDE,$gui2)

_IENavigate($Browser,IniRead(@ScriptDir & "\Config.ini","Config","Home","Http://www.autoitscript.com"))

$Currenturl = _IEPropertyGet($Browser,"locationurl")
$title = _StringBetween(_INetGetSource(GUICtrlRead($Input1)),"<Title>","</Title>")
if not @error Then
    WinSetTitle($Gui,"","Alek's Web Browser - " & $title[0])
Else
    WinSetTitle($Gui,"",GUICtrlRead($Input1))
EndIf

$Temp = 0
Do
    $Msg = GUIGetMsg(1)
    Switch $Msg[0]
        Case $Button1
            _IEAction($Browser,"back")
            GUICtrlSetState($Button2,$GUI_FOCUS)
        Case $Button2
            _IENavigate($Browser,GUICtrlRead($Input1),0)
            $title = _StringBetween(_INetGetSource(GUICtrlRead($Input1)),"<Title>","</Title>")
            if not @error Then
                WinSetTitle($Gui,"",$title[0])
            Else
                WinSetTitle($Gui,"",GUICtrlRead($Input1))
            EndIf
        Case $Button3
            _IENavigate($Browser,IniRead(@ScriptDir & "\Config.ini","Config","Home","Http://www.autoitscript.com"))
            GUICtrlSetState($Button2,$GUI_FOCUS)
        Case $Button4
            _IEAction($Browser,"Stop")
            GUICtrlSetState($Button2,$GUI_FOCUS)
        Case $Button5
            _IEAction($Browser,"Forward")
            GUICtrlSetState($Button2,$GUI_FOCUS)
        Case $Menuitem[1]
            FileDelete(@TempDir & "\Source.txt")
            FileWrite(@TempDir & "\Source.txt",_INetGetSource(GUICtrlRead($Input1)))
            GUICtrlSetData($Soruce,FileRead(@TempDir & "\Source.txt"))
            GUISetState(@SW_SHOW,$gui2)
        Case $Menuitem[2]
            $Home = InputBox("Alek's Web Browser","Change your Start page",_IEPropertyGet($Browser,"locationurl"))
            if $Home <> "" and $Home <> 1 then IniWrite(@ScriptDir & "\Config.ini","Config","Home",$Home)
        Case $Menuitem[3]
                _Favorites()
        Case $GUI_EVENT_CLOSE
            if $msg[1] = $gui2 Then
                GUISetState(@SW_HIDE,$gui2)
            Elseif $msg[1] = $gui Then
                Exit
            EndIf
    EndSwitch
    if IsArray($Favorite) then 
        for $x = 1 to $Favorite[0][0]
            if $msg[0] = $Menuitem[$x+3] Then
                _IENavigate($Browser,IniRead(@ScriptDir & "\config.ini","Favorites",$Favorite[$x][0],"Error"))
            EndIf
        Next
    EndIf
    _setcontrolsize()
    if _IEPropertyGet($Browser,"locationurl") <> $Currenturl then
        GUICtrlSetData($Input1,_IEPropertyGet($Browser,"locationurl"))
        $title = _StringBetween(_INetGetSource(GUICtrlRead($Input1)),"<Title>","</Title>")
        if not @error Then
            WinSetTitle($Gui,"","Alek's Web Browser - " & $title[0])
        Else
            WinSetTitle($Gui,"",GUICtrlRead($Input1))
        EndIf
        $Currenturl = _IEPropertyGet($Browser,"locationurl")
    EndIf
Until 1=2

Func _setcontrolsize()
    $Pos = WinGetPos($Gui)
    if $Pos[2] <> $Width or $Pos[3] <> $Hight Then
        GUICtrlSetPos($Input1,198,10,$Pos[2]-218,34)
        GUICtrlSetPos($Obj,10,54,$Pos[2]-30,$Pos[3]-119)
        $Width = $Pos[2]
        $Hight = $Pos[3]
    EndIf
EndFunc

Func _Favorites()
    $Form1 = GUICreate("Alek's Web Browser", 295, 120, 193, 115)
    $Label1 = GUICtrlCreateLabel("Enter the URL (http://www.myfavoritesite.com) and the of the Page you want to add to you Favorites list", 5, 5, 278, 32, $SS_CENTER)
    $Input2 = GUICtrlCreateInput(_IEPropertyGet($Browser,"locationurl"), 70, 45, 216, 21)
    $Label2 = GUICtrlCreateLabel("Page URL", 5, 45, 54, 17)
    $Label3 = GUICtrlCreateLabel("Page Name", 5, 70, 60, 17)
    $title2 = _StringBetween(_INetGetSource(GUICtrlRead($Input2)),"<Title>","</Title>")
    $Input3 = GUICtrlCreateInput($title2[0], 70, 70, 216, 21)
    $Addbutton = GUICtrlCreateButton("Add To Favorites",5,96,286,20)
    GUISetState(@SW_SHOW)
    do
        $nMsg = GUIGetMsg()
        Switch $nMsg
            Case $Addbutton
                if GUICtrlRead($Input2) <> "" and GUICtrlRead($Input3) <> "" then 
                    IniWrite(@ScriptDir & "\Config.ini","Favorites",GUICtrlRead($Input3),GUICtrlRead($Input2))
                    for $x = 4 to UBound($Menuitem)-1
                        if $Menuitem[$x]= "" Then
                            $Menuitem[$x] = GUICtrlCreateMenuItem(GUICtrlRead($Input3),$Menu2)
                            ExitLoop
                            $nMsg = $GUI_EVENT_CLOSE
                        EndIf
                    Next
                    $Favorite = IniReadSection(@ScriptDir & "\Config.ini","Favorites")
                    ExitLoop
                    GUIDelete($Form1)
                EndIf
        EndSwitch
    Until $nMsg = $GUI_EVENT_CLOSE
    GUIDelete($Form1)
EndFunc

you have to use the compiled version for the button icons to work, i can be decompiled if dont trust me.

compiled: Web_Browser.exe

ds10025 · August 30, 2007

This is great web broswer. Will it be ok for me to download it and make changes?

Alek · August 30, 2007

This is great web broswer. Will it be ok for me to download it and make changes?

i think thats the general idea of the example scripts forum

Fabry · September 24, 2007

Can I use like user agent in mozilla firefox?

ashley · September 24, 2007

wow dude... maybe add a chat bar in it like msn bar but for members to talk to members and members to talk to on members(privet)

Good job

JustinReno · September 25, 2007

Hey Alek, I was wondering Whats the use of the

[3] on this: $Menuitem[3] = GUICtrlCreateMenuItem("Add Favorite",$Menu2)

ds10025 · September 25, 2007

Hi

I thing I have foung a bug.

I've installed it on Windows XP. As Administrator, it works fine. But, as a normal user it failed.

The problem is that if you type www.google.com, the page is display. But, it will not response to se search command.

Any ideas?

nice, but very unresponsive at times

Sign In

Yet another web browser

Recommended Posts

Alek

jvanegmond

Generator

Alek

jvanegmond

Alek

Generator

Alek

ds10025

ds10025

Alek

Fabry

ashley

JustinReno

ds10025

Create an account or sign in to comment

Create an account

Sign in

Recently Browsing 0 members

Browse

AutoIt Resources

Release

Beta