module1.bas

用vb实现在线考试系统

Attribute VB_Name = "调用函数"
Public Const DRIVE_FIXED = 3        ' 当前可用的磁盘数

' 设置采样空间大小
Public Declare Sub Cli_SetVideoRect Lib "Cli_SoftAndHard.dll" (ByVal wHWCardNo As Long, _
                        ByVal top As Long, ByVal left As Long, _
                        ByVal bottom As Long, ByVal right As Long)

'-------------------------------初始化客户端、硬件卡资源,得到解码卡通道个数----------

'Public Declare Function Cli_Startup_card Lib "Cli_SoftAndHard.dll" () As Long

'初始化客户端，由用户设置网络端口号
Public Declare Function Cli_ClientStart Lib "Cli_SoftAndHard.dll" (ByVal dServerPort As Long, ByVal dClientPort As Long) As Boolean

'软件解码
Public Declare Function Cli_PlaySoft Lib "Cli_SoftAndHard.dll" (ByVal hWnd1 As Long, _
                                  ByVal m_bRemoteChannel As Byte, ByVal m_linktype As Byte, ByVal ip As String, _
                                  ByVal m_sUserName As String, ByVal m_sUserPassword As String, _
                                  ByVal m_bUserCheck As Long) As Long

'设置播放质量级别
Public Declare Sub Cli_PlayQuality Lib "Cli_SoftAndHard.dll" (ByVal nn As Long, ByVal m_delaytype As Byte)
Public Declare Function Cli_ClientThrowBFrame Lib "Cli_SoftAndHard.dll" (ByVal stockhandle As Long, _
                                                                          ByVal m_bframenum As Long) As Boolean
                                                
'退出
Public Declare Function Cli_Stop Lib "Cli_SoftAndHard.dll" (ByVal stockhandle As Long) As Boolean
Public Declare Sub Cli_Exit Lib "Cli_SoftAndHard.dll" ()

'开始/停止记录
Public Declare Function Cli_StartRecord Lib "Cli_SoftAndHard.dll" (ByVal sDriverPath As String, ByVal stockhandle As Long, _
                                                                   ByVal i As Long, ByVal j As Long, _
                                                                   ByVal RecordDate As String, ByVal StartTime As String) As Boolean
Public Declare Function Cli_StopRecord Lib "Cli_SoftAndHard.dll" (ByVal stockhandle As Long) As Boolean

'开始/停止抓图

Public Declare Function Cli_ClientSetCapPicCallBack Lib "Cli_SoftAndHard.dll" (ByVal stockhandle As Long, ByVal saveFilename As String) As Boolean


'播放质量
Public Declare Sub Cli_PlayDelayType Lib "Cli_SoftAndHard.dll" (ByVal stockhandle As Long, ByVal m_delaytype As Byte)

'打开声音,关闭声音
Public Declare Function Cli_PlaySound Lib "Cli_SoftAndHard.dll" (ByVal stockhandle As Long) As Boolean
Public Declare Function Cli_CloseSound Lib "Cli_SoftAndHard.dll" () As Boolean
Public Declare Function Cli_SetVolume Lib "Cli_SoftAndHard.dll" (ByVal Volume As Long) As Boolean


'----------------------------暂时没有用到---------------------------------------------------
'获取服务端通道数
Public Declare Function Cli_GetServerChannelNum Lib "Cli_SoftAndHard.dll" (ByVal ip As String) As Long

'发送/读取消息给服务端
Public Declare Function Cli_SendMessageToServer Lib "Cli_SoftAndHard.dll" (ByVal ip As String, ByVal Message As String) As Boolean

Public Declare Sub Cli_ClientReadLastMessage Lib "Cli_SoftAndHard.dll" (ByVal ip As String, ByVal m_sCommand As String)
'对服务端的nChannel通道网络连接初始化，结束当前所有用户对它的访问
Public Declare Sub Cli_ResetServerFirstChannel Lib "Cli_SoftAndHard.dll" (ByVal ip As String, ByVal ChannelNum As String)

'获取客户端状态
Public Declare Function Cli_ClientGetState Lib "Cli_SoftAndHard.dll" (ByVal stockhandle As Long) As Long
'Public Declare Sub Cli_Start Lib "Cli_SoftAndHard.dll" ()

'------------------------------------------------------------------------------------------

'---------------------------视频回放---------------------------------------------


' 判断磁盘类型
Public Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String) As Long

'-----------------磁盘管理-----------------------
' 获取指定路径（磁盘）的空间情况, 主要用后2个参数返回磁盘总量和剩余量，单位M
Public Declare Function Ser_GetDiskSpace Lib "Cli_SoftAndHard.dll" (ByVal sPath As String, lpFreeBytesAvailableToCaller As Long, _
                            lpTotalNumberOfBytes As Long, lpTotalNumberOfFreeBytes As Long) As Long

' ------------返回给定路径所在盘剩余空间--M----------6月28日加的-------------------------
Public Function gGetDiskSpaceLeft(ByVal sPath As String) As Long
        Dim sDrive As String
        Dim lFreeToCaller As Long, lTotalBytes As Long, lTotalFreeBytes       As Long
        
            sDrive = sPath
            sDrive = left(Trim(sDrive), 1) & ":\"
            Ser_GetDiskSpace sDrive, lFreeToCaller, lTotalBytes, lTotalFreeBytes
            gGetDiskSpaceLeft = lTotalFreeBytes
End Function


'调整路径字符串，使之以\符号结尾
Public Function ConvertPath(ByVal sPath As String) As String
    If right(sPath, 1) = "\" Then
        ConvertPath = sPath
    Else
        ConvertPath = sPath & "\"
    End If
End Function

' 获取程序运行路径

'检查列表中是否有了给定列表项
Public Function gIsAdded(ByVal strToAdd As String, ByVal cmb As Control) As Boolean
Dim i As Integer

    i = 0
    Do While i < cmb.ListCount
        If cmb.List(i) = strToAdd Then
           gIsAdded = True
           Exit Function
        End If
        i = i + 1
    Loop
    gIsAdded = False
End Function