module2.bas

很好的教程原代码！

Attribute VB_Name = "Module2"
Option Explicit

Public Const GWL_WNDPROC = (-4)
Public Const WM_USER = &H400

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
Declare Function GetWindowLong Lib "user32" Alias _
    "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex _
    As Long) As Long
Declare Function SetWindowLong Lib "user32" Alias _
    "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex _
    As Long, ByVal dwNewLong As Long) As Long
Declare Function GetCurrentThread Lib "kernel32" () As Long
Declare Function SetThreadPriority Lib "kernel32" _
    (ByVal hThread As Long, ByVal nPriority As Long) As Long
Declare Function GetThreadPriority Lib "kernel32" _
    (ByVal hThread As Long) As Long

Public prevWndProc As Long

Function WndProc(ByVal hwnd As Long, ByVal Msg As Long, ByVal wParam As Long, _
        ByVal lParam As Long) As Long
    Dim Priority As Long
    ' 第一个消息
    If Msg = WM_USER + 1001 Then
        Priority = GetThreadPriority(GetCurrentThread)
        SetThreadPriority GetCurrentThread, 31
        ' 获取剪贴板内容
        frmRec.Text1.Text = Clipboard.GetText
        SetThreadPriority GetCurrentThread, Priority
        
    ElseIf Msg = WM_USER + 1002 Then
        Priority = GetThreadPriority(GetCurrentThread)
        SetThreadPriority GetCurrentThread, 31
        frmRec.Text2.Text = Clipboard.GetText
        SetThreadPriority GetCurrentThread, Priority
    Else
        WndProc = CallWindowProc(prevWndProc, hwnd, Msg, wParam, lParam)
    End If
End Function