请帮忙修改一个进程获取的代码

netegg

lz，你到底要改进什么呀

wisly

难道有不可见字符？我试过可以的啊，要不你把前面的空格删了试试

wisly

修正了两个bug，和你编译通不过没关系

#NoTrayIcon
#include <File.au3>
#include <Array.au3>
Global $File = 'c:\' & @ComputerName & '.txt'
_Proc2File($File)
Func _Proc2File($filename)
        Local $aProcList = ProcessList()
        Dim $aNameList[$aProcList[0][0] + 1]
        $aNameList[0] = $aProcList[0][0]
        For $i = 1 To $aNameList[0]
                $aNameList[$i] = $aProcList[$i][0]
        Next
        Dim $aOProcList
        If Not _FileReadToArray($filename, $aOProcList) Then
                $aOProcList = $aNameList
        Else
                _ArrayDelete($aNameList, 0)
                _ArrayConcatenate($aOProcList, $aNameList)
        EndIf
        $aOProcList = _ArrayUnique($aOProcList)
        _ArrayDelete($aOProcList, _ArraySearch($aOProcList, @ScriptName))
        _FileWriteFromArray($filename, $aOProcList, 1)
EndFunc   ;==>_Proc2File

316428696

好像对我帮助不大！

netegg

19# 316428696
我终于明白你的意思了，要添加进程到输出文件，是不是，很简单
fileopen（$file, 1）
filewrite($proc[] & @crlf)
$proc[]这个是进程数组，自己想想吧