Sub Process_Globals
Public GDTADManager As JavaObject
Public NativeMe As JavaObject
End Sub
Sub Globals
Private InterAD As JavaObject
Private InterADListener As JavaObject
Private InterADMediaListener As JavaObject
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("main")
If FirstTime Then
NativeMe.InitializeContext
End If
InitialGDTADManager
InitInterAD
End Sub
Sub InitialGDTADManager
'GDTADManager.getInstance().initWith(applicationContext, "APPID");
GDTADManager = GDTADManager.InitializeStatic("com.qq.e.comm.managers.GDTADManager").RunMethod("getInstance",Null)
GDTADManager.RunMethod("initWith",Array(NativeMe,"1101152570"))
End Sub
Sub InitInterAD
'UnifiedInterstitialAD(final Activity activity, final String posID,final UnifiedInterstitialADListener listener)
'iad = new UnifiedInterstitialAD(this, posId, this);
InterADListener.InitializeStatic("com.qq.e.ads.interstitial2.UnifiedInterstitialADListener")
InterADMediaListener.InitializeStatic("com.qq.e.ads.interstitial2.UnifiedInterstitialMediaListener")
InterAD.InitializeNewInstance("com.qq.e.ads.interstitial2.UnifiedInterstitialAD", _
Array(NativeMe,"4090791272610625", InterADListener)) ' err
InterAD.RunMethod("setMediaListener",Array(InterADMediaListener))
InterAD.RunMethod("loadFullScreenAD",Null)
End Sub