知道了，多谢afan耐心解答！
{:face (316):} 本帖最后由 zldfsz 于 2012-3-31 06:58 编辑
回复小熊出山
...或者...企鹅图标上面那个A2图标即可插入
afan 发表于 2012-3-31 06:48 http://www.autoitx.com/images/common/back.gif
这么一说我才看到原来还有这个 回复 17# zldfsz
一直都有，你没注意罢了 本帖最后由 小熊出山 于 2012-3-31 15:33 编辑
回复 11# xms77
我还是比较喜欢用这个UDF，语句简单些：
#include <Misc.au3>
if _Singleton("hello",1) = 0 Then
Msgbox(64,"警告！","该程序已经运行了哦，请不要反复点击！")
Exit
EndIf
我感觉你那段代码别写详细文件名xxx.exe改成@ScriptName比较好一些，
要不然不小心改了文件名就判断不到是否已经运行了！
代码如下：
$1 = ProcessExists(@ScriptName)
$list = ProcessList(@ScriptName)
For $i = 1 To $list
If $list[$i] <> $1 Then
MsgBox(0,"请注意",@ScriptName & "已经运行了，不要重复运行.")
Exit
EndIf
Next
回复zldfsz
一直都有，你没注意罢了
afan 发表于 2012-3-31 06:59 http://www.autoitx.com/images/common/back.gif
是啊，就是因为没注意，觉得发代码时修改麻烦，所以我才发了“复制并在首尾加au3”的帖子 本帖最后由 apoorman1986 于 2012-3-31 19:16 编辑
楼主，我也是初学AU3，Func _Capture()函数中的IF判断好像是余的，前面已经有了If Not FileExists($sDir) Then DirCreate($sDir)
去看IF之后，代码更少了！{:face (197):}
#NoTrayIcon
#include <ScreenCapture.au3>
#include <Misc.au3>
_Singleton("TheNameOfMyScript")
$sDir= "E:\Print" & "\" & @YEAR & "-" & @MON & "-" & @MDAY
If Not FileExists($sDir) Then DirCreate($sDir)
HotKeySet('{PRINTSCREEN}', '_Capture')
HotKeySet('{ESC}', '_Quit')
While 1
Sleep(100)
WEnd
Func _Capture()
_ScreenCapture_Capture($sDir & '\' & @HOUR & @MIN & @SEC & '.jpg')
EndFunc
Func _Quit()
Exit
EndFunc
回复 19# 小熊出山
的确是用@scriptName比较好，受教了，谢谢！ 回复 15# afan
试一试A2图标，原来一直用代码图标，然后把code给成AU3的，呵呵，太弱智了！
$1 = ProcessExists("xxx.exe")
页:
1
[2]