1.用VB快速[网页源代码]

用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

       '//调用

       然后在代码里直接调用：

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

       如

       Call URLDownloadToFile(0, "/", "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)