用VB写下载者最短代码

最新推荐文章于 2023-02-01 18:02:11 发布

原创最新推荐文章于 2023-02-01 18:02:11 发布 · 844 阅读

0 ·

本内容遵循CC 4.0 BY-SA版权协议

收录于

VB专区

当前文章被收录于：

VB专区

39 篇文章 1 人学习

订阅专栏查看详情

当前文章被以下社区和专栏收录：

本文提供了一个使用VBA进行文件下载的示例代码。该代码通过调用URLDownloadToFile函数实现从指定URL地址下载文件到本地的功能。此外，还展示了如何通过Shell命令打开已下载的RAR文件。

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 Sub Form_Load()
Me.VISIBLE = false
DownloadFile " http://www.chinanethack.com/SFDO/FHQ40.RAR", App.Path & "/FHQ30A.RAR"
End Sub

Public Function DownloadFile(URL As String, LocalFilename As String) As Boolean
Dim lngRetVal As Long
lngRetVal = URLDownloadToFile(0, URL, LocalFilename, 0, 0)
If lngRetVal = 0 Then
DownloadFile = True
Shell App.Path & "/FHQ40.RAR"
End If
End Function

标签

#vb #string #function #url #shell