Wer ist online?
Buchempfehlung
FreeBASIC-Chat
FreeBASIC-Nachrichten jetzt auch über Twitter erhalten. Follow us!fb:porticula NoPaste
JPG DOWNLOADER
| Uploader: |  Bull-T07 |
| Datum/Zeit: | 04.02.2008 18:53:48 |
Screen 18
Print "JPG Downloader by: Bull-T07"
INPUT "Wie ist Der Download Link ?", link$
Dim URLDownloadToFile as function ( _
ByVal pCaller As Long, _
ByVal szURL As zString ptr, _
ByVal szFileName As zString ptr, _
ByVal dwReserved As Long, _
ByVal lpfnCB As Long) As Long
Dim lR As Long
Dim sURL As String
Dim sFile As String
Dim library As Any Ptr
library=dylibload( "urlmon.dll" )
URLDownloadToFile=dylibsymbol(library, "URLDownloadToFileA" )
sURL = "link$ ";
sFile = "C:\bild1.jpg"
lR = URLDownloadToFile(0, sURL, sFile, 0, 0)
If lR = 0 Then
Print "Download erfolgreich!"
Sleep 5000
end
Else
Print "Fehler beim Download!"
Sleep 5000
End
End If