Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit
GELÖST

Dateien Downloaden

Frage Entwicklung VB for Applications

Mitglied: cewiethemaster

cewiethemaster (Level 2) - Jetzt verbinden

23.04.2010 um 07:53 Uhr, 4678 Aufrufe, 12 Kommentare

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
Mitglied: manuel-r
23.04.2010 um 08:56 Uhr
Mit diesem Schnipsel
01.
strURL = "http://www.administrator.de" 
02.
Set ObjHTTP = CreateObject("Microsoft.XmlHttp") 
03.
ObjHTTP.open "GET", strURL, FALSE 
04.
objHTTP.send "" 
05.
WScript.Echo objHTTP.responseText 
06.
set ObjHTTP = nothing
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
Bitte warten ..
Mitglied: cewiethemaster
23.04.2010 um 09:00 Uhr
Und wie kann ihc das so machen, dass er die gesamte datei downloaded? nicht nur den Quelltext?
Bitte warten ..
Mitglied: bastla
23.04.2010 um 09:11 Uhr
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
Bitte warten ..
Mitglied: cewiethemaster
23.04.2010 um 09:14 Uhr
Ok. kann ich das Script in eine VB Datei "importieren"? Es soll ja ein Programmteil wwerden, kein Script...
Bitte warten ..
Mitglied: manuel-r
23.04.2010 um 09:15 Uhr
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
01.
strURL = "http://www.administrator.de" 
02.
strTgtFile = "c:\meinehtmldatei.html" 
03.
 
04.
Set ObjHTTP = CreateObject("Microsoft.XmlHttp") 
05.
ObjHTTP.open "GET", strURL, FALSE 
06.
objHTTP.send "" 
07.
 
08.
Set ObjFile = CreateObject("Scripting.FileSystemObject") 
09.
Set ObjTgtFile = ObjFile.OpenTextFile(strTgtFile, 2, true, 0) 
10.
ObjTgtFile.WriteLine objHTTP.responseText 
11.
ObjTgtFile.Close 
12.
 
13.
set ObjHTTP = nothing 
14.
set ObjFile = nothing 
15.
 
16.
WScript.Echo "Datei abgeholt und geschrieben. Fertig."
Bitte warten ..
Mitglied: cewiethemaster
23.04.2010 um 09:16 Uhr
Ja, aber es ist nur ein Script.

Wie kann ich dieses Script als Funktion in einem VB-Projekt einsetzten?


aber danke schonmal
Bitte warten ..
Mitglied: manuel-r
23.04.2010 um 09:29 Uhr
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.
Bitte warten ..
Mitglied: cewiethemaster
23.04.2010 um 09:39 Uhr
Ah. OK.
danke manuel -r

Sonst noch wer, der helfen kann?
Bitte warten ..
Mitglied: bastla
23.04.2010 um 10:00 Uhr
Hallo cewiethemaster!
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
Bitte warten ..
Mitglied: cewiethemaster
27.04.2010 um 09:19 Uhr
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?
Bitte warten ..
Mitglied: manuel-r
27.04.2010 um 10:07 Uhr
Ist Google heute offline? Gleich auf der ersten Seite gibt es den passenden Treffer.
Bitte warten ..
Ähnliche Inhalte
Batch & Shell
Dateien aus einer Liste anhand verschiedener Parameter kopieren (2)

Frage von gnumpf21 zum Thema Batch & Shell ...

Microsoft Office
XLSM Dateien ausschließlich von sicherem Speicherort genehmigen

Frage von ChrisIO zum Thema Microsoft Office ...

Windows Server
gelöst NTFS-Volume - Summe aller Dateien ist deutlich geringer als Volumegrösse (4)

Frage von Augenadler zum Thema Windows Server ...

Windows 10
gelöst Werden Dateien beim Ersetzen wirklich überschrieben? (3)

Frage von Nexder zum Thema Windows 10 ...

Heiß diskutierte Inhalte
Windows Installation
Eine etwas (wirklich) speziellere Frage: Windows 10-Installation über (16)

Frage von DerFurrer zum Thema Windows Installation ...

Multimedia & Zubehör
gelöst Iphone 6 prob (12)

Frage von jensgebken zum Thema Multimedia & Zubehör ...

Verschlüsselung & Zertifikate
gelöst Festplattenverschlüsselung im Ausland (12)

Frage von Nicolaas zum Thema Verschlüsselung & Zertifikate ...

Netzwerkgrundlagen
gelöst Cisco SG500 Series LAG hat sich von selbst umgestellt (11)

Frage von Ex0r2k16 zum Thema Netzwerkgrundlagen ...