13518219792
VB.NET 参考代码：
创新互联公司-专业网站定制、快速模板网站建设、高性价比梨树网站开发、企业建站全套包干低至880元,成熟完善的模板库,直接使用。一站式梨树网站制作公司更省心,省钱,快速模板网站建设找我们，业务覆盖梨树地区。费用合理售后完善，十多年实体公司更值得信赖。
Imports Microsoft.Win32
Public Class Form1
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim regKey As RegistryKey = Registry.LocalMachine.OpenSubKey("SYSTEM\CurrentControlSet\Control\Windows", False)
For Each strSubKeyName In regKey.GetValueNames()
If regKey.GetValueKind(strSubKeyName) = RegistryValueKind.String Then
MessageBox.Show(regKey.GetValue(strSubKeyName))
' regKey.SetValue(strSubKeyName, "修改后的值")
End If
Next
End Sub
End Class
将窗体KeyPreview属性设置为True并对Form_KeyDown事件编程，可以获取键盘箭头键的键值。实现方法如下：
Option Explicit
Private Sub Form_Load()
'允许窗体拦截键盘按键
Me.KeyPreview = True
End Sub
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
' KeyCode 键盘码是键盘上每个按键的唯一编码
' 在VB中，符号常数表示键盘码，例如 vbKeyF1 表示F1键,
' vbKeyHome 表示HOME键……
Select Case KeyCode
Case vbKeyLeft: Print "左箭头键值：" + CStr(KeyCode)
Case vbKeyRight: Print "右箭头键值：" + CStr(KeyCode)
Case vbKeyUp: Print "上箭头键值：" + CStr(KeyCode)
Case vbKeyDown: Print "下箭头键值：" + CStr(KeyCode)
End Select
End Sub
Private Sub Form1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Me.KeyPress
If Asc(0) Then
textbox1.text="0"
end if
end sub
从一个VB编写的注册表程序中整理出来的，功能是获取注册表指定键值，内含注释，模块可用于注册表的操作中：
01
Function GetRegistryValue(ByVal hKey As RootKeyEnum, ByVal KeyName As String, _
02
ByVal ValueName As String, Optional DefaultValue As Variant) As Variant
03
Dim handle As Long
04
Dim resLong As Long
05
Dim resString As String
06
Dim resBinary() As Byte
07
Dim length As Long
08
Dim retVal As Long
09
Dim valueType As Long
10
Const KEY_READ = H20019
11
'// 默认结果
12
GetRegistryValue = IIf(IsMissing(DefaultValue), Empty, DefaultValue)
13
'// 打开键, 不存在则退出
14
If RegOpenKeyEx(hKey, KeyName, 0, KEY_READ, handle) Then Exit Function
15
'// 准备 1K resBinary 用于接收
16
length = 1024
17
ReDim resBinary(0 To length - 1) As Byte
18
'// 读注册表值
19
retVal = RegQueryValueEx(handle, ValueName, 0, valueType, resBinary(0), length)
20
'// 若resBinary 太小则重读
21
If retVal = ERROR_MORE_DATA Then
22
'// resBinary放大,且重新读取
23
ReDim resBinary(0 To length - 1) As Byte
24
retVal = RegQueryValueEx(handle, ValueName, 0, valueType, resBinary(0), _
25
length)
26
End If
27
'// 返回相应值类型
28
Select Case valueType
29
Case REG_DWORD, REG_DWORD_LITTLE_ENDIAN
30
'// REG_DWORD 和 REG_DWORD_LITTLE_ENDIAN 相同
31
CopyMemory resLong, resBinary(0), 4
32
GetRegistryValue = resLong
33
Case REG_DWORD_BIG_ENDIAN
34
'// Big Endian's 用在非-Windows环境, 如Unix系统, 本地计算机远程访问
35
CopyMemory resLong, resBinary(0), 4
36
GetRegistryValue = SwapEndian(resLong)
37
Case REG_SZ, REG_EXPAND_SZ
38
resString = Space$(length - 1)
39
CopyMemory ByVal resString, resBinary(0), length - 1
40
If valueType = REG_EXPAND_SZ Then
41
'// 查询对应的环境变量
42
GetRegistryValue = ExpandEnvStr(resString)
43
Else
44
GetRegistryValue = resString
45
End If
46
Case REG_MULTI_SZ
47
'// 复制时需指定2个空格符
48
resString = Space$(length - 2)
49
CopyMemory ByVal resString, resBinary(0), length - 2
50
GetRegistryValue = resString
51
Case Else ' 包含 REG_BINARY
52
'// resBinary 调整
53
If length UBound(resBinary) + 1 Then
54
ReDim Preserve resBinary(0 To length - 1) As Byte
55
End If
56
GetRegistryValue = resBinary()
57
End Select
58
'// 关闭注册表
