frmdemo.frm

U盘加密工具库和粒子

'**描    述：USBPass组件的Demo
'**版    本：V1.0.0
'*************************************************************************
Option Explicit

Private USBPassW As New uPassWrite

Private USBPassR As New uPassRead

'*************************************************************************
'**函 数 名：CmdAbout_Click
'**输    入：无
'**输    出：无
'**全局变量：
'**调用模块：
'**作    者：
'**日    期：
'**功能描述：
'**版    本：V1.0.0
'*************************************************************************
Private Sub CmdAbout_Click()
    USBPassW.PassAbout
End Sub

Private Sub CmdChangePassWDA_Click()
    Dim strOldPassWD As String, strNewPassWD As String
    frmDialog.Caption = "请输入原来的高级密码"
    frmDialog.Show 1
    strOldPassWD = frmDialog.TBack_PassWD
    If strOldPassWD = "" Then
        Unload frmDialog
        Exit Sub
    End If
    frmDialog.Caption = "请输入新的高级密码"
    frmDialog.Show 1
    strNewPassWD = frmDialog.TBack_PassWD
    If strNewPassWD = "" Then
        Unload frmDialog
        Exit Sub
    End If
    Unload frmDialog
    Call USBPassW.ChangePassWD(strOldPassWD, strNewPassWD, strOldPassWD, 1)
    MsgBox USBPassW.TBack_MsgStr, vbInformation, "信息"
End Sub

Private Sub CmdChangePassWDU_Click()
    Dim strOldPassWD As String, strNewPassWD As String, strAdpwd As String
    frmDialog.Caption = "请输入原来的用户密码"
    frmDialog.Show 1
    strOldPassWD = frmDialog.TBack_PassWD
    If strOldPassWD = "" Then
        Unload frmDialog
        Exit Sub
    End If
    frmDialog.Caption = "请输入新的用户密码"
    frmDialog.Show 1
    strNewPassWD = frmDialog.TBack_PassWD
    If strNewPassWD = "" Then
        Unload frmDialog
        Exit Sub
    End If
    Unload frmDialog
    frmDialog.Caption = "请输入高级密码"
    frmDialog.Show 1
    strAdpwd = frmDialog.TBack_PassWD
    If strAdpwd = "" Then
        Unload frmDialog
        Exit Sub
    End If
    Unload frmDialog
    Call USBPassW.ChangePassWD(strOldPassWD, strNewPassWD, strAdpwd, 0)
    MsgBox USBPassW.TBack_MsgStr, vbInformation, "信息"
End Sub

'*************************************************************************
'**函 数 名：CmdClear_Click
'**输    入：无
'**输    出：无
'**全局变量：
'**调用模块：
'**作    者：
'**日    期：
'**功能描述：清除窗口数据
'**版    本：V1.0.0
'*************************************************************************
Private Sub CmdClear_Click()
    Dim intI As Integer

    For intI = 0 To 13
        LabInfo(intI).Caption = "*"
    Next
    Me.Refresh
End Sub

Private Sub CmdClearUSB_Click()
    Dim strR_PassWD As String

    frmDialog.Caption = "请输入高级密码"
    frmDialog.Show 1
    strR_PassWD = frmDialog.TBack_PassWD
    Unload frmDialog
    USBPassW.PassClear (strR_PassWD)
    MsgBox USBPassW.TBack_MsgStr, vbInformation, "信息"
End Sub

Private Sub CmdExit_Click()

    Unload Me
End Sub

'*************************************************************************
'**函 数 名：CmdReadA_Click
'**输    入：无
'**输    出：无
'**全局变量：
'**调用模块：
'**作    者：
'**日    期：
'**功能描述：带密码读授权
'**版    本：V1.0.0
'*************************************************************************
Private Sub CmdReadA_Click()
    Dim strR_PassWD As String

    frmDialog.Caption = "请输入高级密码"
    frmDialog.Show 1
    strR_PassWD = frmDialog.TBack_PassWD
    Unload frmDialog
    If Trim(strR_PassWD) = "" Then
        Exit Sub
    End If
    CmdClear_Click
    If USBPassR.PassRead(strR_PassWD, 1) Then
        Call ShowInfoR
    End If
    MsgBox USBPassR.TBack_MsgStr, vbInformation, "信息"
End Sub

'*************************************************************************
'**函 数 名：CmdReadB_Click
'**输    入：无
'**输    出：无
'**全局变量：
'**调用模块：
'**作    者：
'**日    期：
'**功能描述：不带密码读授权
'**版    本：V1.0.0
'*************************************************************************
Private Sub CmdReadB_Click()
    Dim strR_PassWD As String

    frmDialog.Caption = "请输入用户密码"
    frmDialog.Show 1
    strR_PassWD = frmDialog.TBack_PassWD
    Unload frmDialog
    If Trim(strR_PassWD) = "" Then
        Exit Sub
    End If
    CmdClear_Click
    If USBPassR.PassRead(strR_PassWD, 0) Then
        Call ShowInfoR
    End If
    MsgBox USBPassR.TBack_MsgStr, vbInformation, "信息"
End Sub

'*************************************************************************
'**函 数 名：CmdWrite_Click
'**输    入：无
'**输    出：无
'**全局变量：
'**调用模块：
'**作    者：
'**日    期：
'**功能描述：写授权
'**版    本：V1.0.0
'*************************************************************************
Private Sub CmdWrite_Click()
    Dim strR_PassAD As String, strR_PassUser As String
    Load frmDialog
    frmDialog.Caption = "请输入高级密码"
    frmDialog.Show 1
    strR_PassAD = frmDialog.TBack_PassWD
    Unload frmDialog
    Load frmDialog
    frmDialog.Caption = "请输入用户密码"
    frmDialog.Show 1
    strR_PassUser = frmDialog.TBack_PassWD
    Unload frmDialog

    If strR_PassAD = "" Then Exit Sub
    If USBPassW.PassCreate(strR_PassAD, strR_PassUser) Then
        Call SHowInfo
    End If
    MsgBox USBPassW.TBack_MsgStr, vbInformation, "信息"
End Sub

'*************************************************************************
'**函 数 名：SHowInfo
'**输    入：无
'**输    出：(Boolean) -
'**全局变量：
'**调用模块：
'**作    者：
'**日    期：
'**功能描述：显示授权信息
'**版    本：V1.0.0
'*************************************************************************
Private Function SHowInfo() As Boolean
    LabInfo(0).Caption = "USB磁盘驱动器   ：" & USBPassW.TBack_DiskName
    LabInfo(1).Caption = "USBPass授权编号 ：" & USBPassW.TBack_DrvKeyNumber
    LabInfo(2).Caption = "授权写入时间    ：" & USBPassW.TBack_RegDate
    LabInfo(3).Caption = "授权软件代码    ：" & USBPassW.TBack_SoftCode
    LabInfo(4).Caption = "使用单位名称    ：" & USBPassW.TBack_UnitName
    LabInfo(5).Caption = "自定义一        ：" & USBPassW.TBack_CustomA
    LabInfo(6).Caption = "自定义二        ：" & USBPassW.TBack_CustomB
    LabInfo(7).Caption = "是否限制使用次数：" & USBPassW.TBack_IsTime
    LabInfo(8).Caption = "剩余使用次数    ：" & USBPassW.TBack_UseTime
    LabInfo(9).Caption = "是否限制使用天数：" & USBPassW.TBack_IsFate
    LabInfo(10).Caption = "剩余使用天数    ：" & USBPassW.TBack_UseFate
    LabInfo(11).Caption = "是否任意条件触发：" & USBPassW.TBack_IsAll
    LabInfo(12).Caption = "最后使用日期    ：" & USBPassW.TBack_LastDate
    LabInfo(13).Caption = "附加信息        ：" & USBPassW.TBack_AnnexInfo
End Function

Private Function ShowInfoR() As Boolean
    LabInfo(0).Caption = "USB磁盘驱动器   ：" & USBPassR.TBack_DiskName
    LabInfo(1).Caption = "USBPass授权编号 ：" & USBPassR.TBack_DrvKeyNumber
    LabInfo(2).Caption = "授权写入时间    ：" & USBPassR.TBack_RegDate
    LabInfo(3).Caption = "授权软件代码    ：" & USBPassR.TBack_SoftCode
    LabInfo(4).Caption = "使用单位名称    ：" & USBPassR.TBack_UnitName
    LabInfo(5).Caption = "自定义一        ：" & USBPassR.TBack_CustomA
    LabInfo(6).Caption = "自定义二        ：" & USBPassR.TBack_CustomB
    LabInfo(7).Caption = "是否限制使用次数：" & USBPassR.TBack_IsTime
    LabInfo(8).Caption = "剩余使用次数    ：" & USBPassR.TBack_UseTime
    LabInfo(9).Caption = "是否显示使用天数：" & USBPassR.TBack_IsFate
    LabInfo(10).Caption = "剩余使用天数    ：" & USBPassR.TBack_UseFate
    LabInfo(11).Caption = "是否任意条件触发：" & USBPassR.TBack_IsAll
    LabInfo(12).Caption = "最后使用日期    ：" & USBPassR.TBack_LastDate
    LabInfo(13).Caption = "附加信息        ：" & USBPassR.TBack_AnnexInfo
End Function

Private Sub Form_Unload(Cancel As Integer)
    Set USBPassW = Nothing
    Set USBPassR = Nothing
End Sub