?? main.bas
字號:
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
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -