Years ago I copied the below code into my apps when adding to Apple’s MAS. Has this changed over time? Do we still need to call the macoslib ‘CertTools.IsValid’ routine will the mention of ‘carbon’ cause a problem? An app of mine that I updated is now being rejected for calling ‘non-public APIs’ and I want to ensure this is not the cause.
Also, I just want to know if this is still the ‘mode du jour’?
[quote]Dim f as FolderItem = ExecutableFile.Parent.Parent.Child("MASReceipt").Child(“receipt”)
if Carbon.SystemVersionAsInt >= 100704 then
Dim appBundleID as String = “com.mysoftwarecompany.applicationName” // put the Bundle ID here that you registered in iTunes Connect for this app
if not CertTools.IsValid (CertTools.DeviceGUID, CertTools.ReadReceipt(f), appBundleID) then
declare sub exit lib “System” alias “exit” (code as Integer)
exit_ (173)
end
else 'App is running on older OS that has no App Store support.
MsgBox “Sorry, but you must be running MacOS X 10.7.4 or later.”
Quit
end[/quote]