VB 系统热键实现（模块）
调用方法很简单，在Form中如下书写代码：
Private Sub Form_Load()
SetHotkey 1, "Ctrl,112", "Add" '按 Ctrl+F1 激活指定程序，F1的Ascii码为112
SetHotkey 2, 113, "Add" '按 F2 激活指定程序，F2的Ascii码为113
SetHotkey 3, "Ctrl+Alt,113", "Add" '按 Ctrl+Alt+F2 激活指定程序，F2的Ascii码为113
End Sub
Private Sub Form_Unload(Cancel As Integer)
SetHotkey 1, "", "Del" '退出程序是一定要用上的，不然会导至程序死掉
SetHotkey 2, "", "Del"
SetHotkey 3, "", "Del"
End Sub
在项目中新建一个模块(bas文件)，然后代码如下（此模块中需要我们修改的是Function keyWndproc()，这里的代码实现的是当系统中按了热键后的调用代码）：
Option Explicit
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long, ByVal hwnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Private Declare Function RegisterHotKey Lib "user32" (ByVal hwnd As Long, ByVal id As Long, ByVal fskey_Modifiers As Long, ByVal vk As Long) As Long
Private Declare Function UnregisterHotKey Lib "user32" (ByVal hwnd As Long, ByVal id As Long) As Long
Const WM_HOTKEY = &H312
Const MOD_ALT = &H1
Const MOD_CONTROL = &H2
Const MOD_SHIFT = &H4
Const GWL_WNDPROC = (-4) '窗口函数的地址
Dim key_preWinProc As Long '用来保存窗口信息
Dim key_Modifiers As Long, key_uVirtKey As Long, key_idHotKey As Long
Dim key_IsWinAddress As Boolean '是否取得窗口信息的判断
Function keyWndproc(ByVal hwnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
If Msg = WM_HOTKEY Then
Select Case wParam 'wParam 值就是 key_idHotKey
Case 1 '激活 3 个热键后,3 个热键所对应的操作,大家在其他的程序中，只要修改此处就可以了
相关文档：
“自动点击按钮”小工具VB源码
Option Explicit
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Const WM_LBUTTONDOWN = &H201
Private Const WM_LBUTTONUP = &H202
Pri ......
长久以来，由于不能直接获得VB类成员函数指针，因为无法在VB的类模块中直接使用定时器控件或定时器API，基于俺编写的获得类成员函数指针的函数，俺编写了这个带定时器功能的类，希望给朋友们一些启发。
一、新建一个类，类名称为clsTimer，类代码如下：
Option Explicit
'* ** ......
简单而实用的合并Excel文件的函数，能够将多个XLS文件中指定数量的工作表自动合并到一个XLS文件里。当然，如果只是数据合并，则使用ADO就可以实现，但如果要保留表格格式，则恐怕只能使用俺的方法了。
一、函数代码：
Option Explicit
'* ********************************************************* ......
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Set cn = New ADODB.Connection
cn.Open "Provider=OraOLEDB.Oracle.1;Persist Security Info= ......
题目：一家小型航空公司刚刚购买了一台计算机，以使用新的机票自动预订系统，这家公司要求我们开发这个新系统。我们需要编写一个应用程序，对这家航空公司唯一的一架飞机（容量为10个座位）的每个航班分配座位。这个应用程序应该输入下面这些选项：请输入1选择头等舱和请输入2选择经济舱。如果用户输入1，应用程序应该分配� ......
