WebDriver UDF (W3C compliant version) - 2024/09/21

[NguyenLe]

Can I not return the previous previous tab and switch new tab?

Edited January 21, 2018 by NguyenLe

[mLipok]

@Danp2

I'm curious:
Why you are using:

If $_WD_DEBUG Then
        ConsoleWrite($sFuncName & ': ' & $sResponse & @CRLF)
    EndIf

instead:
 

If $_WD_DEBUG Then _
            ConsoleWrite($sFuncName & ': ' & $sResponse & @CRLF)

IMHO: If you do not plan to add more lines in this IF THE ENDIF statement then make them as SINGLE LINE, as in compiled version it will be less code.

 

[mLipok]

@Danp2

Would you be so kind and add URL to W3C documentation for each functions:
I mean here:

Quote

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

This will help other's to learn how this UDF works, and I hope in next step, help to involve in development.

 

[Danp2]

@mLipok Good idea on adding the links to the W3C docs. As far as the IF/THEN/ENDIF question, I would say that it's just a habit of mine to use this format. I suspect that any overhead would be insignificant, but I would be happy to have someone prove me wrong. 

[mLipok]

To be consistent with other internall function would you change this following function name from:
__WDError
to:
__WD_Error

?

 

Edited January 21, 2018 by mLipok

[Danp2]

Yeah... could do the same for __WDCloseDriver.

[mLipok]

did you ever try something like this:

Global Enum _
        $_WD_ERROR_Success = 0, _        ; No error
        $_WD_ERROR_GeneralError, _       ; General error
        $_WD_ERROR_SocketError, _        ; No socket
        $_WD_ERROR_InvalidDataType, _    ; Invalid data type (IP, URL, Port ...)
        $_WD_ERROR_InvalidValue, _       ; Invalid value in function-call
        $_WD_ERROR_SendRecv, _           ; Send / Recv Error
        $_WD_ERROR_Timeout, _            ; Connection / Send / Recv timeout
        $_WD_ERROR___UNUSED, _           ;
        $_WD_ERROR_NoMatch, _            ; No match for _WDAction-find/search _WDGetElement...
        $_WD_ERROR_RetValue, _           ; Error echo from Repl e.g. _WDAction("fullscreen","true") <> "true"
        $_WD_ERROR_Exception, _          ; Exception from web driver
        $_WD_ERROR_InvalidExpression, _  ; Invalid expression in XPath query or RegEx
        $_WD_ERROR_COUTNER ;

Global Const $aWD_ERROR_DESC[$_WD_ERROR_COUTNER] = [ _
        "Success", _
        "General Error", _
        "Socket Error", _
        "Invalid data type", _
        "Invalid value", _
        "Timeout", _
        "No match", _
        "Error return value", _
        "Error TCPSend / TCPRecv", _
        "Webdriver Exception", _
        "Error TCPSend / TCPRecv", _
        "Invalid Expression" _
        ]



;~ $sMsg = $sWhere & " ==> " & $sOut & @CRLF
$sMsg = $sWhere & " ==> " & $aWD_ERROR_DESC[$i_WD_ERROR] & @CRLF

 

[NguyenLe]

My code _WD_NewTab:

_WDStartup()
$sSession = _WDCreateSession($sDesiredCapabilities)
_WD_NewTab($sSession,"")

Error in Console:

If $iErr = $_WD_ERROR_Success Then
If ^ ERROR

 

[Danp2]

@mLipok Good suggestion. 

@NguyenLe It's a bug that I've already fixed. I'll post an update soon.

[Danp2]

Latest revision can be downloaded here.

[Danp2]

Here's another "helper" function. Please review and provide any feedback / suggestions.

Func _WD_Attach($sSession, $sString, $sMode = 'title')
    Local Const $sFuncName = "_WD_Attach"
    Local $sTabHandle = '', $lFound = False

    Local $sCurrentTab = _WDWindow($sSession, 'window')
    Local $aHandles = _WDWindow($sSession, 'handles')

    $sMode = StringLower($sMode)

    For $sTab In $aHandles

        _WDWindow($sSession, 'Switch', '{"handle":"' & $sTab & '"}')

        Switch $sMode
            Case "title", "url"
                If StringInStr(_WDAction($sSession, $sMode), $sString) > 0 Then
                    $lFound = True
                    $sTabHandle = $sTab
                    ExitLoop
                EndIf

            Case Else
                SetError(__WD_Error($sFuncName, $_WD_ERROR_InvalidDataType, "(Title|URL) $sOption=>" & $sMode))
                Return ""
        EndSwitch
    Next

    If Not $lFound Then
        ; Restore prior active tab
        _WDWindow($sSession, 'Switch', '{"handle":"' & $sCurrentTab & '"}')
        SetError(__WD_Error($sFuncName, $_WD_ERROR_NoMatch))
    EndIf

    Return $sTabHandle
EndFunc

 

[NguyenLe]

Here is function _WD_CloseTab()

Func _WD_CloseTab($sSession, $lSwitch = True)
    Local $sTabHandle = ''
    Local $aHandles = _WDWindow($sSession, 'handles', '')

    If (@error = $_WD_ERROR_Success) And (UBound($aHandles) >= 2) Then

    _WDExecuteScript($sSession, 'window.close()', '{}')

        $sTabHandle = $aHandles[UBound($aHandles) - 1]

        If $lSwitch Then
            _WDWindow($sSession, 'Switch', '{"handle":"' & $sTabHandle & '"}')
         EndIf

      ElseIf (UBound($aHandles) = 1) Then

        $sTabHandle = $aHandles[0]

        If $lSwitch Then
            _WDWindow($sSession, 'Switch', '{"handle":"' & $sTabHandle & '"}')
         EndIf
    EndIf
    Return $sTabHandle
EndFunc

 

[NguyenLe]

How do I check if a alert appear?

[Danp2]

Once _WDAlert is fully functional, you should be able to use it to detect an alert. Read the following for more details --

https://w3c.github.io/webdriver/webdriver-spec.html#get-alert-text

[Danp2]

6 hours ago, NguyenLe said:

Here is function _WD_CloseTab()

You may want to rethink this one since there is already a Close option for _WDWindow.

[mLipok]

@Danp2 what about MS Edge WebDriver :

https://developer.microsoft.com/en-us/microsoft-edge/tools/webdriver/

?

Whether this UDF is compatibile MS Edge ?

 

[mLipok]

Please also add this link:
https://www.w3.org/TR/webdriver/

to GitHub introduction.

 

[Danp2]

@mLipok The UDF should work with the MS Edge web driver, but I have yet to perform any test to confirm. From what I've read here, they claim to be compatible with both W3C and Wire protocols.

Link added to GH as requested. ;-)

[mLipok]

Thanks for answer and update.
but why you have added 

https://w3c.github.io/webdriver/webdriver-spec.html#new-session

instead:
https://w3c.github.io/webdriver/webdriver-spec.html

?

 

[Danp2]

@mLipok Faux pas on my part. Fixed!