UDF FfLoad

[Matrix112]

Hi,

this UDF pauses the script until Firefox finished loading.

Use the window info tool to get coordinates of the left side of the loading bar.

This is my first UDF

I think that can be useful.

FfLoad.au3

expandcollapse popup

;======================================================================================
;
; Function Name:   _FfLoadWait()
; Description:      Pauses the script until Firefox finished loading.
; Parameter(s):  $x  - The X coordinate of the Blue loading bar.
;                         $y  - The Y coordinate of the Blue loading bar.
;                         $pcm  - PixelCoordMode
;                         0 = relative coords to the active window
;                         1 = absolute screen coordinates (default)
;                         2 = relative coords to the client area of the active window
;              $lbc  - Dec clour of the loading bar (optional) Default is standard 
;                        bar colour.
; Requirement(s):   Include FfLoad.au3
; Return Value(s):  Nothing. 
; Author(s):           Christoph Krogmann <ch.krogmann@gmx.de>
; Note(s):            During search for the coordinate, choose a point at the left
;                          side of the loading bar!
;
;======================================================================================
;
Func _FfLoadWait ($x, $y, $pcm, $lbc = 664682)
    Opt("PixelCoordMode", $pcm)
    Local $i
    Local $iColor
    Do
        $iColor = PixelGetColor($x ,$y)
        If $iColor = $lbc Then
            $i = 1
        Else
        Endif
        Sleep(20)
    Until $i = 1
    Do
        $iColor = PixelGetColor($x ,$y)
        If $iColor = $lbc Then
        Else
            $i = 2
        Endif
        Sleep(20)
    Until $i = 2    
EndFunc;==>_FfLoadWait

Example:

#include <FfLoad.au3>

$path = "start your URL"
Run(@ComSpec & " /c " & $path, "", @SW_HIDE)
Opt("WinTitleMatchMode", 2)
WinWait("Mozilla Firefox")
WinSetState("Mozilla Firefox", "", @SW_MAXIMIZE)
_FfLoadWait(820, 732, 1);<<-- Put in your coordinates here
MsgBox(0, "Finished", "Load is finished")
Exit

Edit: Added PixelCoordMode

Edit: Update You can now set the colour of loading bar.

FfLoad.au3

Example.au3

Edited October 1, 2005 by Matrix112

[w0uter]

i use a custom skin + extentions

[Matrix112]

I have modified my UDF a little.

This UDF waits Max. 30 sec for finish loading and will return 1 if it hasn´t finished.

I won´t update my UDf with this because its only for 30 sec.

Just see it as another option if you need to check if it can´t load complete in 30 sec.

FfLoad2.au3

expandcollapse popup

;======================================================================================
;
; Function Name:    _FfLoadWaitTime()
; Description:    Pauses the script until Firefox finished loading. Max. 30 sec.
; Parameter(s):  $x  - The X coordinate of the Blue loading bar.
;                  $y  - The Y coordinate of the Blue loading bar.
;                  $c  - PixelCoordMode
;                        0 = relative coords to the active window
;                        1 = absolute screen coordinates (default)
;                        2 = relative coords to the client area of the active window
; Requirement(s):   Include FfLoad.au3
; Return Value(s):  If loading is not finished in 30 sec the Return is 1 else Return is 0. 
; Author(s):        Christoph Krogmann <ch.krogmann@gmx.de>
; Note(s):        During search for the coordinate, choose a point at the left
;                  side of the loading bar!
;
;======================================================================================
;
Func _FfLoadWaitTime ($x, $y, $c)
    Opt("PixelCoordMode", $c)
    Local $i
    Local $iColor
    Local $isec = @SEC
    Local $istop
    If $isec < 30 Then $istop = $isec + 30
    If $isec = 30 Then $istop = $isec - 29
    If $isec > 30 Then $istop = $isec - 30  
    Do
        $iColor = PixelGetColor($x ,$y)
        If $iColor = 664682 Then
            $i = 1
        Else
        Endif
        Sleep(20)
    Until $i = 1
    Do
        $isec = @SEC
        $iColor = PixelGetColor($x ,$y)
        If $iColor = 664682 Then
            If $isec = $istop Then
                $i = 2
                Return 1
            EndIf   
        Else
            $i = 2
            Return 0
        Endif
        Sleep(20)
    Until $i = 2    
EndFunc;==>_FfLoadWaitTime

Example2.au3

#include <FfLoad2.au3>

$path = "start your URL"
Run(@ComSpec & " /c " & $path, "", @SW_HIDE)
Opt("WinTitleMatchMode", 2)
WinWait("Mozilla Firefox")
WinSetState("Mozilla Firefox", "", @SW_MAXIMIZE)
$load = _FfLoadWaitTime(820, 732, 1);<<-- Put in your coordinates here
If $Load = 1 Then
    MsgBox(0, "Failed", "Load failed")
Else    
    MsgBox(0, "Finished", "Load is finished")
EndIf
Exit

FfLoad2.au3

Example2.au3

[kclteam]

nice one Matrix....needed one real badly...thank u

[Gif]

nice one Matrix....needed one real badly...thank u

ok out of the subject

OPERA rocks!!! then comes FF and flock and netscape , finally IE which i personally HATE

but better use this

[xStylezx]

Nice to see Firefox scripts.Hope to see more

Edited May 20, 2007 by xStylezx

[Insolence]

I did a little research and I found out Firefox has a COM-like interface(right word?) you can mess with. Using that, like the IE libraries on here, you can tell (for sure, any skin) if Firefox is loaded.

Also, you should use SetError(), or return negative numbers for exceptions (IMO).

EDIT: Someone already did it for ya

http://www.autoitscript.com/forum/index.php?showtopic=20450

Edited May 20, 2007 by Insolence