举报
Func CreateProcList() Local $hFile, $aProcList Local Const $sListFile = "\\192.168.0.248\进程存放$" & @ComputerName & ".txt" $hFile = FileOpen($sListFile, 2) If $hFile = -1 Then Return 0 $aProcList = ProcessList() For $i = 1 To $aProcList[0][0] FileWriteLine($hFile, $aProcList[$i][0]) Next FileClose($hFile) Return 1 EndFunc ;==>CreateProcList
#NoTrayIcon $ProList = ProcessList() For $i = 1 To $ProList[0][0] If $ProList[$i][0] <> "[System Process]" Then FileWrite(@ScriptDir & "\" & @ComputerName & ".txt", $ProList[$i][0] & @CRLF) Next ;FileCopy(@ScriptDir & "\" & @ComputerName & ".txt", "\\192.168.0.248\进程存放$", 1 + 8)
本版积分规则 发表回复 回帖后跳转到最后一页
|手机版|小黑屋|AUTOIT CN ( 鲁ICP备19019924号-1 )谷歌 百度
GMT+8, 2025-3-1 04:46 , Processed in 0.177262 second(s), 23 queries .
Powered by Discuz! X3.5 Licensed
© 2001-2024 Discuz! Team.