主题：[求助]APK软件下载并安装

Dim SPath As String = e.Path

Dim err As Integer

If SPath > "" Then

    If SPath.Contains(".APK") Then

        Dim fl As String = Vars("WbPath") & "\SKFile\" & Spath

        If FileSys.FileExists(fl) Then

            e.WriteFile(fl)

这里如何做到下载后直接安装

        Else

            err = 1

        End If

    Else

        Functions.Execute("ErrFileWite", "SPath.Contains = false---" & e.Path)

          err = 1

    End If

Else

    err = 1

End If

If err > 0 Then

    e.WriteString("欢迎登录网站！")

        err = 0

End If