module1.bas

主要用于学校机房考试,主要包括选择题,问答题,WORD操作题,WINDOWS操作题.学生做完后,可立即得到考试分数.

Attribute VB_Name = "Module1"
Option Explicit
Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
Declare Function ReleaseDC Lib "user32" (ByVal hwnd As Long, ByVal hdc As Long) As Long
Declare Function GetPixel Lib "gdi32" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long) As Long
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
Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long

Type POINTAPI
        X As Long
        Y As Long
End Type
 Declare Function SearchTreeForFile Lib "imagehlp.dll" (ByVal lpRoothPath As String, ByVal lpInputName As String, ByVal lpOutputName As String) As Long
Public Function sysfilefind(ByVal WhichRootPath As String, ByVal WhichFileName As String) As String
Dim iNull As Integer
Dim lResult As Long
Dim sBuffer As String
    On Error GoTo L_FILEFINDERROR
    sBuffer = String$(1024, 0)
    '查找文件
lResult = SearchTreeForFile(WhichRootPath, WhichFileName, sBuffer)
    '如果文件找到，将返回字符串后续的空格删除
    '否则返回一个空字符串
    If lResult Then
        iNull = InStr(sBuffer, vbNullChar)
            If Not iNull Then
'                sBuffer = Left$(sBuffer, iNull - 1)
            End If
        sysfilefind = sBuffer
       
    Else
            sysfilefind = "没找到"
    End If
Exit Function
L_FILEFINDERROR:
  MsgBox "查找文件过程中遇到错误！", vbInformation, "查找文件错误"
sysfilefind = Format(Err.Number) & " - " & Err.Description
End Function