If you have Internet Explorer 5 or later version, you can use an API call to download a file from the Internet withouth displaying any message box. The following code downloads the demo copy of our VBMaximizer VB6 add-in from our site to the C: directory on your hard disk:
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' Note that this file is 2M, so you might want to try with something simplerDim errcode As LongDim url As StringDim localFileName As Stringurl = "http://www.vb2themax.com/vbmaximizer/files/vbm_demo.zip"localFileName = "c:vbm_demo.zip"errcode = URLDownloadToFile(0, url, localFileName, 0, 0)If errcode = 0 Then MsgBox "Download ok"Else MsgBox "Error while downloading"End If
