网址：百度网盘
更新内容：
1.增加了文件检查器
2.增加了小白模式【测试阶段，因为需要判断系统位数，将会涉及系统关键文件，请谨慎使用】
代码：
非小白模式：
Option Explicit
Private Sub Check1_Click()
If Check1 Then
If Option1 Then
Text1.Text = "C:\Program Files\Adobe\Adobe Photoshop CC\"
End If
If Option2 Then
Text1.Text = "C:\Program Files\Adobe\Adobe Photoshop CC (64 Bit)\"
End If
End If
End Sub
Private Sub Command1_Click()
If Option1 Then
Shell ("cmd /c copy /y " & App.Path & "\Data\32\amtlib.dll " & Text1.Text & "\amtlib.dll")
MsgBox "文件替换成功", vbOKOnly, "破解信息"
End If
If Option2 Then
Shell ("cmd /c copy /y " & App.Path & "\Data\64\amtlib.dll " & Text1.Text & "\amtlib.dll")
MsgBox "文件替换成功", vbOKOnly, "破解信息"
End If
End Sub
Private Sub Form_Load()
If MsgBox("程序需要检查文件是否残损。", vbYesNo + vbExclamation, "文件检查器") = vbYes Then
If Dir("Data\32\amtlib.dll") <> "" Then MsgBox "32位破解文件存在!", vbInformation, "文件检查器" Else MsgBox "32位破解文件不存在，请检查是否解压Data目录内的破解文件，否则破解将无法成功。", vbCritical, "文件检查器"
If Dir("Data\64\amtlib.dll") <> "" Then MsgBox "64位破解文件存在!", vbInformation, "文件检查器" Else MsgBox "64位破解文件不存在，请检查是否解压Data目录内的破解文件，否则破解将无法成功。", vbCritical, "文件检查器"
Else: Unload Me
End If
End Sub
Private Sub 关于_Click()
MsgBox "Adobe Photoshop CC Patcher V1.2，此软件仅供学习交流，非商业用途。", vbInformation, "关于"
End Sub
小白模式：
Private Sub Command1_Click()
If Dir("C:\Windows\SysWOW64") <> "" Then
MsgBox "你正在使用64位系统，即将开始", vbOKOnly, "即将开始"
Shell ("cmd /c copy /y " & App.Path & "\Data\64\amtlib.dll " & "C:\Program Files\Adobe\Adobe Photoshop CC (64 Bit)\amtlib.dll")
MsgBox "文件替换成功", vbOKOnly, "破解信息"
Else
MsgBox "你正在使用32位系统，即将开始", vbOKOnly, "即将开始"
Shell ("cmd /c copy /y " & App.Path & "\Data\32\amtlib.dll " & "C:\Program Files\Adobe\Adobe Photoshop CC\amtlib.dll")
MsgBox "文件替换成功", vbOKOnly, "破解信息"
End If
End Sub
Private Sub Form_Load()
If MsgBox("程序需要检查文件是否残损。", vbYesNo + vbExclamation, "文件检查器") = vbYes Then
If Dir("Data\32\amtlib.dll") <> "" Then MsgBox "32位破解文件存在!", vbInformation, "文件检查器" Else MsgBox "32位破解文件不存在，请检查是否解压Data目录内的破解文件，否则破解将无法成功。", vbCritical, "文件检查器"
If Dir("Data\64\amtlib.dll") <> "" Then MsgBox "64位破解文件存在!", vbInformation, "文件检查器" Else MsgBox "64位破解文件不存在，请检查是否解压Data目录内的破解文件，否则破解将无法成功。", vbCritical, "文件检查器"
Else: Unload Me
End If
End Sub
截图：

留名

判断文件夹多冒险啊，万一有人无聊在32位系统建个同名文件夹肿么办，直接用api取安全点，忘了是GetSystemBits还是GetVersionEx了

如果我说还是不行怎么破？