Jump to content

Ho Can I Make An Internet Explorer In Autoit


Recommended Posts

First off, Welcome to the forums...

2) Get IE.au3 library from here: http://www.autoitscript.com/forum/index.ph...pe=post&id=3370

3) Too late over here for me to strip down IEBuilder for the Web window... maybe someone else can?

#)

Link to comment
Share on other sites

#include <GUIConstants.au3>
; == GUI generated with Koda ==
$Form1 = GUICreate("Test Webbrowser", 615, 503, 192, 125)
$Obj = ObjCreate("Shell.Explorer.2")
$browser = GUICtrlCreateObj($Obj, 0, 64, 610, 436)
$Button1 = GUICtrlCreateButton("HOME", 24, 24, 73, 25)
$Button2 = GUICtrlCreateButton("BACK", 104, 24, 73, 25)
$Button3 = GUICtrlCreateButton("FOWARD", 184, 24, 65, 25)
$Button4 = GUICtrlCreateButton("BACK", 256, 24, 73, 25)
GUISetState(@SW_SHOW)
$Obj.Navigate('www.autoitscript.com')
While 1
    $msg = GuiGetMsg()
    Select
    Case $msg = $GUI_EVENT_CLOSE
        ExitLoop
    Case $msg = $Button1
        $Obj.Navigate('www.autoitscript.com/forum')
    Case Else
;;;;;;;
    EndSelect
WEnd
Exit

This should get you started

Edited by NegativeNrG

[size=20]My File Upload[/size]Register at my site and upload.

Link to comment
Share on other sites

thanks one question

#include <GUIConstants.au3>

; == GUI generated with Koda ==

$Form1 = GUICreate("Test Webbrowser", 615, 503, 192, 125)

$Obj = ObjCreate("Shell.Explorer.2")

$browser = GUICtrlCreateObj($Obj, 0, 64, 610, 436)

$Button1 = GUICtrlCreateButton("HOME", 24, 24, 73, 25)

$Button2 = GUICtrlCreateButton("BACK", 104, 24, 73, 25)

$Button3 = GUICtrlCreateButton("FOWARD", 184, 24, 65, 25)

$Button4 = GUICtrlCreateButton("BACK", 256, 24, 73, 25)

GUISetState(@SW_SHOW)

$Obj.Navigate('www.autoitscript.com')

While 1

    $msg = GuiGetMsg()

    Select

    Case $msg = $GUI_EVENT_CLOSE

        ExitLoop

    Case $msg = $Button1

        $Obj.Navigate('www.autoitscript.com/forum')

    Case Else

;;;;;;;

    EndSelect

WEnd

The Back en forward button doesn`t work

Link to comment
Share on other sites

#include <GUIConstants.au3>

; == GUI generated with Koda ==

$Form1 = GUICreate("Test Webbrowser", 615, 503, 192, 125)

$Obj = ObjCreate("Shell.Explorer.2")

$browser = GUICtrlCreateObj($Obj, 0, 64, 610, 436)
$Button1 = GUICtrlCreateButton("HOME", 24, 24, 73, 25)
$Button2 = GUICtrlCreateButton("BACK", 104, 24, 73, 25)
$Button3 = GUICtrlCreateButton("FOWARD", 184, 24, 65, 25)

GUISetState(@SW_SHOW)

$Obj.Navigate ('www.autoitscript.com')

While 1
    $msg = GUIGetMsg()
    
    Select
        Case $msg = $GUI_EVENT_CLOSE
            ExitLoop
        Case $msg = $Button1
            $Obj.Navigate ('www.autoitscript.com/forum')
        Case $msg = $Button2
            $Obj.GoBack
        Case $msg = $Button3
            $Obj.GoForward
        Case Else
        ;;;;;;;
            
    EndSelect
    
WEnd

Edited by gafrost

SciTE for AutoItDirections for Submitting Standard UDFs

 

Don't argue with an idiot; people watching may not be able to tell the difference.

 

Link to comment
Share on other sites

straight from help

#include <GUIConstants.au3>
; Simple example: Embedding an Internet Explorer Object inside an AutoIt GUI
;
; The full example is available in the test\ActiveX directory (TestXInternet.au3)
;
; See also: http://msdn.microsoft.com/workshop/browser/webbrowser/reference/objects/internetexplorer.asp

$oIE = ObjCreate("Shell.Explorer.2")

; Create a simple GUI for our output
GUICreate ( "Embedded Web control Test", 640, 580,(@DesktopWidth-640)/2, (@DesktopHeight-580)/2 , $WS_OVERLAPPEDWINDOW + $WS_VISIBLE + $WS_CLIPSIBLINGS)
$GUIActiveX      = GUICtrlCreateObj   ( $oIE,     10, 40 , 600 , 360 )
$GUI_Button_Back    = GuiCtrlCreateButton   ("Back",     10, 420, 100,  30)
$GUI_Button_Forward = GuiCtrlCreateButton   ("Forward", 120, 420, 100,  30)
$GUI_Button_Home    = GuiCtrlCreateButton   ("Home",    230, 420, 100,  30)
$GUI_Button_Stop    = GuiCtrlCreateButton   ("Stop",    330, 420, 100,  30)

GUISetState ()    ;Show GUI

$oIE.navigate("http://www.autoitscript.com")

; Waiting for user to close the window
While 1
    $msg = GUIGetMsg()
    
    Select
        Case $msg = $GUI_EVENT_CLOSE
            ExitLoop
        Case $msg = $GUI_Button_Home
            $oIE.navigate("http://www.autoitscript.com")
        Case $msg = $GUI_Button_Back
            $oIE.GoBack
        Case $msg = $GUI_Button_Forward
            $oIE.GoForward
        Case $msg = $GUI_Button_Stop
            $oIE.Stop
    EndSelect
    
Wend

GUIDelete ()

8)

NEWHeader1.png

Link to comment
Share on other sites

straight from help

#include <GUIConstants.au3>
; Simple example: Embedding an Internet Explorer Object inside an AutoIt GUI
;
; The full example is available in the test\ActiveX directory (TestXInternet.au3)
;
; See also: http://msdn.microsoft.com/workshop/browser/webbrowser/reference/objects/internetexplorer.asp

$oIE = ObjCreate("Shell.Explorer.2")

; Create a simple GUI for our output
GUICreate ( "Embedded Web control Test", 640, 580,(@DesktopWidth-640)/2, (@DesktopHeight-580)/2 , $WS_OVERLAPPEDWINDOW + $WS_VISIBLE + $WS_CLIPSIBLINGS)
$GUIActiveX      = GUICtrlCreateObj   ( $oIE,     10, 40 , 600 , 360 )
$GUI_Button_Back    = GuiCtrlCreateButton   ("Back",     10, 420, 100,  30)
$GUI_Button_Forward = GuiCtrlCreateButton   ("Forward", 120, 420, 100,  30)
$GUI_Button_Home    = GuiCtrlCreateButton   ("Home",    230, 420, 100,  30)
$GUI_Button_Stop    = GuiCtrlCreateButton   ("Stop",    330, 420, 100,  30)

GUISetState ()   ;Show GUI

$oIE.navigate("http://www.autoitscript.com")

; Waiting for user to close the window
While 1
    $msg = GUIGetMsg()
    
    Select
        Case $msg = $GUI_EVENT_CLOSE
            ExitLoop
        Case $msg = $GUI_Button_Home
            $oIE.navigate("http://www.autoitscript.com")
        Case $msg = $GUI_Button_Back
            $oIE.GoBack
        Case $msg = $GUI_Button_Forward
            $oIE.GoForward
        Case $msg = $GUI_Button_Stop
            $oIE.Stop
    EndSelect
    
Wend

GUIDelete ()

8)

can you me help with adress bar? then am I manage.

p.s. this text is translated , i cant write that in english i am dutch

Link to comment
Share on other sites

you should read the code next time. Seeing you said the back and forward button doesn't work(which i didn't add).

Also, for the Navigate to Address bar. The rest, you should do by yourself(seeing this is for...?/)

;;;THIS IS A TEST EXAMPLE
$address = Inputbox('Address?','Type the address you would like to go to.')
 $obj.Navigate($address)
Edited by NegativeNrG

[size=20]My File Upload[/size]Register at my site and upload.

Link to comment
Share on other sites

i have some question

$pnadress       = GuiCtrlCreateInput    ("http://www.wesdegroot.nl",110, 35, 90, 30);input does`nt response


$gow                    = GuiCtrlCreateButton   (" > Gow",         200, 35, 90, 30); load input....

    Case $msg = $gow;selest input command

        $oIE.navigate($pnadress);navigate NoW

he doesn`t navigate to the adress

$adress is already used.....

Who Can help me

Link to comment
Share on other sites

  • Moderators

i have some question

$pnadress       = GuiCtrlCreateInput    ("http://www.wesdegroot.nl",110, 35, 90, 30);input does`nt response
$gow                    = GuiCtrlCreateButton   (" > Gow",         200, 35, 90, 30); load input....

    Case $msg = $gow;selest input command

        $oIE.navigate($pnadress);navigate NoW

he doesn`t navigate to the adress

$adress is already used.....

Who Can help me

Maybe try:
$oIE.navigate(GUICtrlRead($pnadress));navigate NoW
?

Common sense plays a role in the basics of understanding AutoIt... If you're lacking in that, do us all a favor, and step away from the computer.

Link to comment
Share on other sites

thank you i have one cuestion :

; == GUI generated with Koda ==

Where can i get that ?

Wes,

This forum has a very nice search-function.

When you search for the word koda, that should get you started!

Arno Rog

Link to comment
Share on other sites

i have searched , nothing foud else i post not

Look about the 4th from the bottom of this section of the forum.

Or it comes with the SciTE installation, link is in my signature.

SciTE for AutoItDirections for Submitting Standard UDFs

 

Don't argue with an idiot; people watching may not be able to tell the difference.

 

Link to comment
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
 Share

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...