bosko Posted July 15, 2005 Posted July 15, 2005 expandcollapse popup#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?
GaryFrost Posted July 15, 2005 Posted July 15, 2005 expandcollapse popup#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.
bosko Posted July 15, 2005 Author Posted July 15, 2005 how would i make it a constant refresh. till i hit pause?
Valuater Posted July 15, 2005 Posted July 15, 2005 ive written a new script without anybody's helpi need help coding a programi know Send("{F5}") is to refreshbut 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(
bosko Posted July 15, 2005 Author Posted July 15, 2005 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
GaryFrost Posted July 16, 2005 Posted July 16, 2005 expandcollapse popup#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.
GaryFrost Posted July 16, 2005 Posted July 16, 2005 show's on mine. SciTE for AutoItDirections for Submitting Standard UDFs Don't argue with an idiot; people watching may not be able to tell the difference.
GaryFrost Posted July 16, 2005 Posted July 16, 2005 a whole lot more than you have on there. SciTE for AutoItDirections for Submitting Standard UDFs Don't argue with an idiot; people watching may not be able to tell the difference.
FrashMX Posted July 24, 2005 Posted July 24, 2005 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?
Recommended Posts
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 accountSign in
Already have an account? Sign in here.
Sign In Now