win+enter_窗口透明.ahk 1.9 KB

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152
  1. ;左shift + 鼠标滚轮调整窗口透明度(设置30-255的透明度)
  2. ;
  3. ;使用说明:
  4. ; 左侧shift + 滚轮下滑:减少透明度,一次10
  5. ; 左侧shift + 滚轮上滑:增加透明度,一次20
  6. ; 左侧shift + 中键按下:恢复透明度至255(完全不透明).
  7. ;
  8. ~LShift & WheelUp::
  9. ; 透明度调整,增加。
  10. WinGet, Transparent, Transparent,A
  11. If (Transparent = "")
  12. Transparent = 255
  13. ;Transparent_New: = Transparent + 10
  14. Transparent_New: = Transparent + 20 ;透明度增加速度。
  15. If (Transparent_New > 254)
  16. Transparent_New = 255
  17. WinSet,Transparent,%Transparent_New%,A
  18. tooltip now: %Transparent_New%`nmae: __%Transparent% ;查看当前透明度(操作之后的)。
  19. ;sleep 1500
  20. SetTimer, RemoveToolTip_transparent_Lwin, 1500 ;设置统一的这个格式,label在最后。
  21. Return
  22. ~LShift & WheelDown::
  23. ;透明度调整,减少。
  24. WinGet, Transparent, Transparent,A
  25. If (Transparent = "")
  26. Transparent = 255
  27. Transparent_New: = Transparent-10 ;透明度减少速度。
  28. ;msgbox,Transparent_New = %Transparent_New%
  29. If (Transparent_New < 30) ;最小透明度限制。
  30. Transparent_New = 30
  31. WinSet,Transparent,%Transparent_New%,A
  32. tooltip now: %Transparent_New%`nmae: __%Transparent% ;查看当前透明度(操作之后的)。
  33. ;sleep 1500
  34. SetTimer, RemoveToolTip_transparent_Lwin, 1500 ;设置统一的这个格式,label在最后。
  35. Return
  36. ;设置Lwin &Mbutton直接恢复透明度到255。
  37. ~Lshift & Mbutton::
  38. WinGet, Transparent, Transparent,A
  39. WinSet,Transparent,255,A
  40. tooltip Restored ;查看当前透明度(操作之后的)。
  41. ;sleep 1500
  42. SetTimer, RemoveToolTip_transparent_Lwin, 1500 ;设置统一的这个格式,label在最后。
  43. Return
  44. removetooltip_transparent_Lwin: ;LABEL
  45. tooltip
  46. SetTimer, RemoveToolTip_transparent_Lwin, Off
  47. Return