回复 楼主 wxflw
如下代码能够破解ACCESS97/2000/2003/XP等任意版本
Option Explicit
Dim mbMove As Boolean
Private Sub Command1_Click()
Dim sFile
As String
Dim sPasswd
As String
Dim sVersion As String
sFile = Text1.Text
sPasswd = INNER_GetAccessPwd(sFile, sVersion, True)
If gbExit Then Exit Sub
Text2.Text = sVersion
Text3.Text = sPasswd
End Sub
Private Sub Command2_Click()
Text1.Text = INNER_GetFileName(True)
End Sub
Private Sub Command3_Click()
Unload Me
End Sub
Private Sub Form_Load()
Image1.Picture = Me.Icon
End Sub
还有不明白的地方可以联系我 QQ:617986369