realkiller Posted November 12, 2006 Posted November 12, 2006 (edited) i got this script sow far but i wanna have a text when the window is finished loading in the gui #include <GUIConstants.au3> $oIE = ObjCreate("Shell.Explorer.2") GUICreate ("24 Help", @DesktopWidth, @DesktopHeight, 0, 0, $WS_OVERLAPPEDWINDOW + $WS_VISIBLE + $WS_CLIPSIBLINGS) $GUIActiveX = GUICtrlCreateObj ( $oIE, 10, 40 , @DesktopHeight, @DesktopWidth) $GUI_Button_Back = GuiCtrlCreateButton ("Back", 5, 3, 100, 30) $GUI_Button_Forward = GuiCtrlCreateButton ("Forward", 105, 3, 100, 30) $GUI_Button_Home = GuiCtrlCreateButton ("Home", 205, 3, 100, 30) $GUI_Button_Stop = GuiCtrlCreateButton ("Stop", 305, 3, 100, 30) GUISetState () $oIE.navigate("www.google.nl") While 1 $msg = GUIGetMsg() Select Case $msg = $GUI_EVENT_CLOSE ExitLoop Case $msg = $GUI_Button_Home $oIE.navigate("www.tweakers.net") Case $msg = $GUI_Button_Back $oIE.GoBack Case $msg = $GUI_Button_Forward $oIE.GoForward Case $msg = $GUI_Button_Stop $oIE.Stop EndSelect Wend GUIDelete () Exit Edited November 12, 2006 by realkiller Remote 3.1 BetaRemote Media Player ControlUSB Security 1.2
4gotn1 Posted November 12, 2006 Posted November 12, 2006 (edited) expandcollapse popup#include <GUIConstants.au3> $oIE = ObjCreate("Shell.Explorer.2") GUICreate ("24 Help", @DesktopWidth, @DesktopHeight, 0, 0, $WS_OVERLAPPEDWINDOW + $WS_VISIBLE + $WS_CLIPSIBLINGS) $GUIActiveX = GUICtrlCreateObj ( $oIE, 10, 40 , @DesktopHeight, @DesktopWidth) $GUI_Button_Back = GuiCtrlCreateButton ("Back", 5, 3, 100, 30) $GUI_Button_Forward = GuiCtrlCreateButton ("Forward", 105, 3, 100, 30) $GUI_Button_Home = GuiCtrlCreateButton ("Home", 205, 3, 100, 30) $GUI_Button_Stop = GuiCtrlCreateButton ("Stop", 305, 3, 100, 30) GUISetState () $oIE.navigate("www.google.nl") While 1 $msg = GUIGetMsg() Select Case $msg = $GUI_EVENT_CLOSE ExitLoop Case $msg = $GUI_Button_Home $oIE.navigate("www.tweakers.net") Do Sleep(1) Until NOT $oIE.Busy ;or you could do Until $oIE.ReadyState = 4 ;) Case $msg = $GUI_Button_Back $oIE.GoBack Case $msg = $GUI_Button_Forward $oIE.GoForward Case $msg = $GUI_Button_Stop $oIE.Stop EndSelect Wend GUIDelete () Exit oÝ÷ Ú(Z½éuæ°y¶ë£®ë"®¶jwH#¡¸ÞrÛ-¢Ê°jyÚ$jÙ²²«qç(uè^è¬jX§Ú-ëh¦'.® Edited November 12, 2006 by 4gotn1
realkiller Posted November 12, 2006 Author Posted November 12, 2006 thx for helping me;) Remote 3.1 BetaRemote Media Player ControlUSB Security 1.2
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