vb 如何下载exe文件

发布网友 发布时间：2022-04-20 06:56

我来回答

共1个回答

热心网友 时间：2023-07-22 09:10

“我上传安装文件exe 到服务器后 在点击链接打开的时候打不开！”
你有远程运行exe的权限？

=====下载文件源码=====
'API URLDownloadToFile 请看百度百科 http://ke.baidu.com/view/1606690.htm#sub1606690

Option Explicit

Private Declare Function URLDownloadToFile Lib "urlmon" _
Alias "URLDownloadToFileA" _
(ByVal pCaller As Long, _
ByVal szURL As String, _
ByVal szFileName As String, _
ByVal dwReserved As Long, _
ByVal lpfnCB As Long) As Long

Private Const ERROR_SUCCESS As Long = 0
Private Const BINDF_GETNEWESTVERSION As Long = &H10
Private Const INTERNET_FLAG_RELOAD As Long = &H80000000

Public Function DownloadFile(sSourceUrl As String, _
sLocalFile As String) As Boolean

DownloadFile = URLDownloadToFile(0&, _
sSourceUrl, _
sLocalFile, _
BINDF_GETNEWESTVERSION, _
0&) = ERROR_SUCCESS

End Function

Private Sub Command1_Click()
Dim sSourceUrl As String
Dim sLocalFile As String

sSourceUrl = "http://addonsmx.maxthon.com/download_url/990/google_power_search_cn.m2p"
sLocalFile = "c:\相册.rar"

If DownloadFile(sSourceUrl, sLocalFile) Then

MsgBox "下载成功"
End If

End Sub追问不用写这么多代码吧 不是直接给他个超链接就可以下载了么？

追答你不是问 vb 如何下载exe文件 嘛，如果是这个问题请往下看

大哥，这代码不多吧，够简单了。这个没用控件，如果你一定要一行代码的话那给你
但是这种代码占内存，而且慢，下载时有可能会弹出已安装的下载软件 如迅雷
在VB控件栏上点右键，选 部件 然后添加 microsoft internet controls，然后在你程序的窗口上添加一个此控件，代码如下：

Private Sub Form_Load()
WebBrowser1.Navigate "http://addonsmx.maxthon.com/download_url/990/google_power_search_cn.m2p"
End Sub