Работа с реестром - Visual Basic .NET - Ответ 4222454

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim regSave As Microsoft.Win32.RegistryKey
        regSave = Microsoft.Win32.Registry.CurrentUser.CreateSubKey("Software\Profiles\")
        Dim ActiveProfileDWORD As Integer = 0
        Dim l1REG_SZ As String = "Profile_1"
        Dim hKey As Byte() = {&H0, &H0, &H0, &H0, &H0, &H0, &H0, &H0, &H0, &H0, &H0, &H0, &H0, &H0, &H0, &H0, &H0, &H0, &H0, &H0, &H0, &H0, &H0, &H0, &H0, &H0, &H0, &H0, &H0, &H0, &H0, &H0}
        regSave.SetValue("0", l1REG_SZ)
        regSave.SetValue("ActiveProfile", ActiveProfileDWORD)
        regSave.SetValue("LeaveUnassociatedDelays", hKey, Microsoft.Win32.RegistryValueKind.Binary)
        regSave.Close()
        '
        Dim regSave3 As Microsoft.Win32.RegistryKey
        regSave3 = Microsoft.Win32.Registry.LocalMachine.CreateSubKey("\Comm\ConnMgr\Providers\{f792e23c-dc19-4668-9be4-f8688b4c18d6}\TIWLN1\")
        Dim AdapterREG_SZ As String = "TIWLN1"
        Dim ConnectionGUIDREG_SZ As String = "{578B3C31-287A-FAF2-344E-76F4FFEF1C4F}"
        Dim SecureDWORD As Decimal = 4294967295
        regSave3.SetValue("Adapter", AdapterREG_SZ)
        regSave3.SetValue("ConnectionGUID", ConnectionGUIDREG_SZ)
        regSave3.SetValue("Secure", SecureDWORD)
        ' итд
        regSave3.Close()
        
        
        MsgBox("Настроики применены")
 
    End Sub