Sign in to follow this  
Followers 0
bosko

ive written a new script without anybody's help

11 posts in this topic

#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)
$GUI_Button_Refresh = GuiCtrlCreateButton   ("Refresh", 330, 420, 100,  30)
$GUI_Button_Pause   = GuiCtrlCreateButton   ("Pause",   330, 420, 100,  30)

GUISetState ()    ;Show GUI

$oIE.navigate("www.neopets.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("www.neopets.com")
        $msg = $GUI_Button_Back
            $oIE.GoBack
        Case $msg = $GUI_Button_Forward
            $oIE.GoForward
        Case $msg = $GUI_Button_Stop
            $oIE.Stop
        Case $msg = $GUI_Button_Refresh
            $oIE.Send("{F5}")
        Case $msg = $GUI_Button_Pause
            $oIE.Toggle_pause
    
    EndSelect
    
Wend

GUIDelete ()

Exit

some of the buttons dont show up and it wont refresh cna someone give me some hints?

Share this post


Link to post
Share on other sites



#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, -1, -1 , $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)
$GUI_Button_Refresh = GuiCtrlCreateButton   ("Refresh", 430, 420, 100,  30)
$GUI_Button_Pause   = GuiCtrlCreateButton   ("Pause",   530, 420, 100,  30)

GUISetState ()   ;Show GUI

$oIE.navigate("www.neopets.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("www.neopets.com")
        $msg = $GUI_Button_Back
            $oIE.GoBack
        Case $msg = $GUI_Button_Forward
            $oIE.GoForward
        Case $msg = $GUI_Button_Stop
            $oIE.Stop
        Case $msg = $GUI_Button_Refresh
            $oIE.Refresh
        Case $msg = $GUI_Button_Pause
            $oIE.Toggle_pause
    
    EndSelect
    
Wend

GUIDelete ()
Exit


SciTE for AutoItDirections for Submitting Standard UDFs

 

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

 

Share this post


Link to post
Share on other sites

how would i make it a constant refresh. till i hit pause?

Share this post


Link to post
Share on other sites

ive written a new script without anybody's help

i need help coding a program

i know Send("{F5}") is to refresh

but i have no clue how to do anything else so if somebeody could help me put this togather i would love them for ever and ever and wanna have mabies/babies 

"i need help codiong a program"

http://www.autoitscript.com/forum/index.ph...opic=12931&hl=#

"making script a GUI with instructions"

http://www.autoitscript.com/forum/index.ph...&st=0&p=91764

??????????????????????????

8(


NEWHeader1.png

Share this post


Link to post
Share on other sites

So can somebody please help me make the refresh button refresh 5000 times when clicked? i tried replasing "Refresh" with send("{F5}") but then the buttons disapear

Share this post


Link to post
Share on other sites

#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, -1, -1, $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)
$GUI_Button_Refresh = GUICtrlCreateButton("Refresh", 430, 420, 100, 30)
$GUI_Button_Pause = GUICtrlCreateButton("Pause", 530, 420, 100, 30)

GUISetState()   ;Show GUI

$oIE.navigate ("www.neopets.com")
$Refresh_Loop = 0
; 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 ("www.neopets.com")
            $msg = $GUI_Button_Back
            $oIE.GoBack
        Case $msg = $GUI_Button_Forward
            $oIE.GoForward
        Case $msg = $GUI_Button_Stop
            AdlibDisable()
            $oIE.Stop
        Case $msg = $GUI_Button_Refresh
            AdlibEnable("_Refreshing")
        Case $msg = $GUI_Button_Pause
            $oIE.Toggle_pause
            
    EndSelect
    
WEnd

GUIDelete()
Exit

Func _Refreshing()
    AdlibDisable()
    $oIE.Refresh
    Sleep(5000)
    AdlibEnable("_Refreshing")
EndFunc  ;==>_Refreshing


SciTE for AutoItDirections for Submitting Standard UDFs

 

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

 

Share this post


Link to post
Share on other sites

the refresh button doesnt show

Share this post


Link to post
Share on other sites

hmmmm whats the button limit?

Share this post


Link to post
Share on other sites

This looks amazing. 2 questions.

1) Is it possible to "catch" a click? (Someone clicks a link, the AutoIt app will display a textbox for instance)

2) How can I remove the border from the IE Object?

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