提示：错误的数组或数组超出

lvsea2008

参考了大大们的代码下面这一段
放到程序里编译后，执行时出现标题所示的错误，如果不编译单独运行脚本的话就没有提示，可以正常运行，把
Local $aRet[1] = [1]改为Local $aRet[2] = [1]没错误提示但执行了没有效果！

Local $aWList = WinList()
Local $aRet[1] = [0]
_WinGetByPid(ProcessExists("terxt.exe"))
$hWnd=$aRet[1]
Func _WinGetByPid($iPID)

    For $iCC = 0 To $aWList[0][0]
        If WinGetProcess($aWList[$iCC][1]) = $iPID AND _
                BitAND(WinGetState($aWList[$iCC][1]), 2) Then
            ReDim $aRet[UBound($aRet)+1]
            $aRet[0] += 1
            $aRet[$aRet[0]] = $aWList[$iCC][1]
        EndIf
    Next
    If $aRet[0] = 0 Then
        Return SetError(1, 0, 0)
    Else
        Return $aRet
    EndIf
EndFunc

lvsea2008

自己解决了
没有加判断所致