主题：下载XX.apk并自动运行安装

浏览器那里下载后，一般会自动帮你打开的，需要用户自己点一下同意然后安装。（但如果是微信里面的浏览器，屏蔽了这个功能，右上角点击在浏览器打开）

方法一：比如你apk文件放在web文件夹下。

1、头文件那里，把apk后缀加上

Dim fl As String = "d:\web\" & e.path
If filesys.FileExists(fl)
    Dim idx As Integer = fl.LastIndexOf(".")
    Dim ext As String  = fl.SubString(idx)
    Select Case ext
        Case ".jpg",".gif",".png",".bmp",".wmf",".js",".css" ,".html",".htm",".zip",".rar",".apk"
            e.WriteFile(fl)
            Return '这里必须返回
    End Select
End If

2、直接访问地址 http://127.0.0.1/xxx.apk 即可下载文件

方法二：比如你apk文件放在web文件夹下，用js下载。

1、头文件那里，把apk后缀加上

Dim fl As String = "d:\web\" & e.path
If filesys.FileExists(fl)
    Dim idx As Integer = fl.LastIndexOf(".")
    Dim ext As String  = fl.SubString(idx)
    Select Case ext
        Case ".jpg",".gif",".png",".bmp",".wmf",".js",".css" ,".html",".htm",".zip",".rar",".apk"
            e.WriteFile(fl)
            Return '这里必须返回
    End Select
End If

2、嵌入一个ifarme，然后写代码

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=122742&replyID=826147&skin=1

参考 http://www.foxtable.com/mobilehelp/scr/0276.htm

1、直接在浏览器那里访问 http://47.92.95.136:8080/1.apk

2、你httprequest那里加入msgbox，看是否执行到了e.writefile那里