level 10
//源码分享
Option Explicit
Private Sub Command1_Click()
If Option1 Then
Shell ("cmd /c copy /y " & App.Path & "\Data\32\amtlib.dll " & Text1.Text & "amtlib.dll")
MsgBox "破解完成"
End If
If Option2 Then
Shell ("cmd /c copy /y " & App.Path & "\Data\64\amtlib.dll " & Text1.Text & "amtlib.dll")
MsgBox "破解完成"
End If
End Sub
2014年02月08日 03点02分