My own Web Browser TOOL ;D

[AlmarM 22]

I was bored and made this little thingy

Source:

#include <GUIConstants.au3>
HotKeySet("{HOME}", "_Quit")
$GUI = GUICreate("Press HOME for STOP", 150, 100, -1, -1)
GUISetState(@SW_SHOW)
$URL = GUICtrlCreateInput("", 10, 70, 130, 20)
GUICtrlCreateLabel("Typ the URL and press GO", 10, 10)
$GO = GUICtrlCreateButton("GO", 10, 35, 130, 25)
GUISetState()
While 1
$msg = GUIGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE
    Exit
Case $msg = $GO
    $Read = GUICtrlRead($URL)
    Run("cmd /c start " & $read, "", @SW_HIDE)
EndSelect
WEnd
Func _Quit()
Sleep(100)
Exit
EndFunc ;==> For Emergency

I know its easy but I just want to show HOW easy it can be

Edited October 20, 2007 by AlmarM

[jvanegmond 307]

If you replace

_IECreate($Read)

by

Run("cmd /c start " & $read, "", @SW_HIDE)

it also works if the user has its browser set to Firefox or something else by default. Plus, you don't need the IE library.

[JustinReno 0]

You could add off Simple Web Brower Mini, its only 9 lines of code, without useing any udfs.

Opt("GUIResizeMode", 1)
$Form1_1 = GUICreate("Simple Web Browser Mini", 660, 482, -1, -1, 0x00CF0000, 0x00010000)
$Obj1 = ObjCreate("Shell.Explorer.2")
$Obj1_ctrl = GUICtrlCreateObj($Obj1, 0, 0, 658, 452)
$Button1 = GUICtrlCreateButton("URL", 8, 456, 643, 25, 0)
GUISetState(@SW_SHOW)
While GUIGetMsg() <> -3
    If GUIGetMsg() = $Button1 Then $Obj1.Navigate(InputBox("Simple Web Browser Mini", "What is the URL you want to visit?"))
WEnd

[AlmarM 22]

Yeah i know but.. its a Tool not a webbrowser

[jvanegmond 307]

Here it is proper:

#include <GUIConstants.au3>
$GUI = GUICreate("Click X to stop", 150, 100, -1, -1)
$URL = GUICtrlCreateInput("", 10, 70, 130, 20)
GUICtrlCreateLabel("Type the URL and press GO", 10, 10)
$GO = GUICtrlCreateButton("GO", 10, 35, 130, 25)
GUISetState()
While 1
    Switch GUIGetMsg()
        Case - 3
            Exit
        Case $GO
            Run("cmd /c start " & GUICtrlRead($URL), "", @SW_HIDE)
    EndSwitch
WEnd

and it still sucks.