vb快速访问注册表的方法
VERSION 5.00
Begin VB.Form frmMain
BorderStyle = 1 'Fixed Single
Caption = "Reg Demo"
ClientHeight = 6570
ClientLeft = 45
ClientTop = 435
ClientWidth = 7695
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 6570
ScaleWidth = 7695
StartUpPosition = 2 'CenterScreen
Begin VB.TextBox txtData
Height = 270
Left = 1200
TabIndex = 6
Text = "ExCFormParser"
Top = 5400
Width = 6375
End
Begin VB.TextBox txtRegKey
Height = 270
Left = 1200
TabIndex = 4
Text = "\Registry\Machine"
Top = 5040
Width = 6375
End
Begin VB.CommandButton cmdEnd
Caption = "End"
Enabled = 0 'False
Height = 495
Left = 2760
TabIndex = 2
Top = 5760
Width = 1455
End
Begin VB.CommandButton cmdStart
Caption = "Start"
Height = 495
Left = 1200
TabIndex = 1
Top = 5760
Width = 1455
End
Begin VB.ListBox lstMsg
Height = 4545
Left = 120
TabIndex = 0
Top = 360
Width = 7455
End
Begin VB.Label lblMsg
AutoSize = -1 'True
Caption = "String:"
Height = 195
Index = 2
Left = 120
TabIndex = 7
Top = 5445
Width = 450
End
Begin VB.Label lblMsg
AutoSize = -1 'True
Caption = "Reg Path:"
相关文档：
VB文本加密 特别设计到中文加密 让很多人费尽周折,经常会碰到解密中文出现乱码的情况
下面这篇文章将对此做了说明
代码也在文章里面包括
计算机世界2000年第36期
实现中文文本的加密方法
武汉交通科技大学计算机科学与工程系 吴业福
本文介绍了在VB6中实现中、英文文本加� ......
http://hi.baidu.com/qwestw/blog/item/a8b41663eb7fca690d33fa46.html
能记录到中文，缺点是不能记录到Ctrl，shift，alt，capslock，home，del，pageUP，pageDown等件的按下状态。
vb6代码如下：
Private Sub Form_Load()
WM_HXWDLLWX_HOOKKEY = RegisterWindowMessage("WM_HXWDLLWX_HOOKKEY")
PrevWndProc = SetWind ......
一。数据类型
Byte 1
字节 无符号
Interger 2
字节
Long 4
字节
Float 4
字节
Double 8
字节
String
Date
Boolean
Currency
Variant
2.
变长字符串和定长字符
系统默认初始值为空字符串;
变长字符串：di ......
Function crypt(Action As String, Key As String, Src As String) As String
'Action
' E encrypts, D decrypts,
'Key is a unique string needed to en/decrypt (either
' hardcode or setup something for the user to enter.
'Src is the string to be en/decrypted.
On Error GoTo errHandl ......
帮朋友改的一小段关键词分析代码； 含两个单词复合计数
Private Function CollectWords() As Dictionary(Of String, Integer)
'Create a new dictionary
Dim table As New Dictionary(Of String, Integer)
'Prompt for the user
Console.WriteLine(
"Enter a line : ")
'Get the user's input
Dim input As St ......
