论坛 › 已解决问题区 › 提示：错误的数组或数组超出

lvsea2008 发表于 2009-9-13 10:40:50

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

本帖最后由 lvsea2008 于 2009-9-13 15:50 编辑

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

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

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

lvsea2008 发表于 2009-9-13 15:49:48

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

查看完整版本: 提示：错误的数组或数组超出