请会查BUG的朋友帮忙看下，该UDF会导致内存占用不断增加，不用了(已解决)

txm888

请大侠帮我看下这个UDF，获取网络连接信息用的，需要在后台长期运行。
情况是每查一次，内存就增加一点，无法释放，到最后就崩溃了，我找原因半个月之久，没有一点结果[code]

While 1
        $aTCPArray = _CV_GetExtendedTcpTable()
        If $aTCPArray = "error1" Then $aTCPArray = _CV_GetTcpTable()
        ;If IsArray($aTCPArray) Then _ArrayDisplay($aTCPArray) ;数组显示信息
        sleep(500)
WEnd

txm888

有朋友能帮测测吗?看内存增长的效果，十分钟即有明显的变化