Browse Source

Upload files to ''

liuyuqi 4 years ago
parent
commit
292a6e7e09
2 changed files with 67 additions and 0 deletions
  1. 52 0
      win+enter_窗口透明.ahk
  2. 15 0
      隐藏标题栏.ahk

+ 52 - 0
win+enter_窗口透明.ahk

@@ -0,0 +1,52 @@
+;左shift + 鼠标滚轮调整窗口透明度(设置30-255的透明度)
+;
+;使用说明:
+;   左侧shift + 滚轮下滑:减少透明度,一次10
+;   左侧shift + 滚轮上滑:增加透明度,一次20
+;   左侧shift + 中键按下:恢复透明度至255(完全不透明).
+;
+~LShift & WheelUp::
+	; 透明度调整,增加。
+	WinGet, Transparent, Transparent,A
+	If (Transparent = "")
+		Transparent = 255
+		;Transparent_New: = Transparent + 10
+		Transparent_New: = Transparent + 20    ;透明度增加速度。
+		If (Transparent_New > 254)
+						Transparent_New  = 255
+		WinSet,Transparent,%Transparent_New%,A
+	 
+		tooltip now: %Transparent_New%`nmae: __%Transparent%  ;查看当前透明度(操作之后的)。
+		;sleep 1500
+		SetTimer, RemoveToolTip_transparent_Lwin, 1500  ;设置统一的这个格式,label在最后。
+Return
+ 
+~LShift & 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, 1500  ;设置统一的这个格式,label在最后。
+Return
+ 
+;设置Lwin &Mbutton直接恢复透明度到255。
+~Lshift & Mbutton:: 
+	WinGet, Transparent, Transparent,A
+	WinSet,Transparent,255,A 
+	tooltip Restored ;查看当前透明度(操作之后的)。
+	;sleep 1500
+	SetTimer, RemoveToolTip_transparent_Lwin, 1500  ;设置统一的这个格式,label在最后。
+Return
+ 
+ 
+removetooltip_transparent_Lwin:     ;LABEL
+	tooltip
+	SetTimer, RemoveToolTip_transparent_Lwin, Off
+Return

+ 15 - 0
隐藏标题栏.ahk

@@ -0,0 +1,15 @@
+#t::
+	SetTitleMatchMode, 2 ;设定ahk匹配窗口标题的模式
+	winactivate,A ; 激活此窗口
+	sleep, 500 ; 延时,确保
+	WinSet,Transparent,220,A ;使得窗口变透明。取值范围0-255.0为完全透明,255完全不透明。
+	WinSet, Style, -0xC00000,A ;去掉标题栏
+Return
+
+#h::
+	SetTitleMatchMode, 2
+	WinActivate,A
+	sleep, 500
+	WinSet,Transparent,255,A
+	WinSet,Style,+0xC00000,A ;恢复标题栏
+Return