Jump to content

Recommended Posts

Posted

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?

#)

Posted (edited)

#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.

Posted

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

Posted (edited)

#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.

 

Posted

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

Posted

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

Posted (edited)

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.

Posted

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

  • Moderators
Posted

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.

Posted

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

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
  • Recently Browsing   0 members

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