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程序破解
VB 程序简介
现在不少程序是用 VB 写的，你通过反汇编或跟踪调试时很容易鉴别某个程序是否为 VB 程序，VB 的 EXE 文件并不是真正的编译可执行文件，它们需其动态链接库才能正常运行，各版本的链接库如下：
VB3 链接库为 vbrun300.dll ；
VB4 链接库为 vb40016.dll ； - 16 位，较少见；
VB4 ......
http://zhidao.baidu.com/question/81532606.html
VB 读指定行
悬赏分：10 - 解决时间：2009-1-20 11:41
vb中如何读取指定行的内容，窗体上有两个标签，文件在C:\A.TXT,四个按钮，单击第一个，读文件的第一行到标签一，第二行到标签二；单击第二个按钮，第三行到标签一，第四行到标签二；以此类推，谢谢
提问者： im ......
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 ......
'创建快捷方式，兼容vista
'要把vb6stkit.DLL放到程序目录
'敖士伟 09-10-27
'只对“桌面”和“开启”有效，其它还没做
'=========开启外部同步程序定义开始
Const SYNCHRONIZE = &H100000
Const INFINITE = &HFFFF 'Wait forever
Const WAIT_OBJECT_0 = 0 'The state of the spe ......
帮朋友改的一小段关键词分析代码； 含两个单词复合计数
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 ......
