首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > VB >

有没有可以下载程序的命令行程序?解决思路

2012-01-22 
有没有可以下载程序的命令行程序?像这样DLOAD。EXE”http://fdsa.com/aa.jpg“”c:\\aa\pp.jpg“[解决办法]为啥

有没有可以下载程序的命令行程序?
像这样   DLOAD。EXE     ”http://fdsa.com/aa.jpg“   ”c:\\aa\pp.jpg“

[解决办法]
为啥一定要命令行程序?

用一个API就可以了。

用法:
if DownloadToFile( "http://fdsa.com/aa.jpg ", "c:\aa\pp.jpg ") then
msgbox "下载成功 "
end if


代码:
-------------------------------------

Private Const ERROR_SUCCESS As Long = 0

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 DownloadToFile(ByVal sURL As String,ByVal sLocalFile As String) As Boolean
DownloadToFile = URLDownloadToFile(0, sURL, sLocalFile, 0, 0) = ERROR_SUCCESS
End Function

热点排行