如题

我在表单上有一个 TEXT 为：abc 的按钮，想实现 按这个按钮时，就能从服务器的批定目录下载文件 abc.pdf ,下载完成后，就打开这个文件。

这个要如何实现？

参考

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=105484&skin=0

有点甜老师

认真看了你的例子，还是没懂。

Dim hc As New HttpClient("http://127.0.0.1/download.htm")
If hc.GetFile("c:\\data\\123.jpg") Then
    MessageBox.show("文件下载成功","提示")
Else
    MessageBox.show("文件下载失败","提示")
End If

用这个方法可以成功，但这个方法只能用在电脑端，手机端怎么弄？

有点蓝老师

今天看了一天，都搞的不太懂。太菜了。

abc.pdf 文件不用写目录的吗？

wb.InsertHTML("<div ><button onclick=javascrtpt:window.location.href=\'abc.pdf\'>abc</button></div>")

老师

我用这个方法：

Dim hc As New HttpClient("http://mt.gzhito.com.cn/download.htm")
 If hc.GetFile("D:\\1234.pdf") Then
     MessageBox.show("文件下载成功","提示")
Else
     MessageBox.show("文件下载失败","提示")
End  If

可以成功下下载 到我想要的 PDF,但这个是在电脑端里实际的，如果在要微信企业号中的一个按纽中单击实现要怎么写代码？

求代码! 多谢！

1、httpRequest事件中

Case ".jpg",".gif",".png",".bmp",".wmf",".js",".css" ,".html",".htm",".zip",".rar"

要改成

2、pdf文件，要拷贝到 web/abc.pdf 文件夹下，然后写代码

wb.InsertHTML("<div ><button onclick=javascrtpt:window.location.href=\'/abc.pdf\'>abc</button></div>")

有点甜老师

多谢！终于试出来了，也明白了好多开发指南上的东西。多谢！

还有个问题：

用 代码：wb.InsertHTML("<div ><button onclick=javascrtpt:window.location.href=\'/COA/705166.pdf\'>abc</button></div>") 生成的按钮没有问题，可以下载文件。

但是非常不好看。我想把它改成 weui中的按钮，然后把按钮的 .Attribute 设好。代码 如下：

 wb.AddForm("","form1","test.htm")
         With wb.AddButtonGroup("form1","btg1",True)  \'垂直排列
            .Add("btn1", "按钮").Attribute = "onclick= javascrtpt:window.location.href=\'/COA/705166.pdf\'"
        
        End With

不会报错，但是按了没反应。是哪里写错了吗？这个思路可以做到吗？求代码？多谢！