[HomerChimpson]

I did not make the code, i simply added improvements.
Coded by my good friend Anon?M ID :angel:
Let's get started!

== Tutorial ==

1. Create a Console Application, name it whatever you want.

2. Add this code right below the text "Module Module1"

Code:

Private Enum DwmBlurBehindDwFlags ' Fields DWM_BB_BLURREGION = 2 DWM_BB_ENABLE = 1 DWM_BB_TRANSITIONONMAXIMIZED = 4 End Enum <DllImport("Kernel32.dll", CharSet:=CharSet.Ansi, SetLastError:=True, ExactSpelling:=True)> _ Private Function GetConsoleWindow() As IntPtr End Function Private Structure DWM_BLURBEHIND Public dwFlags As DwmBlurBehindDwFlags Public fEnable As Boolean Public hRgnBlur As IntPtr Public fTransitionOnMaximized As Boolean End Structure <StructLayout(LayoutKind.Sequential)> _ Public Structure MARGINS Public cxLeftWidth As Integer Public cxRightWidth As Integer Public cyTopHeight As Integer Public cyButtomheight As Integer End Structure <DllImport("dwmapi.dll", CharSet:=CharSet.Ansi, SetLastError:=True, ExactSpelling:=True)> _ Private Sub DwmEnableBlurBehindWindow(ByVal hwnd As IntPtr, ByRef blurBehind As DWM_BLURBEHIND) End Sub

3. And add this code to the Main Sub :

Code:

Dim blurBehind As New DWM_BLURBEHIND With { _ .dwFlags = DwmBlurBehindDwFlags.DWM_BB_ENABLE, _ .fEnable = True _ } Module1.DwmEnableBlurBehindWindow(Module1.GetConsoleWindow, blurBehind)

4. What's that? errors you say? just add this code on the top :

Code:

Imports System.Runtime.InteropServices

== Finishing ==
Now, your code should look like this :

Add your own codes, Debug, and done! this is the end result :

Give credits to Anon?M ID if you'll use this :3
And leave positive feedback :angel:

[Xiledcore]

This looks pretty neat, thanks for sharing! (Might use)

Thank you, Anon?m ID.

[Eternity]

It's not transparent, you just replaced the background with blur.

Good share though.

[Platinum]

Looks neat, already found something similar to this before though. Nice share!

[Madara-Uchiha]

You can also make the console looking transparent using this method:

PHP Code:

Imports System.Diagnostics Public Class Glass Private Declare Sub DwmEnableBlurBehindWindow Lib "dwmapi.dll" ( _ ByVal hwnd As IntPtr, _ ByRef blurBehind As DWM_BLURBEHIND) Private Enum DwmBlurBehindDwFlags DWM_BB_ENABLE = &H1 DWM_BB_BLURREGION = &H2 DWM_BB_TRANSITIONONMAXIMIZED = &H4 End Enum Private Structure DWM_BLURBEHIND Public dwFlags As DwmBlurBehindDwFlags Public fEnable As Boolean Public hRgnBlur As IntPtr Public fTransitionOnMaximized As Boolean End Structure Shared Sub Main() Dim P As New Process Dim ArgString As String = String.Empty Dim eArgs() As String = Environment.GetCommandLineArgs If eArgs.Length > 1 Then For i As Integer = 1 To eArgs.Length - 1 ArgString &= eArgs(i) & " " Next End If P.StartInfo.FileName = "Cmd.exe" P.StartInfo.Arguments = ArgString P.Start() Threading.Thread.Sleep(350) DwmEnableBlurBehindWindow(P.MainWindowHandle, New DWM_BLURBEHIND With {.dwFlags = DwmBlurBehindDwFlags.DWM_BB_ENABLE, .fEnable = True}) End Sub End Class

Credits: nathan72389 from HF

[Eternity]

You can also make the console looking transparent using this method:

PHP Code:

Imports System.Diagnostics Public Class Glass Private Declare Sub DwmEnableBlurBehindWindow Lib "dwmapi.dll" ( _ ByVal hwnd As IntPtr, _ ByRef blurBehind As DWM_BLURBEHIND) Private Enum DwmBlurBehindDwFlags DWM_BB_ENABLE = &H1 DWM_BB_BLURREGION = &H2 DWM_BB_TRANSITIONONMAXIMIZED = &H4 End Enum Private Structure DWM_BLURBEHIND Public dwFlags As DwmBlurBehindDwFlags Public fEnable As Boolean Public hRgnBlur As IntPtr Public fTransitionOnMaximized As Boolean End Structure Shared Sub Main() Dim P As New Process Dim ArgString As String = String.Empty Dim eArgs() As String = Environment.GetCommandLineArgs If eArgs.Length > 1 Then For i As Integer = 1 To eArgs.Length - 1 ArgString &= eArgs(i) & " " Next End If P.StartInfo.FileName = "Cmd.exe" P.StartInfo.Arguments = ArgString P.Start() Threading.Thread.Sleep(350) DwmEnableBlurBehindWindow(P.MainWindowHandle, New DWM_BLURBEHIND With {.dwFlags = DwmBlurBehindDwFlags.DWM_BB_ENABLE, .fEnable = True}) End Sub End Class

Credits: nathan72389 from HF

Blur isn't Transparent -.-

[0xDEADPIXEL]

You can achieve window transparency using the SetLayeredWindowAttributes function.

[zosoftnet]

Haha! This is great code....Thanks for sharing! I just have a simple question, this will work on XP Environment ? I think it will only work on Vista/7/8 ??

[Eternity]

Haha! This is great code....Thanks for sharing! I just have a simple question, this will work on XP Environment ? I think it will only work on Vista/7/8 ??

Don't think som since it uses the aero framework.