Sign in to follow this  
Followers 0
AlmarM

My own Web Browser TOOL ;D

5 posts in this topic

#1 ·  Posted (edited)

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 by AlmarM

Minesweeper

A minesweeper game created in autoit, source available.

_Mouse_UDF

An UDF for registering functions to mouse events, made in pure autoit.

2D Hitbox Editor

A 2D hitbox editor for quick creation of 2D sphere and rectangle hitboxes.

Share this post


Link to post
Share on other sites



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.

Share this post


Link to post
Share on other sites

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

Share this post


Link to post
Share on other sites

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


Minesweeper

A minesweeper game created in autoit, source available.

_Mouse_UDF

An UDF for registering functions to mouse events, made in pure autoit.

2D Hitbox Editor

A 2D hitbox editor for quick creation of 2D sphere and rectangle hitboxes.

Share this post


Link to post
Share on other sites

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.

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