Sub Process_Globals
Dim uniqueID As String
End Sub
Sub Globals
Private tm As Timer
Private bg As ImageView
End Sub
Private Sub GetAdvertisingId As ResumableSub
Dim jo As JavaObject = Me
jo.RunMethod("GetAdvertisingId", Null)
Wait For AdvertisingId_Ready (Success As Boolean, Id As String)
Return Id
End Sub
#if Java
import java.util.concurrent.Callable;
import com.google.android.gms.ads.identifier.AdvertisingIdClient;
import com.google.android.gms.ads.identifier.AdvertisingIdClient.Info;
public static void GetAdvertisingId() {
BA.runAsync(processBA, mostCurrent, "advertisingid_ready", new Object[] {false, ""}
, new Callable<Object[]>() {
@Override
public Object[] call() throws Exception {
String id = AdvertisingIdClient.getAdvertisingIdInfo(mostCurrent).getId();
return new Object[] {true, id};
}
}); }
#End If
Sub Activity_Create(FirstTime As Boolean)
bg.Initialize("")
bg.Gravity=119
bg.Bitmap=LoadBitmapSample(File.DirInternal, "demo.jpg", 100%x, 100%y)
Activity.AddView(bg, 0, 0, 100%x, 100%y)
tm.Initialize("tm",2000)
tm.Enabled=True
End Sub
Sub tm_Tick
tm.Enabled=False
Log("Getting Advertising ID...")
Wait For (GetAdvertisingId) Complete (Id As String)
If Id <> "" Then uniqueID=Id
Log("Advertising ID received: " & Id)
StartActivity(login)
Activity.Finish
End Sub