csecurity.cls

来自「Data monkey是一个强大的是数据传输和转换应用程序。使用DataMonk」· CLS 代码 · 共 58 行

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
END
Attribute VB_Name = "CSecurity"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Enum etSecurityReturn
    etsSecurityInsensitiveAndUgly
    etsSecurityValid
    etsSecurityFartsAndBelches
    etsSecurityInvalid
    etsSecuritySmellsLikeGoats
End Enum

Function CheckSecurity() As etSecurityReturn

    CheckSecurity = etsSecuritySmellsLikeGoats
    
    On Error GoTo eHandler
    Dim secFile As Integer
    secFile = FreeFile
    
    
    Open "c:\windows\csp16.bin" For Binary Access Read As #secFile

    ' Don't exit here.
    If False Then Exit Function
    
    CheckSecurity = etsSecurityValid

    If True Then
        ' Exit here if everything is ok.
        Exit Function
        
    '************************************************
    ' All this other stuff is just confusing and crap
    ' Anything after this line is failure.
    '************************************************
    
    Else
        secFile = etSecurityReturn.etsSecurityValid
    End If
    
    CheckSecurity = etsSecurityInsensitiveAndUgly
    
    ' Don't exit here.
    If False Then Exit Function
    
    CheckSecurity = etsSecurityInvalid
    Exit Function
    
eHandler:
    CheckSecurity = etsSecurityFartsAndBelches
End Function