Picture at website (saving)

[S. Stilwell]

I'm trying to write a small program that will go to a particular web site
and download an image file on a schedule. I just need to know how to save
the file to disk from a website. Any help would be greatly appreciated.
Steve

[CajunCoiler \(http://www.cajuncoiler.tk\)]

I have a module that does exactly that... the syntax is listed in the
remarks
at the beginning, and it should be easy to implement into a schedule.
1. Add an MS Inet control to the calling form
2. Add an Imagebox to the calling form
3. Create a new module called "Snag", and paste the following into it.

' |
' Syntax: X = Snag.GetPic(NetMod,URL,Img) |
' |
' Requirements: Img As Image |
' URL As String |
' NetMod As Object (MS Inet Ctrl 6) |
' |
' Returns: X As Integer (err number or 0 if none) |
' |

Public Function GetPic(NetModule As Object, PictureURL As String, Img As
Image)
Dim buffer() As Byte
Dim f As Integer
On Error GoTo ErrorTrap
NetModule.AccessType = icUseDefault
GetPic = 0
f = FreeFile
buffer() = NetModule.OpenURL(PictureURL, icByteArray)
Open App.Path + "\PCT.JPG" For Binary Access Write As #f
Put #f, , buffer()
Close #f
Img.Picture = LoadPicture(App.Path + "\PCT.JPG")
Exit Function
'trap the unforseen error here
ErrorTrap:
GetPic = Err
If NetModule.StillExecuting = True Then
NetModule.Cancel
End If
End Function
"S. Stilwell" <ss******@tampabay.rr.com> wrote in message
news:N7**********************@twister.tampabay.rr. com...

I'm trying to write a small program that will go to a particular web site
and download an image file on a schedule. I just need to know how to save
the file to disk from a website. Any help would be greatly appreciated.
Steve

[B Pilgrim]

"S. Stilwell" <ss******@tampabay.rr.com> skrev i meddelandet
news:N7**********************@twister.tampabay.rr. com...

I'm trying to write a small program that will go to a particular web site
and download an image file on a schedule. I just need to know how to save
the file to disk from a website. Any help would be greatly appreciated.
Steve

Straight from the API-guide:

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 DownloadFile(URL As String, LocalFilename As String) As
Boolean
Dim lngRetVal As Long
lngRetVal = URLDownloadToFile(0, URL, LocalFilename, 0, 0)
If lngRetVal = 0 Then DownloadFile = True
End Function
Private Sub Form_Load()
'example by Matthew Gates (Pu*****@hotmail.com)
DownloadFile "http://www.allapi.net", "c:\allapi.htm"
End Sub