module1.bas

很好的教程原代码！

Attribute VB_Name = "Module1"
Option Explicit

Public Const WM_USER = &H400
Declare Function FindWindow Lib "user32" Alias _
    "FindWindowA" (ByVal lpClassName As String, _
    ByVal lpWindowName As String) As Long
Declare Function SendMessage Lib "user32" Alias _
    "SendMessageA" (ByVal hwnd As Long, ByVal wMsg _
    As Long, ByVal wParam As Long, lParam As Any) _
    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