12
Dateien Downloaden
Wie kann ich mit VB 2008 express eine oder Mehrere Dateien downloaden?
Hallo.
Wie kann ich mit VB2008 express eine Datei, die im Programm-Verzeichniss liegt durch einen von meinem WebSpace ersetzten?, aber nur wenn die auf dem Webspace aktueller ist?
es geht um eine HTML-Datei.
Die Aktuallitätsprüfung hab ich mir so vorgestellt:
Das Programm sucht im HTML-Dokument nach der Zeile:
"<version VERSION="1.2"> ", und vergleicht es mit der Selben Zeile im Webspace dokument.
Wenn das im Webspace höher ist, soll der Download gestartet werden.
Lässt sich das realisieren
Grüße, Cewie
Wie kann ich mit VB2008 express eine Datei, die im Programm-Verzeichniss liegt durch einen von meinem WebSpace ersetzten?, aber nur wenn die auf dem Webspace aktueller ist?
es geht um eine HTML-Datei.
Die Aktuallitätsprüfung hab ich mir so vorgestellt:
Das Programm sucht im HTML-Dokument nach der Zeile:
"<version VERSION="1.2"> ", und vergleicht es mit der Selben Zeile im Webspace dokument.
Wenn das im Webspace höher ist, soll der Download gestartet werden.
Lässt sich das realisieren
Grüße, Cewie
Share on Facebook
Share on Twitter
Share on Reddit
Share on LinkedinPlease also mark the comments that contributed to the solution of the article
Content-Key: 141299
Url: https://administrator.de/contentid/141299
Printed on: April 19, 2024 at 21:04 o'clock
12 Comments
Latest comment
Mit diesem Schnipsel kannst du per VBS den Quelltext einer Website holen. Der steht dann in objHTTP.responseText. Darin musst du dann nur noch mit der Funktion instr nach deiner Versionsbezeichnung suchen und anhand der dann eine Entscheidung treffen, ob der abgeholte Quelltext über ein Fileobjekt in eine Datei wandert oder ins Nirvana.
Manuel
strURL = "https://administrator.de"
Set ObjHTTP = CreateObject("Microsoft.XmlHttp")
ObjHTTP.open "GET", strURL, FALSE
objHTTP.send ""
WScript.Echo objHTTP.responseText
set ObjHTTP = nothingManuel
Und wie kann ihc das so machen, dass er die gesamte datei downloaded? nicht nur den Quelltext?
Und wie kann ihc das so machen, dass er die gesamte datei downloaded? nicht nur den Quelltext?
Das ist eine Frage der Definition von "gesamte datei" 
(was sich aber durch einen unverbindlichen Test des Scripts von manuel-r erübrigen dürfte) ...Grüße
bastla
Ok. kann ich das Script in eine VB Datei "importieren"? Es soll ja ein Programmteil wwerden, kein Script...
Eine HTML-Datei besteht nur aus dem Quelltext. Wenn du den hast, hast du auch die Datei. Der Inhalt von objHTTP.responseText muss nur noch in einer Datei mit dem Namen beispiel.html geschrieben werden. Fertig.
Das sieht dann etwa so aus
Das sieht dann etwa so aus
strURL = "https://administrator.de"
strTgtFile = "c:\meinehtmldatei.html"
Set ObjHTTP = CreateObject("Microsoft.XmlHttp")
ObjHTTP.open "GET", strURL, FALSE
objHTTP.send ""
Set ObjFile = CreateObject("Scripting.FileSystemObject")
Set ObjTgtFile = ObjFile.OpenTextFile(strTgtFile, 2, true, 0)
ObjTgtFile.WriteLine objHTTP.responseText
ObjTgtFile.Close
set ObjHTTP = nothing
set ObjFile = nothing
WScript.Echo "Datei abgeholt und geschrieben. Fertig."
Ja, aber es ist nur ein Script.
Wie kann ich dieses Script als Funktion in einem VB-Projekt einsetzten?
aber danke schonmal
Wie kann ich dieses Script als Funktion in einem VB-Projekt einsetzten?
aber danke schonmal
Mit VB kenne ich mich nicht aus nur einigermaßen mit VBS. Soweit ich weiß ist da aber vieles ziemlich ähnlich. Also sollte das Script als grober Anhalt schon mal taugen.
Ah. OK.
danke manuel -r
Sonst noch wer, der helfen kann?
danke manuel -r
Sonst noch wer, der helfen kann?
Hallo cewiethemaster!
) - damit's leichter geht: Als Ersatz für "
Grüße
bastla
Sonst noch wer, der helfen kann?
Zunächst solltest Du Dir selber helfen und es einfach einmal ausprobieren (lesen und verstehen wären natürlich auch nicht schlecht ) - damit's leichter geht: Als Ersatz für "WScript.Echo" bietet sich "MsgBox" an, und wenn Du "Option Explicit" gesetzt hast, wirst Du ein paar "Dim" brauchen ...Grüße
bastla
Ca. 30 Sekunden Google: http://msdn.microsoft.com/de-de/library/system.net.httpwebrequest(v=VS. ...
Ok. Ich mach es also mit VBS.
Wie kann ich dann am Ende des Scripts ein anderes Script laden?
Und wie kann ich das laufende Script durch ein neueres ersetzten?
Wie kann ich dann am Ende des Scripts ein anderes Script laden?
Und wie kann ich das laufende Script durch ein neueres ersetzten?
