窗口不透明度调节

misaka10843

前言

市面上有很多窗口不透明度调整的软件

但是它们要么就是要钱，要么就是效果不行，或者交钱了还是有些窗口调整不了

(比如原神/崩三等)

所以这次的脚本/软件就是专门控制全部软件的(包括一些疑难杂症的窗口，如上面的两款游戏)

正文

其实AutoHotkey是可以调整窗口不透明度的

但是如果简单的只写个设定不透明度的话感觉又不怎么方便

所以就写了这个脚本

;使用说明：
;   左shift+滚轮上滑：+1透明度
;   左shift+滚轮下滑：-1透明度
;   右shift+Ctrl+滚轮下滑：-10透明度
;   右shift+Ctrl+滚轮上滑：+10透明度
;   左shift+中键按下：恢复透明度至255
~LShift & WheelUp::
; 透明度调整，增加。
WinGet, Transparent, Transparent,A
If (Transparent="")
    Transparent=255
    Transparent_New:=Transparent+1    ;透明度增加速度。
    If (Transparent_New > 254)
                    Transparent_New =255
    WinSet,Transparent,%Transparent_New%,A

    tooltip now: ▲%Transparent_New%`nmae: __%Transparent%  ;查看当前透明度（操作之后的）。
    ;sleep 1500
    SetTimer, RemoveToolTip_transparent_Lwin__2016.09.20, 1500  ;设置统一的这个格式，label在最后。
return

~LShift & WheelDown::
;透明度调整，减少。
WinGet, Transparent, Transparent,A
If (Transparent="")
    Transparent=255
    Transparent_New:=Transparent-1  ;透明度减少速度。
    ;msgbox,Transparent_New=%Transparent_New%
            If (Transparent_New < 1)    ;最小透明度限制。
                    Transparent_New = 1
    WinSet,Transparent,%Transparent_New%,A
    tooltip now: ▲%Transparent_New%`nmae: __%Transparent%  ;查看当前透明度（操作之后的）。
    ;sleep 1500
    SetTimer, RemoveToolTip_transparent_Lwin__2016.09.20, 1500  ;设置统一的这个格式，label在最后。
return

~RShift & WheelUp::
; 透明度调整，增加。
WinGet, Transparent, Transparent,A
If (Transparent="")
    Transparent=255
    Transparent_New:=Transparent+10    ;透明度增加速度。
    If (Transparent_New > 254)
                    Transparent_New =255
    WinSet,Transparent,%Transparent_New%,A

    tooltip now: ▲%Transparent_New%`nmae: __%Transparent%  ;查看当前透明度（操作之后的）。
    ;sleep 1500
    SetTimer, RemoveToolTip_transparent_Lwin__2016.09.20, 1500  ;设置统一的这个格式，label在最后。
return

~RShift & WheelDown::
;透明度调整，减少。
WinGet, Transparent, Transparent,A
If (Transparent="")
    Transparent=255
    Transparent_New:=Transparent-10  ;透明度减少速度。
    ;msgbox,Transparent_New=%Transparent_New%
            If (Transparent_New < 30)    ;最小透明度限制。
                    Transparent_New = 30
    WinSet,Transparent,%Transparent_New%,A
    tooltip now: ▲%Transparent_New%`nmae: __%Transparent%  ;查看当前透明度（操作之后的）。
    ;sleep 1500
    SetTimer, RemoveToolTip_transparent_Lwin__2016.09.20, 1500  ;设置统一的这个格式，label在最后。
return

;设置Lwin &Mbutton直接恢复透明度到255。
~Lshift & Mbutton:: 
WinGet, Transparent, Transparent,A
WinSet,Transparent,255,A 
tooltip ▲Restored ;查看当前透明度（操作之后的）。
;sleep 1500
SetTimer, RemoveToolTip_transparent_Lwin__2016.09.20, 1500  ;设置统一的这个格式，label在最后。
return

removetooltip_transparent_Lwin__2016.09.20:     ;LABEL
tooltip
SetTimer, RemoveToolTip_transparent_Lwin__2016.09.20, Off
return

如果没有AutoHotkey软件的话可以使用这个exe(使用ahk2exe软件制作，AutoHotkey团队编写)

点击下载

该exe的sha256应该为：

2b5eba9f2bdb69af67fb8f318ce10c7e5b24498775c40514a55a0885a79962d7

您可以在终端(cmd)中输入certutil -hashfile 文件的路径 SHA256来查看并对比sha256

如果怕病毒的话可以看看这个病毒检测报告（因为AutoHotKey会修改系统的关键值来修改不透明度，所以会导致少部分报毒，此为正常现象）

virustotal报告链接

如何使用

此脚本使用起来非常简单，只要记住以下几点即可

1. 需要选择到你想调整的窗口上（也就是点一下）
2. 左Shift+鼠标滚轮上下为微调（上为 +1 ，下为 -1 ）
3. 右Shift+鼠标滚轮上下为大调（上为 +10 ，下为 -10 ）
4. 左Shift+鼠标滚轮中键为还原（还原到 100% 不透明度）

此脚本还贴心的添加了提示框来告诉你已经调整到多少了(但是是255为最高值，别问，问就是懒的不想改了www)

顺便说一下视频小窗（画中画）也是可以调整的www

Notofnice

AHK我记得要以管理员启动才行，不然功能可能会失效，或者在代码最前面加上

[Asm] 纯文本查看 复制代码

full_command_line := DllCall("GetCommandLine", "str")
if not (A_IsAdmin or RegExMatch(full_command_line, " /restart(?!\S)"))
{
    try ; leads to having the script re-launching itself as administrator
    {
        if A_IsCompiled
            Run *RunAs "%A_ScriptFullPath%" /restart
        else
            Run *RunAs "%A_AhkPath%" /restart "%A_ScriptFullPath%"
    }
    ExitApp
}

misaka10843

bbsscorpions 发表于 2022-7-6 09:45
主要想问下对一般的模拟器支持不？想摸鱼的明白，模拟器能透明方便

蓝叠国际的模拟器我是可以改的，但是其他的模拟器没试过。
只要不像一些魔改过窗口的软件来说基本上都可以支持

halou

感谢无私分享

wudixiaozi666

测试了一下 不错  先备用着吧！

或冬或夏丶

可以可以可以

maxsea

看到autohotkey，就必须赞一个

biweiye

下来测试

dabao1998

试试看，感谢分享

ferrastar

这个不错支持一个

wait4wuai

仅能调节普通透明度没有意思。最好是把areoglass升级了，并破解。

frqcp5818

谢谢分享