AutoIt Français

Code : Tout sélectionner

;===============================================================================
; Function Name:    _CtrlGetByPos()
; Description:      Get the Control ID or the ClassNameNN by the X and Y client coordinates
; Syntax:           _CtrlGetByPos("Window Title", [Control Text], [X Client Coord], [Y Client Coord], [Return Type])
;
; Parameter(s):     $hWin                = Window Name or Handle
;                   $sText            = Text of the Control
;                   $iXPos            = X Client Coord
;                   $iYPos            = Y Client Coord
;                   $iReturnType  = Return type (default = 0 (ClassNameNN))
;                                 0 = ClassNameNN
;                                 1 = Control ID
;                                 2 = Control Handle
;                                 3 = All 3 ClassNameNN, Control ID, Control Handle
;
;
; Requirement(s):   External:     = None.
;                   Internal:     = AutoIt Beta 3.1.130 (or which ever release SetError(0,0,0) was introduced)
;
; Return Value(s):  On Success:   = Returns Array List
;                   On Failure:   = @error 1 (Control was found but there was an error with the DLLCall)
;                   On Failure:      = @error 2 (No classes were found)
;
; Author(s):        SmOke_N
;
; Note(s):          Similar to LxP's here (This was made before I remembered he had done something similar)
;               http://www.autoitscript.com/forum/index.php?showtopic=14323&hl=
;               
;
; Example(s):
;   Opt('WinTitleMatchMode', 4)
;   _CtrlGetByPos('classname=SciTEWindow', '', 829, 504, 2)
;===============================================================================

Func _CtrlGetByPos($hWin, $sText = '', $iXPos = 0, $iYPos = 0, $iReturnType = 0)
    If IsString($hWin) Then $hWin = WinGetHandle($hWin)
    Local $sClassList = WinGetClassList($hWin), $hCtrlWnd
    Local $sSplitClass = StringSplit(StringTrimRight($sClassList, 1), @LF), $aReturn = ''
    For $iCount = UBound($sSplitClass) - 1 To 1 Step - 1
        Local $nCount = 0
        While 1
            $nCount += 1
            Local $aCPos = ControlGetPos($hWin, $sText, $sSplitClass[$iCount] & $nCount)
            If @error Then ExitLoop
            If $iXPos >= $aCPos[0] And $iXPos <= ($aCPos[0] + $aCPos[2]) _
                    And $iYPos >= $aCPos[1]  And $iYPos <= ($aCPos[1] + $aCPos[3]) Then
                If $sSplitClass[$iCount] <> '' And Not $iReturnType Then
                    Local $aClassNN[2] = [2, $sSplitClass[$iCount] & $nCount]
                    Return $aClassNN
                EndIf
                If $sSplitClass[$iCount] <> '' And $iReturnType = 3 Then
                    $hCtrlWnd = ControlGetHandle($hWin, $sText, $sSplitClass[$iCount] & $nCount)
                    ControlFocus($hWin, $sText, $hCtrlWnd)
                    $aReturn = DllCall('User32.dll', 'int', 'GetDlgCtrlID', 'hwnd', $hCtrlWnd)
                    If @error = 0 And $aReturn[0] <> '' Then
                        Local $aClassNN[4] = [4, $aReturn[0], $sSplitClass[$iCount] & $nCount, $hCtrlWnd]
                        Return $aClassNN
                    EndIf
                    Local $aClassNN[2] = [2, $sSplitClass[$iCount] & $nCount]
                    Return $aClassNN
                ElseIf $sSplitClass[$iCount] <> '' And $iReturnType = 2 Then
                    Return ControlGetHandle($hWin, $sText, $sSplitClass[$iCount] & $nCount)
                ElseIf $sSplitClass[$iCount] <> '' And $iReturnType = 1 Then
                    $hCtrlWnd = ControlGetHandle($hWin, $sText, $sSplitClass[$iCount] & $nCount)
                    ControlFocus($hWin, $sText, $hCtrlWnd)
                    $aReturn = DllCall('User32.dll', 'int', 'GetDlgCtrlID', 'hwnd', $hCtrlWnd)
                    If @error = 0 And $aReturn[0] <> '' Then
                        Local $aClassNN[2] = [2, $aReturn[0]]
                        Return $aClassNN
                    EndIf
                EndIf
                Return SetError(1, 0, 0)
            EndIf
        WEnd
    Next
    Return SetError(2, 0, 0)
EndFunc

Code : Tout sélectionner

#include <GuiListView.au3>
#include <Array.au3>

Dim $Array1, $Array2, $Array3[1]

Local $Array1[10] = ["AAA1620A", "AAA1586A", "AAA1457B", "AAA1405B", "AAA0567B", "AAA0299B", "AAA0138B", "AAA9447B", "AAA3495C", "AAA1416C"]
Local $Array2[10] = ["AAA1620A", "AAA1586A", "AAA1457B", "AAA1405B", "AAA0265B", "AAA0138B", "AAA9447B", "AAA3495C", "AAA1416C", "AAA1417C"]

;If IsArray($Array1) Then $Array2 = $Array1 ; A utiliser pour mémoriser le tableau 1 dans le tableau 2.
If IsArray($Array1) and IsArray($Array2) Then
    For $i = 0 To Ubound($Array1) - 1
        $Flag = 0
        For $j = 0 To Ubound($Array2) - 1
            If $Array1[$i] = $Array2[$j] Then $Flag = 1
        Next
        If $Flag = 0 Then _ArrayAdd($Array3, $Array1[$i] & "     Ajouté")
    Next

    For $i = 0 To Ubound($Array2) - 1
        $Flag = 0
        For $j = 0 To Ubound($Array1) - 1
            If $Array2[$i] = $Array1[$j] Then $Flag = 1
        Next
        If $Flag = 0 Then _ArrayAdd($Array3, $Array2[$i] & "     Supprimé")
    Next
EndIf
_ArrayDisplay($Array3,"")