Example of _WD_LoadWait

picorico2 · February 27, 2020

Hi all,

I´m trying to use the command "WD_LoadWait" because I want to pause the script until the web page fully loads in Firefox but I don´t know how to use it.

Here´s the full help

; #FUNCTION# ====================================================================================================================

; Name ..........: _WD_LoadWait

; Description ...: Wait for a browser page load to complete before returning

; Syntax ........: _WD_LoadWait($sSession[, $iDelay = 0[, $iTimeout = -1[, $sElement = '']]])

; Parameters ....: $sSession - Session ID from _WDCreateSession

; $iDelay - [optional] Milliseconds to wait before checking status

; $iTimeout - [optional] Period of time to wait before exiting function

; $sElement - [optional] Element ID to confirm DOM invalidation

; Return values .: Success - 1

; Failure - 0 and sets the @error flag to non-zero

; Author ........: Dan Pollak

; Modified ......:

; Remarks .......:

; Related .......:

; Link ..........:

; Example .......: No

; ===============================================================================================================================

Func _WD_LoadWait($sSession, $iDelay = Default, $iTimeout = Default, $sElement = Default)

Local Const $sFuncName = "_WD_LoadWait"

Local $iErr, $sResponse, $oJSON, $sReadyState

If $iDelay = Default Then $iDelay = 0

If $iTimeout = Default Then $iTimeout = $_WD_DefaultTimeout

If $sElement = Default Then $sElement = ""

If $iDelay Then Sleep($iDelay)

Local $hLoadWaitTimer = TimerInit()

While True

If $sElement <> '' Then

_WD_ElementAction($sSession, $sElement, 'name')

If $_WD_HTTPRESULT = $HTTP_STATUS_NOT_FOUND Then $sElement = ''

Else

$sResponse = _WD_ExecuteScript($sSession, 'return document.readyState', '')

$iErr = @error

If $iErr Then

ExitLoop

EndIf

$oJSON = Json_Decode($sResponse)

$sReadyState = Json_Get($oJSON, "[value]")

If $sReadyState = 'complete' Then ExitLoop

EndIf

If (TimerDiff($hLoadWaitTimer) > $iTimeout) Then

$iErr = $_WD_ERROR_Timeout

ExitLoop

EndIf

Sleep(100)

WEnd

If $iErr Then

Return SetError(__WD_Error($sFuncName, $iErr, ""), 0, 0)

EndIf

Return SetError($_WD_ERROR_Success, 0, 1)

EndFunc

Any sugestions or examples?

seadoggie01 · February 27, 2020

Hi Picorico2 and welcome!

First, when we post code we use the button that looks like this: <> on the forum post editor.

Second, what do you mean you don't know how to use it? Have you installed a driver for your browser? Does _WD_CreateSession work? Do you not understand the _WD_LoadWait parameters? (Being a little more specific goes a long way)

Danp2 · February 27, 2020

Did you happen to look in wd_demo.au3? There's an example in there showing how to call _WD_LoadWait.

P.S. Instead of posting the UDF function, it would have been better if you had posted your code so that we can see what you are trying to do and where you may have gone awry.

picorico2 · February 27, 2020

Thanks for the early reply,

Its an honor that the creator of the Web Driver has answered me.

I just want to open a web page, and pause the script until it fully loads.

and do I have to use the line below (I'm a newbie)

$sSession = _WD_CreateSession($sDesiredCapabilities)

Please post an example.

Danp2 · February 27, 2020

After creating the session, you can then navigate to the desired site using _WD_Navigate. Next you would call _WD_LoadWait. Something like this --

_WD_Navigate($sSession, "http://google.com")
_WD_LoadWait($sSession)

_WD_LoadWait offers several optional parameters. Look at the function header for a description of what action each one performs. Try writing some code to "practice" using these optional features. Then come back and let us know how you fared. :thumbsup:

picorico2 · February 28, 2020

Good Morning Danp2,

I got an error that says that I haven´t declared the variable so I copied the line below from your demo but still doesn´t do anything

Local $sDesiredCapabilities, $iIndex, $sSession

Here's the code:

#include "wd_core.au3"
#include "wd_helper.au3"
#include <GuiComboBoxEx.au3>
#include <GUIConstantsEx.au3>
#include <ButtonConstants.au3>
#include <WindowsConstants.au3>
#include <MsgBoxConstants.au3>

Local $sDesiredCapabilities, $iIndex, $sSession

_WD_Navigate($sSession, "https://guerrero.gob.mx/Pry_PagoReferenciado/Administracion/indexMs.php")

_WD_LoadWait($sSession)

Like I said I´m a newbie but I want to learn, pls be patient. 😄

seadoggie01 · February 28, 2020

I would really suggest taking a look at wd_demo.au3 that comes with the UDF. You're looking for something a bit more like this: (untested)

#include <MsgBoxConstants.au3>
#include <wd_core.au3>
#include <wd_helper.au3>

; Here you can specify some browser specific settings... you'll need to research them depending on your browser
; ... or just copy paste someone else's code :D

#Region Settings Setup
  _WD_Option('Driver', 'geckodriver.exe')
  _WD_Option('DriverParams', '--log trace')
  _WD_Option('Port', 4444)

  Global $sDesiredCapabilities = '{"desiredCapabilities":{"javascriptEnabled":true,"nativeEvents":true,"acceptInsecureCerts":true}}'
#EndRegion Settings Setup

; You need to initialize some stuff with this UDF
_WD_Startup()
; If there is an error setting stuff up, then exit
If @error <> $_WD_ERROR_Success Then
    Exit -1
EndIf

; Create a new instance of a browser with some settings you request
Global $sSession = _WD_CreateSession($sDesiredCapabilities)
; If there was an error, exit
If Not (@error = $_WD_ERROR_Success) Then Exit MsgBox($MB_ICONERROR, "Error: _WD_CreateSession", "Failed to create a Session. Check your desired capabilities.")

; Move to the requested website
_WD_Navigate($sSession, "http://yourwebsite.com")

; Anything you want to do after navigating to the website goes here
MsgBox($MB_ICONINFORMATION, "Navigation completed!", "Click ok to shutdown the browser and console")

; This removes the browser instance
_WD_DeleteSession($sSession)

; And this cleans up some resources
_WD_Shutdown()

Edit 1: Updated with Gecko driver settings... didn't realize that was used for FireFox
Edit 2: _WD_Options goes before _WD_Startup

Edited February 28, 2020 by seadoggie01

picorico2 · February 28, 2020

Excellent my friend, and thank you. I´ll try my best.

picorico2 · February 28, 2020

I get this error with your script

_WD_Startup ==> Invalid value: Location for Web Driver not set.

seadoggie01 · February 28, 2020

Did you download the geckodriver? If yes: Is it located in your script's directory, or did you properly specify the location of it?

picorico2 · February 28, 2020

Same error,

here's the line

_WD_Option('Driver', 'C:\Program Files (x86)\AutoIt3\Include\geckodriver.exe')

Danp2 · February 28, 2020

@picorico2 Please post the complete results from the Scite output panel.

seadoggie01 · February 28, 2020

My apologies, a little dyslexia going on there... _WD_Options goes first, then _WD_Startup... I'll edit my post

picorico2 · March 2, 2020

Works like a CHARM.

Thank you very much Sir.

We´ll keep in touch.

picorico2 · March 2, 2020

Hi there again,

Now for some unknown reason it has stopped working

It doesn´t open the web page anymore and continues the script.

Here's my code:

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Compile_Both=y
#AutoIt3Wrapper_UseX64=y
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#cs ----------------------------------------------------------------------------

AutoIt Version: 3.3.14.5
Author: myName

Script Function:
Template AutoIt script.

#ce ----------------------------------------------------------------------------

; Script Start - Add your code below here

#include <MsgBoxConstants.au3>
#include <wd_core.au3>
#include <wd_helper.au3>
#include <GuiComboBoxEx.au3>
#include <GUIConstantsEx.au3>
#include <ButtonConstants.au3>
#include <WindowsConstants.au3>
#include <MsgBoxConstants.au3>

HotKeySet("{Esc}", "ExitScript")

$_WD_DEBUG = $_WD_DEBUG_None ; You could also use $_WD_DEBUG_Error

; Here you can specify some browser specific settings... you'll need to research them depending on your browser
; ... or just copy paste someone else's code

#Region Settings Setup
_WD_Option('Driver', 'C:\Program Files (x86)\AutoIt3\Include\geckodriver.exe')
_WD_Option('DriverParams', '--log trace')
_WD_Option('Port', 4444)

Global $sDesiredCapabilities = '{"desiredCapabilities":{"javascriptEnabled":true,"nativeEvents":true,"acceptInsecureCerts":true}}'
#EndRegion Settings Setup

; You need to initialize some stuff with this UDF
_WD_Startup()
; If there is an error setting stuff up, then exit
If @error <> $_WD_ERROR_Success Then
Exit -1
EndIf

; Create a new instance of a browser with some settings you request
;Global $sSession = _WD_CreateSession($sDesiredCapabilities)
; If there was an error, exit
;If Not (@error = $_WD_ERROR_Success) Then Exit MsgBox($MB_ICONERROR, "Error: _WD_CreateSession", "Failed to create a Session. Check your desired capabilities.")

Local $sDestination = "E:\Documentos\AUTOIT\palomitav.jpg"

Local $sDesiredCapabilities, $iIndex, $sSession

;Verificar si la serie es correcta

MsgBox($MB_SYSTEMMODAL, "Serie", "Favor de copiar la serie y dar clic en Aceptar")

SplashTextOn("", "Verificando la serie en Pago Referenciado...", 200, 60, 1400, 5, 600, 60, opt = 1)
; Ancho_Ven, Alto_Ven Y,

Send("^{TAB}")

_WD_LoadWait($sSession, "https://guerrero.gob.mx/Pry_PagoReferenciado/Administracion/indexMs.php")

Send("{TAB 3}")
Sleep(1000)
Send("{ENTER}")

_WD_LoadWait($sSession, "https://guerrero.gob.mx/Pry_PagoReferenciado/Administracion/menuOper.php")

MouseMove(1047, 115, 5)
MouseMove(1047, 145, 5)
MouseMove(1223, 145, 5)
MouseMove(1223, 170, 5)
MouseClick("left")

_WD_LoadWait($sSession, "https://guerrero.gob.mx/Pry_PagoReferenciado/Administracion/PagoTenencia/tenencia2015/admin.php")

Send("{TAB}")
Send("^v")
MouseMove(404, 224, 5)
MouseClick("left")

SplashOff()

$a = MsgBox(4, "", "¿Es correcta la serie?")

If $a = 6 Then ;SI

   ;MouseMove(309, 476, 5)
   ;MouseClick("left")
   Send("{TAB 6}")
   ;Sleep(500)
   Send("{DOWN 3}")
   Send("{TAB}")
   Send("{ENTER}")

Send("{TAB}")
Send("{ENTER}")

_WD_LoadWait($sSession, "https://guerrero.gob.mx/Pry_PagoReferenciado/Administracion/PagoTenencia/tenencia2015/index.php?i=3&usu=570&serie=8AFDR5ADXA6284122&sid=0.29255510000995255")

Send("{END}")

ElseIf $a = 7 Then ;NO

Send("^+{TAB}")

MsgBox($MB_SYSTEMMODAL, "Placa", "Favor de copiar la PLACA y dar clic en Aceptar")

Send("^{TAB}")

MouseMove(425, 226, 5)
MouseClick("left")

   Sleep(1000)
   Send("{TAB}")
   Send("^v")
   Sleep(10000)

$a = MsgBox(4, "", "¿Es correcta la placa?")

If $a = 6 Then ;SI

       MouseMove(95, 295, 5)
       MouseClick("left")
       MouseMove(404, 224, 5)
       MouseClick("left")
       MouseMove(309, 517, 5)
       MouseClick("left")
       Sleep(1000)
       Send("{DOWN 3}")
       Send("{ENTER}")
       Sleep(1000)
       Send("{TAB}")
       Send("{ENTER}")
       Sleep(1000)
       Send("{TAB 2}")
       Send("{ENTER}")
       Sleep(4000)
       Send("{END}")

ElseIf $a = 7 Then ;NO

;WinActivate ("Cobro de Tenencia ::: Sistema Pago Referenciado - Mozilla Firefox")

Sleep(1000)

Send("^+{TAB}")

Send("r")

Sleep(3000)

Send("El número de serie y placa son incorrectos")

EndIf

Func ExitScript()
Exit
EndFunc ;==>ExitScript

mLipok · March 2, 2020

@picorico2

Please read:

and this:

https://www.autoitscript.com/wiki/Forum_FAQ#How_can_I_post_.22code.22_on_the_forum_.3F

also:
https://www.autoitscript.com/wiki/Forum_FAQ#How_can_I_edit_my_post_on_the_forum_.3F

so I propose you to edit your post because the code you posted is not posted well (is not formated).

picorico2 · March 2, 2020

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Compile_Both=y
#AutoIt3Wrapper_UseX64=y
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#cs ----------------------------------------------------------------------------

 AutoIt Version: 3.3.14.5
 Author:         myName

 Script Function:
    Template AutoIt script.

#ce ----------------------------------------------------------------------------

; Script Start - Add your code below here

#include <MsgBoxConstants.au3>
#include <wd_core.au3>
#include <wd_helper.au3>
#include <GuiComboBoxEx.au3>
#include <GUIConstantsEx.au3>
#include <ButtonConstants.au3>
#include <WindowsConstants.au3>
#include <MsgBoxConstants.au3>

HotKeySet("{Esc}", "ExitScript")

$_WD_DEBUG = $_WD_DEBUG_None ; You could also use $_WD_DEBUG_Error

; Here you can specify some browser specific settings... you'll need to research them depending on your browser
; ... or just copy paste someone else's code :D

#Region Settings Setup
_WD_Option('Driver', 'C:\Program Files (x86)\AutoIt3\Include\geckodriver.exe')
_WD_Option('DriverParams', '--log trace')
_WD_Option('Port', 4444)

Global $sDesiredCapabilities = '{"desiredCapabilities":{"javascriptEnabled":true,"nativeEvents":true,"acceptInsecureCerts":true}}'
#EndRegion Settings Setup

; You need to initialize some stuff with this UDF
_WD_Startup()
; If there is an error setting stuff up, then exit
If @error <> $_WD_ERROR_Success Then
    Exit -1
EndIf

; Create a new instance of a browser with some settings you request
;Global $sSession = _WD_CreateSession($sDesiredCapabilities)
; If there was an error, exit
;If Not (@error = $_WD_ERROR_Success) Then Exit MsgBox($MB_ICONERROR, "Error: _WD_CreateSession", "Failed to create a Session. Check your desired capabilities.")


Local $sDestination = "E:\Documentos\AUTOIT\palomitav.jpg"

Local $sDesiredCapabilities, $iIndex, $sSession

;Verificar si la serie es correcta

MsgBox($MB_SYSTEMMODAL, "Serie", "Favor de copiar la serie y dar clic en Aceptar")

SplashTextOn("", "Verificando la serie en Pago Referenciado...", 200, 60, 1400, 5, 600, 60, opt = 1)
; Ancho_Ven, Alto_Ven        Y,

Send("^{TAB}")

_WD_LoadWait($sSession, "https://guerrero.gob.mx/Pry_PagoReferenciado/Administracion/indexMs.php")

Send("{TAB 3}")
Sleep(1000)
Send("{ENTER}")

_WD_LoadWait($sSession, "https://guerrero.gob.mx/Pry_PagoReferenciado/Administracion/menuOper.php")

MouseMove(1047, 115, 5)
MouseMove(1047, 145, 5)
MouseMove(1223, 145, 5)
MouseMove(1223, 170, 5)
MouseClick("left")

_WD_LoadWait($sSession, "https://guerrero.gob.mx/Pry_PagoReferenciado/Administracion/PagoTenencia/tenencia2015/admin.php")

Send("{TAB}")
Send("^v")
MouseMove(404, 224, 5)
MouseClick("left")

SplashOff()

$a = MsgBox(4, "", "¿Es correcta la serie?")

If $a = 6 Then ;SI

    ;MouseMove(309, 476, 5)
    ;MouseClick("left")
    Send("{TAB 6}")
    ;Sleep(500)
    Send("{DOWN 3}")
    Send("{TAB}")
    Send("{ENTER}")

    Send("{TAB}")
    Send("{ENTER}")

    _WD_LoadWait($sSession, "https://guerrero.gob.mx/Pry_PagoReferenciado/Administracion/PagoTenencia/tenencia2015/index.php?i=3&usu=570&serie=8AFDR5ADXA6284122&sid=0.29255510000995255")

    Send("{END}")

ElseIf $a = 7 Then ;NO

    Send("^+{TAB}")

    MsgBox($MB_SYSTEMMODAL, "Placa", "Favor de copiar la PLACA y dar clic en Aceptar")

    Send("^{TAB}")

    MouseMove(425, 226, 5)
    MouseClick("left")

    Sleep(1000)
    Send("{TAB}")
    Send("^v")
    Sleep(10000)

    $a = MsgBox(4, "", "¿Es correcta la placa?")

    If $a = 6 Then ;SI

        MouseMove(95, 295, 5)
        MouseClick("left")
        MouseMove(404, 224, 5)
        MouseClick("left")
        MouseMove(309, 517, 5)
        MouseClick("left")
        Sleep(1000)
        Send("{DOWN 3}")
        Send("{ENTER}")
        Sleep(1000)
        Send("{TAB}")
        Send("{ENTER}")
        Sleep(1000)
        Send("{TAB 2}")
        Send("{ENTER}")
        Sleep(4000)
        Send("{END}")

    ElseIf $a = 7 Then ;NO

        ;WinActivate ("Cobro de Tenencia ::: Sistema Pago Referenciado - Mozilla Firefox")

        Sleep(1000)

        Send("^+{TAB}")

        Send("r")

        Sleep(3000)

        Send("El número de serie y placa son incorrectos")

    EndIf

EndIf

Func ExitScript()
    Exit
EndFunc   ;==>ExitScript

picorico2 · March 2, 2020

Sorry about before, I learned something new today. Thank you and I´ll be waiting for your kind help.

Danp2 · March 2, 2020

While you are in "debugging mode", I would recommend removing the line where you modify $_WD_DEBUG. That way, you get the greatest level of feedback in the Scite console panel. Also, it looks like you've commented out the line containing _WD_CreateSession, so that would explain why the browser is no longer being launched.

Finally, be careful with your variable declarations. I see where you are declaring some variables as Global and then redeclaring them as Local ($sDesiredCapabilities for example).

picorico2 · March 2, 2020

Ok. I removed the debugging mode. I commented out the line containing the _WD_CreateSession because I don´t want to open a new Firefox Windows, I just want to move to the next tab on the right, open a web site, wait for it to finish loading and move on, and finally I don´t undertand about variables and declarations pls help me to fix the code, and also can you tell me what´s the meaning of "DesiredCapabilities" sound funny to me. English is not my first language.

The main reason I want to use Webdrive is because sometimes the web site I´m trying to access in Firefox takes longer to completely load than usual so if I use "Sleep" is not very accurate.

Thank you kindly.

Example of _WD_LoadWait

Recommended Posts

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Create an account or sign in to comment

Create an account

Sign in

Recently Browsing 0 members

Similar Content