[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.