论坛 › 『 提问交流 』 › 请帮忙修改一个进程获取的代码

netegg 发表于 2009-10-26 14:08:06

lz，你到底要改进什么呀

wisly 发表于 2009-10-26 14:09:31

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

wisly 发表于 2009-10-26 14:21:27

修正了两个bug，和你编译通不过没关系#NoTrayIcon
#include <File.au3>
#include <Array.au3>
Global $File = 'c:\' & @ComputerName & '.txt'
_Proc2File($File)
Func _Proc2File($filename)
        Local $aProcList = ProcessList()
        Dim $aNameList[$aProcList + 1]
        $aNameList = $aProcList
        For $i = 1 To $aNameList
                $aNameList[$i] = $aProcList[$i]
        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 发表于 2009-11-8 16:38:12

好像对我帮助不大！

netegg 发表于 2009-11-8 17:01:11

本帖最后由 netegg 于 2009-11-8 17:09 编辑

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

查看完整版本: 请帮忙修改一个进程获取的代码