[VB.NET] Glass Console 03-30-2014, 09:48 AM
#1
Here is a source of Glass Console written in VB.NET ![Smile Smile](https://sinister.ly/images/smilies/set/smile.png)
Enjoy
![Smile Smile](https://sinister.ly/images/smilies/set/smile.png)
Code:
Module Module1
Private Declare Sub DwmEnableBlurBehindWindow Lib "dwmapi.dll" ( _
ByVal hwnd As IntPtr, _
ByRef blurBehind As DWM_BLURBEHIND)
Private Declare Function GetConsoleWindow Lib "Kernel32.dll" () As IntPtr
Private Structure DWM_BLURBEHIND
Public dwFlags As DwmBlurBehindDwFlags
Public fEnable As Boolean
Public hRgnBlur As IntPtr
Public fTransitionOnMaximized As Boolean
End Structure
Private Enum DwmBlurBehindDwFlags
DWM_BB_ENABLE = &H1
DWM_BB_BLURREGION = &H2
DWM_BB_TRANSITIONONMAXIMIZED = &H4
End Enum
Sub Main()
Console.Title = "Glass Console"
DwmEnableBlurBehindWindow(GetConsoleWindow, New DWM_BLURBEHIND With {.dwFlags = DwmBlurBehindDwFlags.DWM_BB_ENABLE, .fEnable = True})
Console.Write("Glass console")
Console.Read()
End Sub
End Module