PowerShell怎样根据程序名设置窗口半透明效果

5i365

找了一段代码, 可以设置powershell的透明度, 我改了一句, 想设置计算器的半透明度, 但是不能生效, 求高手指教:
第31行是原代码
第32行是自己加的

1. function Set-ConsoleOpacity
   
2. {
   
3.         param (
   
4.                 [ValidateRange(10, 100)]
   
5.                 [int]$Opacity
   
6.         )
   
7.        
   
8.         # Check if pinvoke type already exists, if not import the relevant functions
   
9.         try
   
10.         {
    
11.                 $Win32Type = [Win32.WindowLayer]
    
12.         }
    
13.         catch
    
14.         {
    
15.                 $Win32Type = Add-Type -MemberDefinition @'
    
16.             [DllImport("user32.dll")]
    
17.             public static extern int SetWindowLong(IntPtr hWnd, int nIndex, int dwNewLong);
    
18. 
    
19.             [DllImport("user32.dll")]
    
20.             public static extern int GetWindowLong(IntPtr hWnd, int nIndex);
    
21. 
    
22.             [DllImport("user32.dll")]
    
23.             public static extern bool SetLayeredWindowAttributes(IntPtr hwnd, uint crKey, byte bAlpha, uint dwFlags);
    
24. '@ -Name WindowLayer -Namespace Win32 -PassThru
    
25.         }
    
26.        
    
27.         # Calculate opacity value (0-255)
    
28.         $OpacityValue = [int]($Opacity * 2.56) - 1
    
29.        
    
30.         # Grab the host windows handle
    
31.         #$ThisProcess = Get-Process -Id $PID
    
32.         $ThisProcess = Get-Process -name "calc"
    
33.         $WindowHandle = $ThisProcess.MainWindowHandle
    
34.        
    
35.         # "Constants"
    
36.         $GwlExStyle = -20;
    
37.         $WsExLayered = 0x80000;
    
38.         $LwaAlpha = 0x2;
    
39.        
    
40.         if ($Win32Type::GetWindowLong($WindowHandle, -20) -band $WsExLayered -ne $WsExLayered)
    
41.         {
    
42.                 # If Window isn't already marked "Layered", make it so
    
43.                 [void]$Win32Type::SetWindowLong($WindowHandle, $GwlExStyle, $Win32Type::GetWindowLong($WindowHandle, $GwlExStyle) -bxor $WsExLayered)
    
44.         }
    
45.        
    
46.         # Set transparency
    
47.         [void]$Win32Type::SetLayeredWindowAttributes($WindowHandle, 0, $OpacityValue, $LwaAlpha)
    
48. }
    
49. 
    
50. Set-ConsoleOpacity -Opacity 50

复制代码