【已解决】 HotKeySet无限循环问题

小熊出山

回复 15# afan


  知道了，多谢afan耐心解答！

zldfsz

回复  小熊出山


...或者...企鹅图标上面那个A2图标即可插入
afan 发表于 2012-3-31 06:48

这么一说我才看到原来还有这个

afan

回复 17# zldfsz


    一直都有，你没注意罢了

小熊出山

回复 11# xms77

我还是比较喜欢用这个UDF，语句简单些：
[au3]
#include <Misc.au3>
if _Singleton("hello",1) = 0 Then
        Msgbox(64,"警告！","该程序已经运行了哦，请不要反复点击！")
        Exit
EndIf
[/au3]

我感觉你那段代码别写详细文件名xxx.exe改成@ScriptName比较好一些，
要不然不小心改了文件名就判断不到是否已经运行了！

代码如下：
[au3]
$1 = ProcessExists(@ScriptName)
$list = ProcessList(@ScriptName)
For $i = 1 To $list[0][0]
        If $list[$i][1] <> $1 Then
                                MsgBox(0,"请注意",@ScriptName & "已经运行了，不要重复运行.")                        
                                Exit
                EndIf
Next
[/au3]

zldfsz

回复  zldfsz


    一直都有，你没注意罢了
afan 发表于 2012-3-31 06:59

   是啊，就是因为没注意，觉得发代码时修改麻烦，所以我才发了“复制并在首尾加au3”的帖子

apoorman1986

楼主，我也是初学AU3，Func _Capture()函数中的IF判断好像是余的，前面已经有了If Not FileExists($sDir) Then DirCreate($sDir)
去看IF之后，代码更少了！
[au3]
#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
[/au3]

xms77

回复 19# 小熊出山
的确是用@scriptName比较好，受教了，谢谢！

xms77

回复 15# afan
试一试A2图标，原来一直用代码图标，然后把code给成AU3的，呵呵，太弱智了！
[au3]$1 = ProcessExists("xxx.exe")[/au3]