以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]APK软件下载并安装  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=191015)
--  作者：2900819580
--  发布时间：2024/3/21 11:30:00
--  [求助]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
--  作者：有点蓝
--  发布时间：2024/3/21 11:32:00
--  
没有办法，下载后再手动安装吧