Sign in to follow this  
Followers 0
realkiller

internet loading done

3 posts in this topic

#1 ·  Posted (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 by realkiller

Share this post


Link to post
Share on other sites



#2 ·  Posted (edited)

#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 by 4gotn1

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