Auto It - Wersja do druku

Kod:
; #FUNCTION# ===================================================================

; Name ..........: _FFClick

; Description ...: Simulates a click on an element.

; Beschreibung ..: Simuliert einen Klick auf ein Element.

; AutoIt Version : V3.3.0.0

; Syntax ........: _FFClick($sElement[, $sMode = "elements"[, $iIndex = 0[, $bLoadWait = True]]])

; Parameter(s): .: $sElement    - Element to click on

;                  $sMode       - Optional: (Default = "elements") :

;                               | elements

;                               | id

;                               | name

;                               | class

;                               | tag

;                  $iIndex      - Optional: (Default = 0) : Index if $sMode = class, name, tag

;                  $bLoadWait   - Optional: (Default = True) :

; Return Value ..: Success      - 1

;                  Failure      - 0

;                  @ERROR       -

; Author(s) .....: Thorsten Willert

; Date ..........: Sat Feb 26 16:57:09 CET 2011 @706 /Internet Time/

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

; Related .......: _FFImageClick, _FFLinkClick. _FFImageMapClick

; Example .......: Yes

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

Func _FFClick($sElement, $sMode = "elements", $iIndex = 0, $bLoadWait = True)

    Local Const $sFuncName = "_FFClick"



    If Not IsInt($iIndex) Then

        SetError(__FFError($sFuncName, $_FF_ERROR_InvalidDataType, "(int) $iIndex: " & $iIndex))

        Return 0

    EndIf



    If $sMode = Default Then $sMode = "elements"

    If $iIndex = Default Then $iIndex = 0



    Switch StringLower($sMode)

        Case "elements"

            If StringLeft($sElement, 7) = "OBJECT|" Then $sElement = StringMid($sElement, 8)

        Case "id"

            $sElement = ".getElementById('" & $sElement & "')"

        Case "name"

            $sElement = ".getElementsByName('" & $sElement & "')[" & $iIndex & "]"

        Case "class"

            $sElement = ".getElementsByClassName('" & $sElement & "')[" & $iIndex & "]"

        Case "tag"

            $sElement = ".getElementsByTagName('" & $sElement & "')[" & $iIndex & "]"

        Case Else

            SetError(__FFError($sFuncName, $_FF_ERROR_InvalidValue, "(elements|id|name|class|tag) $sMode: " & $sMode))

            Return 0

    EndSwitch



    If StringLeft($sElement, 1) = "." Then $sElement = "FFau3.WCD" & $sElement



    Local $RetVal = _FFCmd("FFau3.simulateEvent(" & $sElement & ",'MouseEvents','click');")

    If Not @error And $RetVal <> "_FFCmd_Err" And $RetVal = 1 Then

        Sleep(25)

        If $bLoadWait Then Return _FFLoadWait()

        __FFSetTopDocument()

        Return 1

    Else

        SetError(__FFError($sFuncName, $_FF_ERROR_NoMatch, "$sElement: " & $sElement))

        Return 0

    EndIf



EndFunc