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