Windows10Debloater/W10DebloaterGUI.ps1

<# This form was created using POSHGUI.com  a free online gui designer for PowerShell
.NAME
    Untitled
#>

#This will self elevate the script so with a UAC prompt since this script needs to be run as an Administrator in order to function properly.

<#$ErrorActionPreference = 'SilentlyContinue'

$Button = [System.Windows.MessageBoxButton]::YesNoCancel
$ErrorIco = [System.Windows.MessageBoxImage]::Error
$Ask = 'Do you want to run this as an Administrator?

        Select "Yes" to Run as an Administrator

        Select "No" to not run this as an Administrator
        
        Select "Cancel" to stop the script.'

If (!([Security.Principal.WindowsPrincipal][Security.Principal.WindowsIdentity]::GetCurrent()).IsInRole([Security.Principal.WindowsBuiltInRole]'Administrator')) {
    $Prompt = [System.Windows.MessageBox]::Show($Ask, "Run as an Administrator or not?", $Button, $ErrorIco) 
    Switch ($Prompt) {
        #This will debloat Windows 10
        Yes {
            Write-Host "You didn't run this script as an Administrator. This script will self elevate to run as an Administrator and continue."
            Start-Process PowerShell.exe -ArgumentList ("-NoProfile -ExecutionPolicy Bypass -File `"{0}`"" -f $PSCommandPath) -Verb RunAs
            Exit
        }
        No {
            Break
        }
    }
}#>

$DebloatFolder = "C:\Temp\Windows10Debloater"
If (Test-Path $DebloatFolder) {
    Write-Host "${DebloatFolder} exists." 

    Remove-Item -name 
}
Else {
    Write-Host "The folder ${DebloatFolder} doesn't exist. This folder will be used for storing logs created after the script runs. Creating now."
    Start-Sleep 1
    New-Item -Path "${DebloatFolder}" -ItemType Directory
    Write-Host "The folder ${DebloatFolder} was successfully created."
}

Start-Transcript -OutputDirectory "${DebloatFolder}"

Add-Type -AssemblyName System.Windows.Forms
[System.Windows.Forms.Application]::EnableVisualStyles()

$Form = New-Object system.Windows.Forms.Form
$Form.ClientSize = '875,616'
$Form.text = "Windows 10 Debloater"
$Form.TopMost = $false

$ListBox1 = New-Object system.Windows.Forms.ListBox
$ListBox1.text = "listBox"
$ListBox1.width = 300
$ListBox1.height = 494
$ListBox1.location = New-Object System.Drawing.Point(3, 116)
$ListBox1.SelectionMode = 'MultiExtended'


$TextBox1 = New-Object system.Windows.Forms.RichTextBox
$TextBox1.multiline = $True
$TextBox1.width = 535
$TextBox1.height = 400
$TextBox1.location = New-Object System.Drawing.Point(325, 200)
$TextBox1.Font = 'Microsoft Sans Serif,10'


$Button1 = New-Object system.Windows.Forms.Button
$Button1.text = "Uninstall"
$Button1.width = 80
$Button1.height = 30
$Button1.location = New-Object System.Drawing.Point(5, 80)
$Button1.Font = 'Microsoft Sans Serif,10'

$Button2 = New-Object system.Windows.Forms.Button
$Button2.text = "Apply Checkbox Changes"
$Button2.width = 175
$Button2.height = 30
$Button2.location = New-Object System.Drawing.Point(685, 165)
$Button2.Font = 'Microsoft Sans Serif,10'

$Label1                          = New-Object system.Windows.Forms.Label
$Label1.text                     = "-----------------------------------------------------------------------------------------------------------------"
$Label1.AutoSize                 = $true
$Label1.width                    = 50
$Label1.height                   = 10
$Label1.location                 = New-Object System.Drawing.Point(305,108)
$Label1.Font                     = New-Object System.Drawing.Font('Microsoft Sans Serif',10)

$CheckBox1                       = New-Object system.Windows.Forms.CheckBox
$CheckBox1.text                  = "Enable Cortana"
$CheckBox1.AutoSize              = $false
$CheckBox1.width                 = 125
$CheckBox1.height                = 20
$CheckBox1.location              = New-Object System.Drawing.Point(325,175)
$CheckBox1.Font                  = New-Object System.Drawing.Font('Microsoft Sans Serif',10)

$CheckBox2                       = New-Object system.Windows.Forms.CheckBox
$CheckBox2.text                  = "Disable Cortana"
$CheckBox2.AutoSize              = $false
$CheckBox2.width                 = 125
$CheckBox2.height                = 20
$CheckBox2.location              = New-Object System.Drawing.Point(325,150)
$CheckBox2.Font                  = New-Object System.Drawing.Font('Microsoft Sans Serif',10)

$CheckBox3                       = New-Object system.Windows.Forms.CheckBox
$CheckBox3.text                  = "Uninstall OneDrive"
$CheckBox3.AutoSize              = $false
$CheckBox3.width                 = 140
$CheckBox3.height                = 20
$CheckBox3.location              = New-Object System.Drawing.Point(475,150)
$CheckBox3.Font                  = New-Object System.Drawing.Font('Microsoft Sans Serif',10)

$CheckBox4                       = New-Object system.Windows.Forms.CheckBox
$CheckBox4.text                  = "Unpin Tiles From Start Menu"
$CheckBox4.AutoSize              = $false
$CheckBox4.width                 = 200
$CheckBox4.height                = 20
$CheckBox4.location              = New-Object System.Drawing.Point(475,175)
$CheckBox4.Font                  = New-Object System.Drawing.Font('Microsoft Sans Serif',10)


$Form.controls.AddRange(@($ListBox1, $Button1, $Button2, $TextBox1, $CustomizeBlacklists, $CustomizeForm, $SaveList, $CustomizeBlacklists, $Checkbox1, $Checkbox2, $CheckBox3, $CheckBox4, $Label1))

$global:Bloatware = @(
    "Microsoft.PPIProjection"
    "Microsoft.BingNews"
    "Microsoft.GetHelp"
    "Microsoft.Getstarted"
    "Microsoft.Messaging"
    "Microsoft.Microsoft3DViewer"
    "Microsoft.MicrosoftOfficeHub"
    "Microsoft.MicrosoftSolitaireCollection"
    "Microsoft.NetworkSpeedTest"
    "Microsoft.News"                                    # Issue 77
    "Microsoft.Office.Lens"                             # Issue 77
    "Microsoft.Office.OneNote"
    "Microsoft.Office.Sway"
    "Microsoft.OneConnect"
    "Microsoft.People"
    "Microsoft.Print3D"
    "Microsoft.RemoteDesktop"                           # Issue 120
    "Microsoft.SkypeApp"
    "Microsoft.StorePurchaseApp"
    "Microsoft.Office.Todo.List"                        # Issue 77
    "Microsoft.Whiteboard"                              # Issue 77
    "Microsoft.WindowsAlarms"
    "microsoft.windowscommunicationsapps"
    "Microsoft.WindowsFeedbackHub"
    "Microsoft.WindowsMaps"
    "Microsoft.WindowsSoundRecorder"
    "Microsoft.Xbox.TCUI"
    "Microsoft.XboxApp"
    "Microsoft.XboxGameOverlay"
    "Microsoft.XboxGamingOverlay"
    "Microsoft.XboxIdentityProvider"
    "Microsoft.XboxSpeechToTextOverlay"
    "Microsoft.ZuneMusic"
    "Microsoft.ZuneVideo"

    #Sponsored Windows 10 AppX Apps
    #Add sponsored/featured apps to remove in the "*AppName*" format
    "EclipseManager"
    "ActiproSoftwareLLC"
    "AdobeSystemsIncorporated.AdobePhotoshopExpress"
    "Duolingo-LearnLanguagesforFree"
    "PandoraMediaInc"
    "CandyCrush"
    "BubbleWitch3Saga"
    "Wunderlist"
    "Flipboard"
    "Twitter"
    "Facebook"
    "Spotify"                                           # Issue 123
    "Minecraft"
    "Royal Revolt"
    "Sway"                                              # Issue 77
    "Dolby"                                             # Issue 78

    #Optional: Typically not removed but you can if you need to for some reason
    #"Microsoft.Advertising.Xaml_10.1712.5.0_x64__8wekyb3d8bbwe"
    #"Microsoft.Advertising.Xaml_10.1712.5.0_x86__8wekyb3d8bbwe"
    #"Microsoft.BingWeather"
)

#$Windows10AppsFolder = Get-Item -path "C:\Program Files\WindowsApps\*"
foreach ($Bloat in $Bloatware) {
    
    #$Apps = $App.Trim("C:\Program Files\WindowsApps\")
    $ListBox1.Items.Add($Bloat)
    $ListBox1.Sorted = $True
    
}

$SelectedBloatware = $ListBox1.SelectedItems
$Button1.Add_Click( {
        

        ForEach ($Selected in $SelectedBloatware) {
            $TextBox1.AppendText("Trying to remove $Selected...
")

            Try {
                If (Test-Path "C:\Program Files\WindowsApps\*$Selected*") {
                    Get-AppxPackage | Where-Object { ($_.Name -match $Selected) } | Remove-AppxPackage
                    Get-AppxProvisionedPackage -Online | Where-Object { ($_.Name -match $Selected) } | Remove-AppxProvisionedPackage -Online
                    Get-AppxPackage -AllUsers | Where-Object { ($_.Name -match $Selected) } | Remove-AppxPackage

                    $TextBox1.AppendText("Successfully removed $Selected!
                    
")
}
                Else {
    
                    If (!(Test-Path "C:\Program Files\WindowsApps\*$Selected*")) {
                        $TextBox1.AppendText("$Selected doesn't exist on this machine! 

")
                    }
          
                }

            }

            Catch {
                $TextBox1.AppendText("$_")
    
            }
        }
    
} )

<#$CheckBox1.Add_CheckedChanged( {

    #Enables Cortana to be used as part of your Windows Search Function
        $Textbox1.AppendText("Re-enabling Cortana to be used in your Windows Search")
        $Search = "HKLM:\SOFTWARE\Policies\Microsoft\Windows\Windows Search"
        If (Test-Path $Search) {
            Set-ItemProperty $Search  AllowCortana -Value 1 
        }

} ) #>

$Button2.Add_Click( { 

    If ($CheckBox1.Checked) {
    
       $Textbox1.AppendText("Re-enabling Cortana to be used in your Windows Search")
        $Search = "HKLM:\SOFTWARE\Policies\Microsoft\Windows\Windows Search"
        If (Test-Path $Search) {
            Set-ItemProperty $Search  AllowCortana -Value 1 
        } 
    
    }

} )

[void]$Form.ShowDialog()