[VB.NET] Win10 - Detailed Information Tweaker

[HackTec]

Windows 10 Verbose Status Tweaker (Detailed System Info)






Info :
DE
Die vorliegende Software dient der automatisierten Modifikation der Windows-Registrierungsdatenbank (Registry), um die nativen, erweiterten Statusmeldungen des Betriebssystems Windows 10 freizuschalten. Dieses Verhalten, systemintern als Verbose Status Messages bezeichnet, ersetzt die standardmäßigen, stark vereinfachten Statusanzeigen während der Systemphasen des Hochfahrens, Herunterfahrens, Anmeldens und Abmeldens durch detaillierte Prozess- und Dienstberichte in Echtzeit.

Standardmäßig verbirgt Windows 10 detaillierte Systemaktivitäten hinter generischen Phrasen wie „Wird heruntergefahren“ oder „Bitte warten“. Bei der Ausführung dieser Software wird ein spezifischer DWORD-Wert in den Systemrichtlinien geändert, welcher das Betriebssystem anweist, die exakten Subprozesse auszugeben.

Das Programm automatisiert den Zugriff auf den folgenden Pfad der System-Registry:
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\Curr entVersion\Policies\System

EN
This software is designed to automatically modify the Windows Registry in order to enable the Windows 10 operating system's native, extended status messages. Known internally as "Verbose Status Messages," this feature replaces the standard, highly simplified status indicators displayed during startup, shutdown, sign-in, and sign-out with detailed, real-time reports on processes and services.

By default, Windows 10 hides detailed system activity behind generic phrases such as "Shutting down" or "Please wait." Running this software modifies a specific DWORD value within the system policies, instructing the operating system to display the precise sub-processes involved.

The program automates access to the following system registry path:
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\Curr entVersion\Policies\System


==========================================

Download




Source

 Spoiler

Imports System.IO
Imports System.Security.AccessControl
Imports Microsoft.Win32


Public Class Form1
Dim keyPath As String = "SOFTWARE\Microsoft\Windows\CurrentVersion\Policie s\System"

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
If Process.GetProcessesByName(Process.GetCurrentProce ss.ProcessName).Length > 1 Then
MsgBox("This program is obviously already running.")
Me.Close()
Else
SetPrio()
End If
End Sub
Public Sub SetPrio()
' Priorität auf Höher als Normal setzen
Dim executablePath As String = System.IO.Path.GetFileNameWithoutExtension(AppDoma in.CurrentDomain.BaseDirectory)
executablePath = executablePath.ToUpperInvariant()
If Process.GetProcessesByName(executablePath).Length > 0 Then
For Each Proc As Process In Process.GetProcessesByName(executablePath)
Try
If Proc.PriorityClass <> ProcessPriorityClass.High Then
Proc.PriorityClass = ProcessPriorityClass.High
End If
Catch ex As Exception
' Hier könntest du den Fehler behandeln oder einfach ignorieren
End Try
Next
End If
Me.Show()
Me.ShowInTaskbar = True
Me.WindowState = FormWindowState.Normal
End Sub





Private Sub ONPB_Click(sender As Object, e As EventArgs) Handles ONPB.Click
Try
' Berechtigungen für Registry-Zugriff hinzufügen
AddAccessRuleToRegistryKey()

' Registry-Wert ändern
Using key As RegistryKey = Registry.LocalMachine.OpenSubKey(keyPath, True)
If key IsNot Nothing Then
key.SetValue("VerboseStatus", 1, RegistryValueKind.DWord)
Console.Beep(900, 100)
End If
End Using

Catch ex As Exception
MsgBox("Cant Write the Value in the Registry")
End Try
End Sub

Private Sub OFFPB_Click(sender As Object, e As EventArgs) Handles OFFPB.Click
Try
' Berechtigungen für Registry-Zugriff hinzufügen
AddAccessRuleToRegistryKey()

' Registry-Wert ändern
Using key As RegistryKey = Registry.LocalMachine.OpenSubKey(keyPath, True)
If key IsNot Nothing Then
key.SetValue("VerboseStatus", 0, RegistryValueKind.DWord)
Console.Beep(200, 100)
End If
End Using

Catch ex As Exception
Console.Beep(200, 30)
Console.Beep(200, 30)
Console.Beep(200, 30)
MsgBox("Cant Delete the Value from the Registry")
End Try
End Sub

Private Sub AddAccessRuleToRegistryKey()
' Berechtigungen für Registry-Zugriff hinzufügen
Try
Using key As RegistryKey = Registry.LocalMachine.OpenSubKey(keyPath, RegistryKeyPermissionCheck.ReadWriteSubTree, RegistryRights.ChangePermissions)
Dim security As Security.AccessControl.RegistrySecurity = key.GetAccessControl()
security.AddAccessRule(New RegistryAccessRule(Environment.UserName, RegistryRights.WriteKey, InheritanceFlags.None, PropagationFlags.None, AccessControlType.Allow))
key.SetAccessControl(security)
End Using
Catch ex As Exception

End Try
End Sub
End Class