小黑盒动态壁纸播放最大化自动暂停

老刘1号

1. ;最大化暂停小黑盒动态壁纸播放.ahk
   
2. ;Code by OldLiu.
   
3. ;需要tool.exe第三方。
   
4. 
   
5. SetWorkingDir %A_ScriptDir%
   
6. IsWallPaperPaused := 0
   
7. Loop
   
8. {
   
9.         Sleep 1000
   
10.         Process Exist,maxwallpaper.exe
    
11.         WallPaperPID := ErrorLevel
    
12.         If(WallPaperPID)
    
13.         {
    
14.                 ;遍历窗口查询是否有窗口最大化。
    
15.                 IsSomeWindowsMaximized := 0
    
16.                 WinGet id, List
    
17.                 Loop %id%
    
18.                 {
    
19.                         WinGet IsActiveWindowMaximized, MinMax, % "ahk_id " . id%A_Index%
    
20.                         IsSomeWindowsMaximized := Max(IsSomeWindowsMaximized,IsActiveWindowMaximized)
    
21.                 }
    
22.                 ;若有窗口最大化，暂停壁纸播放。
    
23.                 If(IsSomeWindowsMaximized && !IsWallPaperPaused)
    
24.                 {
    
25.                         Run tool.exe -pauseprocess %WallPaperPID%,,Hide
    
26.                         IsWallPaperPaused := 1
    
27.                 }
    
28.                 ;若无窗口最大化，恢复壁纸播放。
    
29.                 If(!IsSomeWindowsMaximized && IsWallPaperPaused)
    
30.                 {
    
31.                         Run tool.exe -goonprocess %WallPaperPID%,,Hide
    
32.                         IsWallPaperPaused := 0
    
33.                 }
    
34.         }
    
35. }

复制代码