[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

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

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

返回列表