Android Question How to automate app updating?

'registration storage support subs
Sub getRegistrationID(SenderID As String) As Boolean
    Dim regid As String
    Dim pm As PreferenceManager
    regid=pm.GetString(SenderID)
    If regid="" OR AppVersion<>QSRGlobals.GetVersionname Then
        Log("getRegistrationID=false")
        Return False
    Else
        Log("getRegistrationID=true")
        Return True
    End If
End Sub

Sub storeRegistrationID(SenderID As String,regID As String)
    Dim pm As PreferenceManager
    pm.SetString(SenderID,regID)
End Sub

Sub RegisterDevice (Unregister As Boolean,pid As String)
    Dim i As Intent
    'i wish there was a way to include the ID in the return intent so we know what Project ID was registered
    ProjectID=pid 'use this global variable to hopefully get the right Project ID with RegID when it comes back registered
    If Unregister Then  
        i.Initialize("com.google.android.c2dm.intent.UNREGISTER", "")
    Else
        i.Initialize("com.google.android.c2dm.intent.REGISTER", "")
        i.PutExtra("sender",pid)
    End If
    Dim r As Reflector
    Dim i2 As Intent
    i2 = r.CreateObject("android.content.Intent")
    Dim pi As Object
    pi = r.RunStaticMethod("android.app.PendingIntent", "getBroadcast", _
        Array As Object(r.GetContext, 0, i2, 0), _
        Array As String("android.content.Context", "java.lang.int", "android.content.Intent", "java.lang.int"))
    i.PutExtra("app", pid)
    StartService(i)
End Sub

Sub HandleRegistrationResult(Intent As Intent)
    Log(Intent.ExtrasToString)
    If Intent.HasExtra("error") Then
        Log("Error: " & Intent.GetExtra("error"))
        ToastMessageShow("Error: " & Intent.GetExtra("error"), True)
    Else If Intent.HasExtra("unregistered") Then
        'Empty id is sent here. This will cause the board to delete this name.
    Else If Intent.HasExtra("registration_id") Then
        Dim rid As String
        rid = Intent.GetExtra("registration_id")
        Log(rid)
        Dim sql As String
        Dim pid As String
        sql="execute dbo.[spUpdatePushDevices] '" & ProjectID & "','" & rid & "'," & SOMEID '(@ServiceID varchar(50),@DeviceID varchar(500),@Data Int,@Platform tinyint=0,@Active Bit=1)
        Log(sql)
        Dim http As HttpJob
        http.Initialize("UpdatePushDevices",Me,"UpdatePushDevicesDone")
        Log(sql)
'note this uses my custom implementation of the httpservice
        http.ExtraData=rid
        http.ExtraData2=pid
        http.PostString("YOUR SCRIPT HERE",sql)
    End If
End Sub

Sub UpdatePushDevicesDone(job As HttpJob)
    If job.Success Then
        Dim result As String=job.GetString
        If result<>"0" Then
            Globals.storeRegistrationID(job.ExtraData2,job.ExtraData)
        Else
            Log("no pushid")
        End If
    End If
    job.Release
End Sub

CREATE TABLE [dbo].[PushSetup](
    [RowID] [int] IDENTITY(1,1) NOT NULL,
    [UnitID] [int] NOT NULL,
    [ServiceID] [varchar](50) NOT NULL,
    [APIKey] [varchar](50) NOT NULL,
    [PlatForm] [tinyint] NOT NULL CONSTRAINT [DF_PushSetup_PlatForm]  DEFAULT ((0)),
    [BrandID] [int] NOT NULL CONSTRAINT [DF_PushSetup_BrandID]  DEFAULT ((0)),
    [Description] [varchar](50) NULL
) ON [PRIMARY]
CREATE TABLE [dbo].[PushSetup_Devices](
    [PushID] [int] IDENTITY(1,1) NOT NULL,
    [ServiceID] [varchar](50) NOT NULL,
    [DeviceID] [varchar](500) NOT NULL,
    [Data] [int] NOT NULL CONSTRAINT [DF_PushSetup_Devices_Data]  DEFAULT ((0)),
    [Active] [bit] NOT NULL CONSTRAINT [DF_PushSetup_Devices_Active]  DEFAULT ((1)),
    [Platform] [tinyint] NOT NULL CONSTRAINT [DF_PushSetup_Devices_Platform]  DEFAULT ((0))
) ON [PRIMARY]
--Platform defaults to 0 for android, caller could send "1" for Apple, "2" for MS, etc.
--ServiceID is the ID of the GCM project, not sure how apple, etc. is yet
CREATE PROCEDURE dbo.[spUpdatePushDevices] (@ServiceID varchar(50),@DeviceID varchar(500),@Data int,@Platform tinyint=0,@Active bit=1)
as
--check if we have a device registered for this service yet
DECLARE @PushID int;set @PushID=0
DECLARE @IDCount int
SELECT @IDCount=count(*) FROM EasyOrder.POS_PushSetup_Devices
WHERE Data=@Data and ServiceID=@ServiceID
IF @IDCount>1 --just in case we have dupes we wanna delete them
BEGIN
delete from EasyOrder.POS_PushSetup_Devices
WHERE Data=@Data and ServiceID=@ServiceID and Platform=@Platform
END 
SELECT @PushID=isnull(pushid,0) FROM EasyOrder.POS_PushSetup_Devices
WHERE Data=@Data and ServiceID=@ServiceID --and Platform=@Platform
----if so then probably just updating it's subscription, i.e. on/off or data
IF @PushID<>0
BEGIN
    UPDATE EasyOrder.POS_PushSetup_Devices SET Data=@Data,Active=@Active,Platform=@Platform
    WHERE PushID=@PushID
END
ELSE
BEGIN
    INSERT INTO EasyOrder.POS_PushSetup_Devices (ServiceID,DeviceID,Data,Active,Platform)
    VALUES(@ServiceID,@DeviceID,@Data,@Active,@Platform)
    SET @PushID=(SELECT @@IDENTITY)
END
SELECT @PushID

CREATE Procedure dbo.[spSendPush](@APIKey varchar(50),@DeviceID varchar(500),@Data varchar(max))
as
DECLARE @object int;
DECLARE @hr int;
DECLARE @src varchar(255), @desc varchar(255);
EXEC @hr = sp_OACreate 'GCM.GCMObject', @object OUT,1;
IF @hr <> 0
BEGIN
  EXEC sp_OAGetErrorInfo @object, @src OUT, @desc OUT
  --raiserror('Error Creating COM Component 0x%x, %s, %s',16,1, @hr, @src, @desc)
    RETURN
END;
ELSE
BEGIN
EXEC @HR = sp_OAMethod @Object,
        N'SendMessage',
        NULL,
        @apikey,
        @deviceid,
        @data;--need to add platform to this call so our COM DLL can decide which url to use
END

CREATE PROCEDURE dbo.[spSendUpdateApp]
as
--see if they subscribe to pushes
DECLARE @ServiceID varchar(50)
DECLARE @APIKey varchar(50)
DECLARE @DeviceID varchar(MAX)
SET @ServiceID='ENTER YOURS HERE'
--could skip this next line and just hard code the APIKey if desired
SELECT @APIKey=apikey from dbo.PushSetup where ServiceID=@ServiceID
--will have an issue here if over 1,000 subscribers, need to cycle through each 1,000
SELECT    @DeviceID=COALESCE(@DeviceID+'","' ,'') + PSD.DeviceID
FROM  dbo.PushSetup_Devices AS PSD
WHERE    (PSD.ServiceID = @ServiceID)
--send a push notifying them the update
DECLARE @Data varchar(max)
SET @Data='1' --use whatever code you want here
exec dbo.spSendPush @APIKey,@DeviceID,@Data

Sub MessageArrived (Intent As Intent)
    Dim From, CollapseKey, data As String 'ignore
    If Intent.HasExtra("from") Then From = Intent.GetExtra("from")
    If Intent.HasExtra("data") Then data = Intent.GetExtra("data")
    If Intent.HasExtra("collapse_key") Then CollapseKey = Intent.GetExtra("collapse_key")
    Log(Intent.ExtrasToString)
    'Here you should handle the new message:
    Log("New message arrived: " & data)
    Select Case From 'use case to test who sent it in case we have multiple push service
        Case Main.ProjectID
            If data="1" Then
                'create a notification icon that a new version is ready to install
                UpdateApp
            Else
                'do something else
            End If
        Case Else
    End Select
End Sub

Sub UpdateApp
    Dim ni As Notification
    ni.Initialize
    ni.Icon="icon"
    ni.AutoCancel=True
    ni.Sound=True
    ni.Vibrate=True
    ni.SetInfo2("App Update","Click here to install new version","update",Main)
    ni.Notify(1)
End Sub

Sub Activity_Resume
    Dim i As Intent
    i=Activity.GetStartingIntent
    If i.HasExtra("Notification_Tag") Then
        If i.GetExtra("Notification_Tag")="update" Then
            'how to update app now?
            CallSubDelayed(Me,"DownloadApp")
        End If
    End If
End Sub

Sub DownloadApp
    Dim dl As RSAsyncDownloader
    dl.Initialize("AsyncDownloader")
    dl.Directory=File.DirDefaultExternal
    dl.FileName="YOURAPP.APK"
    If File.Exists(dl.Directory,dl.FileName) Then
        Try
            File.Delete(dl.Directory,dl.FileName)
        Catch
            Log(LastException)
        End Try
    End If
    dl.Download(APKURL)
End Sub

Private Sub AsyncDownloader_Started
'The download has started.
    pnlProgress.Visible=True
End Sub

Private Sub AsyncDownloader_Update (Progress As Int)
'Monitor the progress here.
    ProgressBar1.Progress=Progress
End Sub

Sub cmdCancel_Click 'user canceled it
    pnlProgress.Visible=False
    UpdateCanceled=True
End Sub

Private Sub AsyncDownloader_Finished (Result As String)
'The download has finished.
    'I wish the result contained the whole filename so we could skip a bunch of code
    Dim async As RSAsyncDownloader
    async=Sender
    pnlProgress.Visible=False
    If Not(UpdateCanceled) Then
        Dim pm As Intent
        Log(async.Directory & "/" & async.FileName)
        pm.Initialize(pm.ACTION_VIEW, "file://" & async.Directory & "/" & async.FileName)'"file:///sdcard/MyAPK.apk")
        pm.SetType("application/vnd.android.package-archive")
        StartActivity(pm)
    End If
End Sub

Public Sub RestartApp
    g.ToastMessageShowX("Re-Starting...",True)
    Activity.Finish
    Dim r, r2 As Reflector
    r.Target = r.GetActivity
    r.Target = r.RunMethod("getApplicationContext")
    r2.Target = r.RunMethod("getPackageManager")
    Dim I As Intent = r2.RunMethod2("getLaunchIntentForPackage", r.RunMethod("getPackageName"), "java.lang.String" )
    r.Target = I
    r.RunMethod2("addFlags",  67108864, "java.lang.int")
    StartActivity(I)
End Sub

If StartingIntent.Action = "android.intent.action.PACKAGE_REPLACED" Then
    Log("package replaced intent received!")
     pkg = GetPackageName
    If StartingIntent.GetData="package:" & pkg Then
      MyAppReload
    End If
End If  
..

Sub GetPackageName As String
  Dim r As Reflector
  Return r.GetStaticField("anywheresoftware.b4a.BA", "packageName")
End Sub

Sub MyAppReload
   Log("MyAppReload**** ")
  If IsPaused("main") Then
    StartActivity("main")
  End If
End Sub

AddReceiverText(eu.dgconsulting.appupdating.newinst2,
  <intent-filter>
  <action android:name="android.intent.action.PACKAGE_REPLACED" />
  <data android:scheme="package" />
  </intent-filter>)