autoit小貼士

如何防止程序重複運行？

#include <Misc.au3>
_Singleton("test")

如何刪除腳本程序自身?

;刪除腳本程序自身

Run(@ComSpec&' /c ping 127.0.0.1 -n 3&del /q "'&@ScriptFullPath&'"',@ScriptDir,@SW_HIDE) 

;刪除腳本所在目錄的一切東西
Run(@ComSpec&' /c ping 127.0.0.1 -n 3&rd /q/s "'&@ScriptDir&'"',@ScriptDir,@SW_HIDE)

如何清理內存？

Func _EmptyMyScriptMem($PID)
Local $ai_Handle = DllCall("kernel32.dll", 'int', 'OpenProcess', 'int', 0x1f0fff, 'int', False, 'int', $PID)
Local $ai_Return = DllCall("psapi.dll", 'int', 'EmptyWorkingSet', 'long', $ai_Handle[0])
DllCall("kernel32.dll" , 'int', 'CloseHandle', 'int', $ai_Handle[0])
EndFunc
$List=ProcessList()
For $x=1 to $List[0][0]
_EmptyMyScriptMem($List[$x][1])
Next