Private Const CurVer As String = "Software\Microsoft\Windows\CurrentVersion"
' Eine saubere Datenstruktur für die Registry-Zuweisungen
Private Class RegistryTweak
Public Property CheckBox As CheckBox
Public Property SubKey As String
Public Property ValueName As String
Public Property AdminRequired As Boolean
Public Sub New(cb As CheckBox, subKey As String, valueName As String, Optional adminReq As Boolean = False)
Me.CheckBox = cb
Me.SubKey = subKey
Me.ValueName = valueName
Me.AdminRequired = adminReq
End Sub
End Class
Private Tweaks As New List(Of RegistryTweak)()
Private Sub WAK_Load(sender As Object, e As EventArgs) Handles MyBase.Load
InitializeTweakList()
CheckAdminStatus()
End Sub
' Event-Handler dynamisch für ALLE Checkboxen registrieren
For Each tweak In Tweaks
AddHandler tweak.CheckBox.CheckedChanged, AddressOf CheckBox_CheckedChanged
Next
End Sub
''' <summary>
''' Deaktiviert Checkboxen, wenn Admin-Rechte fehlen.
''' </summary>
Private Sub CheckAdminStatus()
Dim isAdmin As Boolean = IsRunningAsAdministrator()
For Each tweak In Tweaks
If tweak.AdminRequired AndAlso Not isAdmin Then
tweak.CheckBox.Enabled = False
End If
Next
End Sub
''' <summary>
''' Ein einziger zentraler Handler für alle Checkboxen.
''' </summary>
Private Sub CheckBox_CheckedChanged(sender As Object, e As EventArgs)
Dim targetBox As CheckBox = CType(sender, CheckBox)
' Wir reagieren nur, wenn der Haken gesetzt wurde (wie in deinem Originalcode)
If targetBox.Checked Then
ApplyTweaksForBox(targetBox)
End If
End Sub
''' <summary>
''' Schreibt gezielt nur die Registry-Werte der angeklickten Checkbox.
''' </summary>
Private Sub ApplyTweaksForBox(cb As CheckBox)
Try
' Finde alle Registry-Einträge, die mit dieser Checkbox verknüpft sind
Dim matchingTweaks = Tweaks.Where(Function(t) t.CheckBox Is cb)
For Each tweak In matchingTweaks
' RegistryKey erstellen/öffnen und Wert auf 1 setzen
Using key As RegistryKey = Registry.CurrentUser.CreateSubKey(tweak.SubKey, True)
If key IsNot Nothing Then
key.SetValue(tweak.ValueName, 1, RegistryValueKind.DWord)
End If
End Using
Next
MessageBox.Show($"Tweak für {cb.Name} erfolgreich angewendet!", "Erfolg", MessageBoxButtons.OK, MessageBoxIcon.Information)
Catch ex As Exception
MessageBox.Show($"Fehler beim Schreiben der Registry für {cb.Name}: {ex.Message}", "Fehler", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub
Public Shared Function IsRunningAsAdministrator() As Boolean
Return New WindowsPrincipal(WindowsIdentity.GetCurrent()).IsI nRole(WindowsBuiltInRole.Administrator)
End Function
End Class
[Buying] PBO-HIDER | INFISTAR-KILLER | SPYGLASS-KILLER 05/14/2018 - ArmA Trading - 2 Replies Hello everyone, since few days i search and i surfed around the website to find a legit guy who sell arma 3 pbo-hider and other for 50-60euros ; i got scammed by a guy so i just want to know if someone have arma 3 pbo-hider .
If you have it contact me | Discord : GM #5892
| Send Pm to me with proofs , price .
Thanks a lot to all goodbye .
gebt es 1 hit killer- did that have 1 hit killer 09/18/2013 - Metin2 - 2 Replies i like to know if it have same hack for 1 hit killer
i mean with 1 hack i can kill the monster
in metin 2 officiel
and thx
