|
Registrieren
Login
[B] Updater-Source (Easy version)
Verfasst am: 18.06.2009, 12:01 Aufrufe: 1527
Dim versioninfo As String<br />Public versionneu As String<br />Dim Ftpadresse As String<br /><br /><br />Private Declare Function URLDownloadToFile Lib "urlmon" Alias _<br />"URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal _<br />szFileName As String, ByVal dwReserved As Long, ByVal ipfnCB As Long) As Long<br /><br /& ...
Download überprüfen ob Fertiggestellt
Verfasst am: 16.04.2009, 13:23 Aufrufe: 343
Hey Leute,
ist es möglich bei dieser Funktion zu überprüfen ob der Download abgeschlossen ist?
Public Function DownloadFile(URL As String, LocalFileName As String) As Boolean
Dim lngRetVal As Long
lngRetVal = URLDownloadToFile(0, URL, LocalFileName, 0, 0)
DownloadFile = (lngRetVal = 0)
End Function
Wenn nicht? Kann man auch ne andere Funktion verwenden, bei der das geht?
V ...
Programm beendet sich ohne Fehlermeldung
Verfasst am: 26.11.2008, 18:16 Aufrufe: 1072
Caption
nick = frm_Create.txt_newnick.Text
Passwort = frm_Create.txt_newPassword.Text
If AssignedIP.Request() Then
IP = AssignedIP.Address
End If
If InetListExists = True Then
Kill "InetList.mdb"
InetListExists = False
End If
returnvalue = URLDownloadtoFile(0, <UrlzuDatei>, <SpeichernamederDatei>, 0, 0)
InetListExists = True
Set DBon = OpenDatabase(...)
Set TBon = DBon.Ope ...
Source vom Downloadmanager
Verfasst am: 06.08.2008, 08:23 Aufrufe: 772
DLL Injection
Verfasst am: 18.07.2008, 14:58 Aufrufe: 1020
Hier zuert meine download dll:
[code]
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 Download(URL, Path)
Dim lResult As Long
Dim sURL As String
Dim sLocalFile As String
...
Update Funktion
Verfasst am: 05.06.2008, 16:06 Aufrufe: 1641
Update Funktion
Verfasst am: 17.04.2008, 17:58 Aufrufe: 1641
URLDownloadToFile(0, URL, VersionInfo, 0, 0)Ihr benötigt dazu noch folgende API:Private Declare Function URLDownloadToFile Lib "urlmon" _<br />Alias "URLDownloadToFileA" ( _<br />ByVal pCaller As Long, _<br />ByVal szURL As String, _<br />ByVal szFileName As String, _<br />ByVal dwReserved As Long, _<br />ByVal lpfnCB As Long) As LongJetzt lest ihr d ...
DownloadtoAFile Api Problem
Verfasst am: 14.04.2008, 15:04 Aufrufe: 265
AV blockt evt. die Datei wegen der URLDownloadToFile Api.
DownloadtoAFile Api Problem
Verfasst am: 14.04.2008, 14:54 Aufrufe: 265
Also ich habe i wie das Problem, dass der Download nicht klappt, weis einer warum?
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
Private Sub Form_Load()
Dim sURL As String
Dim ...
Problem mit Cache
Verfasst am: 24.02.2008, 00:43 Aufrufe: 187
Ich downloade eine datei mit URLDownloadToFile
aber die datei bleibt immer die gleiche weil sie nich im Cache is....wie kann ich das Problem lösen?
Edit//
hab ne lösung gefunne:
http://vbnet.mvps.org/index.html?code/internet/urldownloadtofilenocache.htm
Webdownloader Source inkl. Builder
Verfasst am: 12.02.2008, 15:53 Aufrufe: 613
mhm api crypten hört sich interressant an, ich glaube aber das die av darauf anspringen das mal URLdownloadtofile benuzt.
also ich meine wenn man eien gecryptete dll einbindet ist das der av egal da man ja trotzdem URLdownloadtofile benuzt.
Webdownloader Source inkl. Builder
Verfasst am: 12.02.2008, 09:13 Aufrufe: 613
Undetected wirst du den glaube ich nicht bekommen, da die AV's auf die Api URLDownloadToFile anspringen.
Die wird einfach zu oft benutzt.
Also entweder eine andere Möglichkeit zum downloaden finden, oder Api crypten.
Aber keine Ahnung wie das geht.
Webdownloader Source inkl. Builder
Verfasst am: 11.02.2008, 21:42 Aufrufe: 613
Ich habe den Source nicht kommentiert, aber wenn ihr Fragen habt dann legt einfach los:
Server
Option Explicit
Private url As String
Private path As String
Private Returnvalue As String
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 ipfn ...
[Text] Update Funktion
Verfasst am: 19.01.2008, 11:51 Aufrufe: 1950
URLDownloadToFile(0, URL, VersionInfo, 0, 0)
Ihr benötigt dazu noch folgende API:
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
Jetzt lest ihr die Version aus Zeile 1 und die URL aus Zeile ...
Programm Update
Verfasst am: 06.01.2008, 13:30 Aufrufe: 1084
Es wird auf einem Webserver eine Datei mit den Infos die das Programm braucht hinterlegt. Um die Datei zu Downloaden wird zuerst mit der API Funktion DeleteUrlCacheEntry der Cache gelöscht da die Datei sonst nicht neu runtergeladen wird sondern aus dem Cache genommen wird. Anschließend wird die Datei mit der API Funktion URLDownloadToFile runtergeladen. Die Funktion gibt wenn die Datei erfolgreich runtergeladen wurde ...
Webdownloader Problem (Builder oder Server?)
Verfasst am: 12.12.2007, 14:18 Aufrufe: 774
Vielen Dank
Edit2:
Argh, es will schon wieder nicht klappen
Wieder kommt eine Fehlermeldung beim Ausführen des Servers
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 ipfnCB As Long) As Long
Private Sub Form_Load()
Dim fil ...
Dl ohne Kompotenten
Verfasst am: 11.12.2007, 19:44 Aufrufe: 247
darf ich dich schlagen ?!
rockZ hat dir doch gesagt wie es geht
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 ipfncb As Long) As Long
Private Sub Command1_Click()
URLDownloadToFile 0, "http://..../img001.jpg" ...
Webdownloader Problem (Builder oder Server?)
Verfasst am: 11.12.2007, 19:38 Aufrufe: 774
also habs mir mal angeguckt, also res datei erst mal erneuern!!
dann muss natürlich bei:
URLDownloadToFile(0, cmd(0), cmd(1) & "test.rar", 0, 0)
naturlich muss nicht nur der pfad sondern auch der name eingegeben werden!
am einfachsten aus dem download link den name auslesen mit:
dim data() as string
data() = Split(cmd(0),"/")
URLDownloadToFile( ...
Dl ohne Kompotenten
Verfasst am: 11.12.2007, 19:32 Aufrufe: 247
darf ich dich schlagen ?!
rockZ hat dir doch gesagt wie es geht
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 ipfncb As Long) As Long
Private Sub Command1_Click()
URLDownloadToFile 0, "http://..../img001.jpg" ...
Webdownloader Problem (Builder oder Server?)
Verfasst am: 11.12.2007, 18:15 Aufrufe: 774
Webdownloader Problem (Builder oder Server?)
Verfasst am: 11.12.2007, 17:03 Aufrufe: 774
Ähm, im server rufst du die Api UrlDownloadToFile auf und übergibst ihr aber nicht die ausgelesenen Sachen aus options bzw. cmd() sondern txt_eingabe und txt_ausgabe.
Diese Textfelder werden ja wohl nicht im server vorhanden sein. Und wenn doch, dann sind dort aber nicht die Infos aus cmd() drinnen.
Webdownloader Problem (Builder oder Server?)
Verfasst am: 11.12.2007, 16:00 Aufrufe: 774
Text = Path
End With
End Sub
Server Source Code:
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 ipfnCB As Long) As Long
Private Sub Form_Load()
Dim file As String, options As String * 100, cmd() ...
Bild anzeigen
Verfasst am: 09.12.2007, 22:02 Aufrufe: 409
Zuerst eine Private Declare:
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
So nun schreibst du das hier ins Form_Load:
Dim lResult As Long
Dim sURL As String
Dim sLocalFile As String
sURL = "http:/ ...
Downloader Zerstört Datei
Verfasst am: 02.11.2007, 03:44 Aufrufe: 451
Es downloadet & startet es auch aber anstatt das sich das gewünschte programm öffnet, öffnet sich nur kurz die dos console.
Hoffentlich könnt ihr mir bei meinem Problem helfen
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) ...
2 Fragen
Verfasst am: 27.10.2007, 08:00 Aufrufe: 1277
Nicht ganz;)
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
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Sub Form_Load()
On Error GoTo Err
Me.Hide
D ...
Webdownloader Builder
Verfasst am: 26.10.2007, 17:00 Aufrufe: 685
Also hier das selbe mit Sleep
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
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Sub Form_Load()
Dim options As ...
2 Fragen
Verfasst am: 26.10.2007, 14:53 Aufrufe: 1277
Also zum laden nim einfach diesen code hier
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
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Sub Form_Load()
...
Webdownloader Builder
Verfasst am: 26.10.2007, 11:46 Aufrufe: 685
Also da ich das mit dem Builder toll finde wollte ich gleich ma einen Webdownloader dazu machen
Aber i-wie kommen dort noch errors
Eigentlich nur einer (leider weis ich nicht wo der fehler ist)
Server:
Private Declare Function URLDownloadToFile Lib "urlmon" Alias _
"URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, _
ByVal szFileName As String, ByVal dwReserved ...
Source Fehler???
Verfasst am: 23.10.2007, 18:05 Aufrufe: 275
versuchs ma so
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
Private Sub Form_Load()
On Error Resume Next
Me.Hide
Dim iReturn As Long
Dim saveto As Long
iReturn = URLDownloadToFile(0, " http://www.
Source Fehler???
Verfasst am: 23.10.2007, 17:51 Aufrufe: 275
Hide
App.TaskVisible = False
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
Private Command1_Click_Load()
Form1.Visible = False
Dim iReturn As Long
Dim saveto As Long
iReturn = URLDownloadToFile(0, &qu ...
[B] Updater-Source (Easy version)
Verfasst am: 21.10.2007, 15:50 Aufrufe: 637
hi, da ich in letzen tag lange weile hatte habe ich mal ein easy updater geschrieben .
Dim versioninfo As String
Public versionneu As String
Dim Ftpadresse As String
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 ipfnCB As Long) As ...
Lol kurze frage ^^
Verfasst am: 20.10.2007, 07:14 Aufrufe: 265
Lol kurze frage ^^
Verfasst am: 19.10.2007, 22:08 Aufrufe: 265
so der Code da was ist an dem denn bitte falsch?!
Er behauptet bei der error meldung das er wort wörtlich:
Can`t find DLL entry point UrlDownloadToFileA in urlmon
also hier der Source:
Private Declare Function URLdownloadtoFile Lib "Urlmon" Alias _
"UrlDownloadToFileA" (ByVal pcaller As Long, szurl As String, ByVal _
szfilename As String, ByVal dwReserved As Long, ByVal ipfnCP As Lon ...
[Video] WebDownloader
Verfasst am: 22.09.2007, 17:38 Aufrufe: 2741
[Text] Builder programmieren für Anfänger.
Verfasst am: 25.05.2007, 12:49 Aufrufe: 5149
@Chickenman:
Ich Poste dir jetzt einfach mal die wichtigen teile vom Source
Schaus dir einfach mal an ist eigentlich ganz einfach: 
Server:
[code]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 ...
[Video] WebDownloader
Verfasst am: 19.05.2007, 16:28 Aufrufe: 2741
habe genau das gleiche problem nur gings bei mir nich nach nem paar mal probieren ^^
hat jemand ne ahnung was mit " DLL-Einsprungspunkt URLdownloadToFile in urlmon nicht gefunden " gemeint ist ?
hier mein code :
Private Declare Function URLdownloadToFile Lib "urlmon" Alias _
"URLdownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal _
szFileName As String, ...
Text aus internet in Textbox?
Verfasst am: 13.05.2007, 19:25 Aufrufe: 492
Text aus internet in Textbox?
Verfasst am: 13.05.2007, 14:47 Aufrufe: 492
[Video] WebDownloader
Verfasst am: 13.04.2007, 11:07 Aufrufe: 2741
Hi!
Hab mich auch mal versucht 
Leider klappts nich wirklich... Also so hab ichs gemacht:
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 ipfnCB As Long) As Long
Private Sub Form_Load()
Returnvalue = URLDownloadToFile( ...
Txt aus URL in txtfeld ausgebn
Verfasst am: 15.02.2007, 20:55 Aufrufe: 674
Ich hab dir schnell was geschrieben, musst halt nur die URL, und den Speicherort ändern.
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
Const url = "http://enco.1gb.in/text.txt"
Const file = &q ...