bosko Posted July 15, 2005 Share 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? Link to comment Share on other sites More sharing options...
GaryFrost Posted July 15, 2005 Share 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. Link to comment Share on other sites More sharing options...
bosko Posted July 15, 2005 Author Share Posted July 15, 2005 how would i make it a constant refresh. till i hit pause? Link to comment Share on other sites More sharing options...
Valuater Posted July 15, 2005 Share 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( Link to comment Share on other sites More sharing options...
bosko Posted July 15, 2005 Author Share 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 Link to comment Share on other sites More sharing options...
GaryFrost Posted July 16, 2005 Share 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. Link to comment Share on other sites More sharing options...
bosko Posted July 16, 2005 Author Share Posted July 16, 2005 the refresh button doesnt show Link to comment Share on other sites More sharing options...
GaryFrost Posted July 16, 2005 Share 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. Link to comment Share on other sites More sharing options...
bosko Posted July 16, 2005 Author Share Posted July 16, 2005 hmmmm whats the button limit? Link to comment Share on other sites More sharing options...
GaryFrost Posted July 16, 2005 Share 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. Link to comment Share on other sites More sharing options...
FrashMX Posted July 24, 2005 Share 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? Link to comment Share on other sites More sharing options...
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