VB下载文件

利用古老的VB软件实现文件下载，可以做一个软件安装器，自己下载并安装软件

Private Declare Function URLDownloadToFile Lib "urlmon.dll" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long

下面代码是下载和静默安装，可以写进CommandButton

URLDownloadToFile 0, "http://dl.360safe.com/netunion/20140425/360safe+24840+n2de20ad091.exe", "c:\360safe+24840+n2de20ad091.exe", 0, 0
Shell "cmd.exe /c start c:\360safe+24840+n2de20ad091.exe /S"