module_api.bas

这是一个用来查询历史数据的小程序

Attribute VB_Name = "Module_API"
'读写系统配置文件
Public Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long

Public Declare Function GetPrivateProfileInt Lib "kernel32" Alias "GetPrivateProfileIntA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal nDefault As Long, ByVal lpFileName As String) As Long

Public Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long

'图形块移动
Global Const SRCCOPY = &HCC0020 ' (DWORD) dest = source
Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal XSrc As Long, ByVal YSrc As Long, ByVal dwRop As Long) As Long

'获取系统用户及计算机名称
Public Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Public Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long
'窗体操作
Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Public Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Public Declare Function EnableWindow Lib "user32" (ByVal hwnd As Long, ByVal fEnable As Long) As Long
Public Const SW_MAXIMIZE = 3 '最大化指定窗体
'   需要调用API函数″SystemParametersInfo″拦截″ctrl alt + del″, ″ctrl + esc″, ″alt + tab″三组热键。将以下代码加入你的一般模块:
'WINDOWS键也可拦截
Public Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" _
        (ByVal uAction As Long, ByVal uParam As Long, ByRef lpvParam As Any, ByValfuWinIni As Long) As Long
   Public Const SPL_SCREENSAVERRUNNING = 97
   Public Const SW_HIDE = 0
   Public Const SW_RESTORE = 9
   
Public Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long
'定义ExitWindowsEx函数所使用到的常数参数
Public Const EWX_LOGOFF = 0
Public Const EWX_SHUTDOWN = 1
Public Const EWX_REBOOT = 2
Public Const EWX_FORCE = 4
Public Const EWX_POWEROFF = 8
'设置用于控制程序完成退出登录、中断所有进程、重新启动功能的参数
Public Const EWX_RESET1 = EWX_LOGOFF + EWX_FORCE + EWX_REBOOT
'设置用于控制程序完成退出登录、中断所有进程、退出Windows系统并物理关闭计算机功能的参数
Public Const EWX_RESET2 = EWX_LOGOFF + EWX_FORCE + EWX_SHUTDOWN + EWX_POWEROFF
Public Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long

Public Declare Function GetExitCodeProcess Lib "kernel32" (ByVal hProcess As Long, lpExitCode As Long) As Long

Public Declare Function TerminateProcess Lib "kernel32" (ByVal hProcess As Long, ByVal uExitCode As Long) As Long

Const HWND_BROADCAST = &HFFFF&
Const WM_WININICHANGE = &H1A

Public Declare Function GetProfileString Lib "kernel32" Alias _
        "GetProfileStringA" (ByVal lpAppName As String, ByVal lpKeyName As _
        String, ByVal lpDefault As String, ByVal lpReturnedString As String, _
        ByVal nSize As Long) As Long

Public Declare Function WriteProfileString Lib "kernel32" Alias _
        "WriteProfileStringA" (ByVal lpszSection As String, ByVal lpszKeyName _
        As String, ByVal lpszString As String) As Long

Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
       (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, _
       lParam As Any) As Long
Public Declare Function GetForegroundWindow Lib "user32" () As Long
'运行外部应用程序
Declare Function WinExec Lib "kernel32" (ByVal lpCmdLine As String, ByVal nCmdShow As Long) As Long
Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long