VB编写计算Access数据库密源代码.docVIP

VB编写破解Access程序源代码 首先是窗体代码 Option Explicit Private Sub cmdOpenFile_Click() Dim sFile As String Dim sPasswd As String Dim sVersion As String cmdOpenFile.Enabled = False sFile = INNER_GetFileName(True, mdb (*.mdb)|*.mdb, MDB, txtFileName.Text, 请选择数据库文件) If Len(sFile) 0 Then Shape1.Width = 0 txtFileName = sFile txtVersion = txtPassword = sPasswd = INNER_GetAccessPwd(sFile, sVersion) txtVersion = sVersion txtPassword = sPasswd End If cmdOpenFile.Enabled = True End Sub Private Sub Form_Load() Shape1.Width = 0 End Sub 2、接着是模块代码 Option Explicit #