Win10 - Detailed Information Tweaker

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