form1.vb

开通或关闭ppc手机数据线充电功能的源代码

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim key As Microsoft.Win32.RegistryKey, subkey As Microsoft.Win32.RegistryKey
        key = Microsoft.Win32.Registry.LocalMachine  '如上
        subkey = key.OpenSubKey("Drivers\BuiltIn\usbfndrv", True) 'subkey即为HKEY_USERS\software\vb.net键

        subkey.SetValue("EnableUsbCharging", 1) 'value为HKEY_USERS\software\vb.net键中的GOOD?的值

        MsgBox("已设置为USB数据线连接时充电,重启系统生效")
        Me.Close()
    End Sub

    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Dim key As Microsoft.Win32.RegistryKey, subkey As Microsoft.Win32.RegistryKey
        Dim value As Object
        'key = Microsoft.Win32.Registry.LocalMachine  'key为HKEY_USERS根键
        'subkey = key.CreateSubKey("Software\vb.net")  '在HKEY_USERS\software下创建一个vb.net子键
        'subkey.SetValue("EnableUsbCharging", "of course") '在HKEY_USERS\software\vb.net下设置一个键值，键值名为good?,值为of course了
        ''上面是在注册表里创建键了, 下面我们用程序来访问我们刚创建的注册表的键吧
        key = Microsoft.Win32.Registry.LocalMachine  '如上
        'subkey = key.OpenSubKey("Software\vb.net", True) 'subkey即为HKEY_USERS\software\vb.net键
        'Dim value As Object = subkey.GetValue("EnableUsbCharging") 'value为HKEY_USERS\software\vb.net键中的GOOD?的值
        'MsgBox(value.ToString()) '将出现of course了

        subkey = key.OpenSubKey("Drivers\BuiltIn\usbfndrv", True) 'subkey即为HKEY_USERS\software\vb.net键
        value = subkey.GetValue("EnableUsbCharging") 'value为HKEY_USERS\software\vb.net键中的GOOD?的值
        If value.ToString = "0" Then
            MsgBox("当前状态:USB数据线连接不充电") '将出现of course了
        ElseIf value.ToString = "1" Then
            MsgBox("当前状态:USB数据线连接充电") '将出现of course了
        End If



        '上面是获取注册表键值了，要设值，还是用subkey.setvalue了


    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim key As Microsoft.Win32.RegistryKey, subkey As Microsoft.Win32.RegistryKey
        key = Microsoft.Win32.Registry.LocalMachine  '如上
        subkey = key.OpenSubKey("Drivers\BuiltIn\usbfndrv", True) 'subkey即为HKEY_USERS\software\vb.net键

        subkey.SetValue("EnableUsbCharging", 0) 'value为HKEY_USERS\software\vb.net键中的GOOD?的值

        MsgBox("已取消USB数据线连接时充电,重启系统生效")
        Me.Close()
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Me.Close()
    End Sub
End Class