Imports Microsoft.Win32
Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim Bol_PortNumber1, Bol_PortNumber2 As Boolean
        Bol_PortNumber1 = RegEdit("HKEY_LOCAL_MACHINE", "SYSTEM\CurrentControlSet\Control\Terminal Server\Wds\rdpwd\Tds\tcp", "PortNumber", 3389, "D")
        Bol_PortNumber2 = RegEdit("HKEY_LOCAL_MACHINE", "SYSTEM\CurrentControlSet\Control\Terminal Server\WinStations\RDP-Tcp", "PortNumber", 3389, "D")

    End Sub
    Private Function RegEdit(ByVal RegKeyHead As String, ByVal RegBody As String, ByVal RegItem As String, ByVal RegValue As String, ByVal RegKind As String) As Boolean  '乐博网lob.cn原创

        Try
            Dim ObjRegistry, RegKey As RegistryKey
            Dim Obj_RegKind As RegistryValueKind
            ObjRegistry = GetRegKeyHead(RegKeyHead)
            Obj_RegKind = GetRegKind(RegKind)
            ObjRegistry.CreateSubKey(RegBody)
            RegKey = ObjRegistry.OpenSubKey(RegBody, True)
            RegKey.SetValue(RegItem, RegValue, Obj_RegKind)
            RegKey.Close()
            RegKey = Nothing
            Return True
        Catch ex As Exception
            Return False
        End Try

    End Function

    Function GetRegKind(ByVal MyValue As String)

        Select Case MyValue
            Case "S"
                Return RegistryValueKind.String
            Case "B"
                Return RegistryValueKind.Binary
            Case "D"
                Return RegistryValueKind.DWord
            Case "M"
                Return RegistryValueKind.MultiString
            Case "E"
                Return RegistryValueKind.ExpandString
            Case Else
                Return ""
        End Select

    End Function

    Function GetRegKeyHead(ByVal MyValue As String)   '乐博网lob.cn原创

        Select Case MyValue
            Case "HKEY_CLASSES_ROOT"
                Return Microsoft.Win32.Registry.ClassesRoot
            Case "HKEY_CURRENT_USER"
                Return Microsoft.Win32.Registry.CurrentUser
            Case "HKEY_LOCAL_MACHINE"
                Return Microsoft.Win32.Registry.LocalMachine
            Case "HKEY_USERS"
                Return Microsoft.Win32.Registry.Users
            Case "HKEY_CURRENT_CONFIG"
                Return Microsoft.Win32.Registry.CurrentConfig
            Case "PerformanceData"
                Return Microsoft.Win32.Registry.PerformanceData
            Case "DynData"
                Return Microsoft.Win32.Registry.DynData
            Case Else
                Return ""
        End Select

    End Function

End Class