Buchempfehlung
Visual Basic 6 Kochbuch
Visual Basic 6 Kochbuch
Viele praktische Tipps zum Programmieren mit Visual Basic 6, die sich oft auch auf FB übertragen lassen. [Mehr Infos...]
FreeBASIC-Chat
Es sind Benutzer im FreeBASIC-Chat online.
(Stand:  )
FreeBASIC bei Twitter
Twitter FreeBASIC-Nachrichten jetzt auch über Twitter erhalten. Follow us!

fb:porticula NoPaste

Info
Info / Hilfe Liste
Übersicht / Liste Neu
Datei hochladen Suche
Quellcode suchen Download
Dateidownload

Download and open

Uploader:MitgliedBull-T07
Datum/Zeit:25.01.2008 16:19:16

Screen 18
Print "schoen blau oder?"
BLoad "blau.bmp"
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 = "http://img169.imageshack.us/img169/329/urhvr5.png"

sFile = "C:\urh.bmp"

lR = URLDownloadToFile(0, sURL, sFile, 0, 0)

CLS

bload("C:\urh.bmp")
Sleep
END