«« 上一主题 | 下一主题 »»
发新话题 回复
分享主题 打印

[转载] [VB]利用URLDownloadToFile函数从网上下载文件到本机

最美我中文

My Cat Has Gone.

最美我中文 头像

最美我中文 训练师头像 VIP

管理员

Level 3 Level 3 Level 3 Level 2 Level 2 Level 1

目前的守墓人

俱乐部 PTB开发组
 威望 25
帖子
10686 
精华
19 
积分
7816 
PT币
149434 枚 
热度
899 °C 
贡献值
34 点 

大校

宠物段位 宠物状态 其实我是狼
其实我是狼 Lv.91
联盟徽章 联盟徽章 联盟徽章 联盟徽章 联盟徽章 联盟徽章 联盟徽章 联盟徽章
[查看其他宠物]
楼主 大 中 小 发表于 2007-8-19 18:46 只看该作者

[VB]利用URLDownloadToFile函数从网上下载文件到本机

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
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
End Function
Private Sub Form_Load()
DownloadFile "http://www.chinavb.net/upload/qqskin.rar", "c:\qqskin_downok.rar"
End Sub
谁不怀念苏联,谁就没有良心;谁想回到苏联,谁就没有头脑.

Woodu.ME--从零开始的博客生活
TOP
«« 上一主题 | 下一主题 »» | 推荐给朋友
发新话题 回复