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, 4672 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 ..
Neuester Wissensbeitrag
Festplatten, SSD, Raid

12TB written pro SSD in 2 Jahren mit RAID5 auf Hyper-VServer

Erfahrungsbericht von Lochkartenstanzer zum Thema Festplatten, SSD, Raid ...

Ähnliche Inhalte
Windows 7
Kopierte Dateien im Hintergrund anzeigen (1)

Frage von MichiBLNN zum Thema Windows 7 ...

Festplatten, SSD, Raid
Reallocated sectors count: Welche Dateien befinden sich in den beschädigten Sektoren? (9)

Frage von DunkleMaterie zum Thema Festplatten, SSD, Raid ...

Heiß diskutierte Inhalte
Windows Userverwaltung
Ausgeschiedene Mitarbeiter im Unternehmen - was tun mit den AD Konten? (34)

Frage von patz223 zum Thema Windows Userverwaltung ...

LAN, WAN, Wireless
gelöst Server erkennt Client nicht wenn er ausserhalb des DHCP Pools liegt (28)

Frage von Mar-west zum Thema LAN, WAN, Wireless ...

LAN, WAN, Wireless
FritzBox, zwei Server, verschiedene Netze (21)

Frage von DavidGl zum Thema LAN, WAN, Wireless ...

Viren und Trojaner
Aufgepasst: Neue Ransomware Goldeneye verbreitet sich rasant (20)

Link von Penny.Cilin zum Thema Viren und Trojaner ...