[已解决]判断程序重复运行出错

fenhanxue

1. Local $aProcess=ProcessList(@ScriptName);
   
2. For $i=1 To $aProcess[0][0]
   
3.     if $aProcess[$i][1] <> @AutoItPID  then ;It's not my own!!
   
4.                 MsgBox(0,'请勿重复运行','程序已经运行中，请勿重复启动')
   
5.                 Exit
   
6.         EndIf
   
7. Next

复制代码

chzj589

回复  3131210

誰說不可以的    請看下面範例
kk_lee69 发表于 2017-5-26 13:49

运行LP快捷辅助 v2.2_NoUPX.exe后，
再次点击LP快捷辅助 v2.2_NoUPX.exe，显示MsgBox(262144, '警告', '不要重复！')
关闭MsgBox(262144, '警告', '不要重复！')。
第三次点击LP快捷辅助 v2.2_NoUPX.exe，出错了！
原打开的LP快捷辅助 v2.2_NoUPX.exe的窗口己经变了

1361739590

根据我发的第9楼 生成的。

kk_lee69

回复 14# 1361739590

這是它原本的

我不知道為何要這樣寫  沒意義  但是我沒動他  因為照理說  上面先判斷 如果存在就退出了  

所以這行不會跑第二次  沒差

1361739590

回复 19# kk_lee69


        没太懂你的意思。
WinSetState($Exists, "", @SW_SHOW)    这个是没问题的。
问题是    有两个窗口都叫  $Exists ，这个怎么显示呢，不会都显示，只显示最近激活的窗口。
所有他说有白框。

kk_lee69

回复 20# 1361739590

不會 你跑過我的範例了嗎  原本的 $Exists 這個內容必須要建立 FROM 才會存在

因此  第一次 跑以後  會有  $Exists 這個的內容的窗口存在  

第二次跑的時候 因為一開始就先判斷 此時 尚未建立 FROM 因此  不會有第二個 $Exists

所以 第二次   會將第一次的 秀出來後  自己就退出了

反而是  原本的寫法是 抓 CLASS  他之所以 會無法秀出隱藏的  就是因為他抓到了第二次的程式

AU3 執行的時候  沒有建立 FROM 的時候  會有個 透明的框  CLASS名稱是  AUTO IT V3 GUI

1361739590

回复 21# kk_lee69


    他主要有  AutoItWinSetTitle($Exists)  这个。

Alam

若是自己的代码,可以有很多种方法实现吧.

1. Local $runState = @ScriptDir & 'tmp.dat'
   
2. FileWrite($runState, '')
   
3. Sleep(2000)
   
4. If Not FileExists($runState) Then Exit MsgBox(0, '', '实例已运行.')
   
5. FileDelete($runState)
   
6. GUICreate('')
   
7. Do
   
8.   If FileExists($runState) Then
   
9.           GUISetState()
   
10.           FileDelete($runState)
    
11.    EndIf
    
12. Until GUIGetMsg()= -3

复制代码

3131210

用9楼的办法，把隐藏的代码改成WinSetState就解决了，感谢盖楼的各位的讨论，都很有用。