Attribute VB_Name = "Module1"
Option Explicit
Public mw As String
Sub main()
Dim i As Integer, pas(7) As String
Dim zb As Database
Dim re As Recordset
Set zb = OpenDatabase(App.Path + "/zb.mdb")
Set re = zb.OpenRecordset("xb")
If re.RecordCount <> 0 Then 'XB中有記錄，說明不是首次使用
        If Dir(App.Path + "/OK.PAS") <> "ok.pas" Then '保存密碼的文件不在
           MsgBox "保存密碼的文件你藏哪去了?它叫OK.PAS,在同一目錄里.", 32, "出錯"
           End
        Else
           mw = ""
           Open App.Path + "/ok.pas" For Input As #1
           Input #1, mw
           Close #1
           For i = 1 To Len(mw)
               pas(i - 1) = Mid(mw, i, 1) '將密文分成單個字符
               pas(i - 1) = Chr(Asc(pas(i - 1)) - 50 - i * 2) '單個字符解密
           Next i
           mw = ""
           For i = 1 To 8
               mw = mw + pas(i - 1) '合并得到明文
            Next i
            i = 0
            Do While True
                frmpass.Show 1 '確認密碼對話框
                If frmpass.grzbpass <> mw Then '密碼不對
                    i = i + 1
                    If i = 3 Then '三次都不對
                      MsgBox "請尊重他人的隱私權(quán)！你沒有隱私嗎？", 48, "我會告你的哦！"
                      End
                    End If
                Else
                Exit Do
                End If
            Loop
        End If
End If
        frmxb.Show
        
        
End Sub