谁有VB程序下载网址

VB新势力卜腊-vb下袜键载 vb6下载 vb教程 vb源码型好滑 vb试题 vb源代码 vb控件 vb源程序 vb书籍 vb工具 vb6.0下载vb.net教程vb.net源码

http://www.vbaspnew.com/

测试过，可以下载

后台下载判拿

声明：

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

'//调芹判用

然后在代码里直接调用：

Call URLDownloadToFile(0, "网页地址", "保存到本地文嫌冲改件名和地址", 0, 0)

如

Call URLDownloadToFile(0, "http://www.baidu.com/", "c:\1.htm", 0, 0)

相当于另存为

声明：

Private Declare Function DoFileDownload Lib "shdocvw.dll"(ByVal lpszFile As String) As Long

'//调用

然后在代码里直接调用：

Dim gourl As String

AdUrl = StrConv("网页地址", vbUnicode)

Call DoFileDownload(gourl)

---