#AdditionalLib: AppTrackingTransparency.framework
#PlistExtra: <key>SKAdNetworkItems</key><array><dict><key>SKAdNetworkIdentifier</key><string>cstr6suwn9.skadnetwork</string></dict></array>
#PlistExtra: <key>NSUserTrackingUsageDescription</key>
#PListExtra: <string>This identifier will be used To deliver personalized ads To you.</string>
Sub Process_Globals
Public App As Application
Public NavControl As NavigationController
Private Page1 As Page
Private xui As XUI
Private TimerIdfa As Timer
End Sub
Private Sub Application_Start (Nav As NavigationController)
NavControl = Nav
Page1.Initialize("Page1")
Page1.RootPanel.LoadLayout("Page1")
NavControl.ShowPage(Page1)
TimerIdfa.Initialize("TimerIdfa", 2000)
App.RegisterUserNotifications(True, False, True)
TimerIdfa.Enabled = True
End Sub
Sub TimerIdfa_Tick
CheckIdfa
End Sub
Private Sub CheckIdfa
TimerIdfa.Enabled = False
Dim no As NativeObject = Me
no.RunMethod("requestIDFA", Null)
Wait For GAD_TrackingAuthorization (Status As Int)
Log("IDFA Status: " & Status)
If Status = 0 Then
TimerIdfa.Enabled = True
Return
End If
'From this line you can continue ADs loading
End Sub
Private Sub Page1_Resize(Width As Int, Height As Int)
End Sub
#if OBJC
#import <AppTrackingTransparency/AppTrackingTransparency.h>
#import <AdSupport/AdSupport.h>
- (void)requestIDFA {
if (@available(iOS 14, *)) {
[ATTrackingManager requestTrackingAuthorizationWithCompletionHandler:^(ATTrackingManagerAuthorizationStatus status) {
[self.bi raiseUIEvent:nil event:@"gad_trackingauthorization:" params:@[@(status)]];
}];
} else {
[self.bi raiseUIEvent:nil event:@"gad_trackingauthorization:" params:@[@(3)]];
}
}
#End If