Download fil fra den hjemmeside

jeg havde en gang set inde i tips og tricks en kode så man kunne downloade file fra en hjemmeside men nu kan jeg ikke finde den er der noget der har noget der linder

fx når man trykker på knappen så henter den en fil fra min hjemmeside en slags update program jeg er ved at lave men håber der er nogen der ligger inde med sådan en kode

//ETA
Http://www.eta-wall.tk/

PS. Glemte at sætte point på den der har denne her kode eller en slags får 150 point !

[Redigeret d. 18/10-03 08:32:31 af Emil Thor Andersen]

Indsæt følgende kode i et modul, så koden kan bruges Globalt...

Public Function DownloadFile(URL As String, LocalFilename As String) As Boolean
On Error GoTo ReportBug


Dim lngRetVal As Long

lngRetVal = URLDownloadToFile(0, URL, LocalFilename, 0, 0)

If lngRetVal = 0 Then DownloadFile = True

Exit Function

ReportBug:
MsgBox "Could not connect to the Internet or something else went wrong!", vbCritical, "Error"

End Function

Dernæst indsætter du følgende kode under et hvilkensomhelst sted.

DownloadFile "MIN-URL-STI-TIL-EXE-ELLER-LIGN.EXE", App.Path & "\\temp.exe" 'Hvor den skal ligge lokalt på din computer...

NB: Ved at benytte URLMON i denne facon, låser din applikation, pga. den optager det dedikerede thread dit VB program har. Har en løsning på dette problem, men det må du kontakte mig nærmere om! ;-)

www.andreaslinks.tk - Company Site
www.ournameclan.tk - AA : O Clan site

[Redigeret d. 18/10-03 11:03:48 af Andreas Hartvig(A.L.P)]

jeg kan desvære ikke få koden til at virke men kan se det er den der var på siden hvis det hjælper så køre jeg "me" men det er bedst at det virker på alle systemer (windows)

jeg kan desvære ikke få koden til at virke men kan se det er den der var på siden hvis det hjælper så køre jeg "me" men det er bedst at det virker på alle systemer (windows)

Argh, sorry, my bad... Der skal selvfølgelig deklareres nogle kald til URLMON... Her er de

Public 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

www.andreaslinks.tk - Company Site
www.ournameclan.tk - AA : O Clan site

jeg kan desvære ikke få koden til at virke men kan se det er den der var på siden hvis det hjælper så køre jeg "me" men det er bedst at det virker på alle systemer (windows)


Argh, sorry, my bad... Der skal selvfølgelig deklareres nogle kald til URLMON... Her er de

Public 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

www.andreaslinks.tk - Company Site
www.ournameclan.tk - AA : O Clan site

hej igen efter jeg har indsat det nye du har skrevet så kommer den op med denne her fejl
www.eta.frac.dk/fejl.jpg
vis du gider kan du så ikke lave projectet og så gemme det i zip fil og se om den gør det samme stadig
//ETA
Http://www.eta-wall.tk/

jeg kan desvære ikke få koden til at virke men kan se det er den der var på siden hvis det hjælper så køre jeg "me" men det er bedst at det virker på alle systemer (windows)


Argh, sorry, my bad... Der skal selvfølgelig deklareres nogle kald til URLMON... Her er de

Public 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

www.andreaslinks.tk - Company Site
www.ournameclan.tk - AA : O Clan site

hej igen efter jeg har indsat det nye du har skrevet så kommer den op med denne her fejl
www.eta.frac.dk/fejl.jpg
vis du gider kan du så ikke lave projectet og så gemme det i zip fil og se om den gør det samme stadig
//ETA
Http://www.eta-wall.tk/

Du skal jo sætte deklarationen i et modul, sammen med funktionen

www.andreaslinks.tk - Company Site
www.ournameclan.tk - AA : O Clan site

nu virker det. nu til overføre point hvordan gør jeg det når der ikke er sadt point svar på?

Kan du ikke.

Med Venlig Hilsen
Morten Torndahl Pedersen