Jump to content

VB SCript vs. Control


Der letzte Beitrag zu diesem Thema ist mehr als 180 Tage alt. Bitte erstelle einen neuen Beitrag zu Deiner Anfrage!

Recommended Posts

Hallo,

ich bin voelliger Anfaenger in der VB-Script Programmierung (nicht in Programmierung, keine Angst ;) ) und will mir nun ein Script basteln was mir ein Bild aus dem Internet runterlaed und dann mit aktuellem Datum speichert. Das wird dann vom Taskplaner jede halbe Minute ausgefuehrt.

 

Jetzt hab ich das gefunden:

http://www.vbwelt.de/vb_welt/tools/show.asp?f=Allgemein%5CInternet+Files%2Exml

 

Genau das will ich ja auch.

 

Leider geht das aufgefuehrte Beispiel ja nicht so einfach, also hab ich durch lesen und ausprobieren herausgefunden:

 

Dim InetFile1

Set InetFile1 = CreateObject( "InternetFile.inetFile")

InetFile1.Url = "http://nessi/imgs/nessi.jpg"
InetFile1.Load "c:\logo.jpg"

 

nessi ist hier mein lokaler server.

 

1. eine Frage: wie findet man heraus, dass bei CReateObject InternetFile.inetFile stehen muss??? Das war dann eher so ein ausprobieren...

2. Jetzt laeuft das Script ohne Fehlermeldung, allerdings passiert auch nichts.

3. Achja, ich hab auch noch

regsvr32 C:\WINDOWS\system32\inetFile.ocx

ausgefuehrt.

War das korrekt?

 

Den Dateinamen will ich mir so bauen:

filename = Year(Now) & Right("0" & month(Now),2) & Right("0" & Day(Now),2) & "-" & Right("0" & Hour(Now),2) & Right("0" & Minute(Now),2) & Right("0" & Second(Now),2) & ".jpg"

 

 

Danke fuer eure Hilfe.

 

Achja, gibt es sowas wie php.net auch fuer VBScript?

Link to comment

@hirgelzwift:

nessi ist hier mein lokaler server.

 

@misterpink:

Ich würde mich in dieser Angelegenheit direkt an den Autoren des Tools wenden. Die Beschreibung auf vbwelt ist ja wirklich etwas spärlich.

 

Zu deinem Trost: bei mir funktioniert es auch nicht, keine Fehlermeldung, aber auch kein Erfolg.

Link to comment

Ist schon richtig, ist die lokale Domain, OK, nicht ganz konform.

 

Also hab ich mal die IP Adresse probiert.

Fehlanzeige.

Dann das:

InetFile1.Url = "http://www.google.de/intl/de_de/images/logo.gif"

 

Und schwupps war logo.jpg da.

Allerdings war es auch das einzige mal. danach hab ich es mal geloescht, aber heruntergeldaen wurde es nicht mehr....sehr merkwuerdig.

 

So gehts:

 

Dim InetFile1

Set InetFile1 = CreateObject( "InternetFile.inetFile")

filename = Year(Now) & Right("0" & month(Now),2) & Right("0" & Day(Now),2) & "-" & Right("0" & Hour(Now),2) & Right("0" & Minute(Now),2) & Right("0" & Second(Now),2) & ".jpg"

InetFile1.Url = "http://www.google.de/intl/de_de/images/logo.gif"
InetFile1.Load "c:\" & filename

msgbox filename

 

Lasse ich jedoch das msgbox weg, gehts nicht!

Man man man, was mache ich jetzt?

 

Mit IP Adresse gehts auch nicht, das ist dumm, naja.

Link to comment

Ich hab mal ein bisschen probiert, da mich das auch interessiert und ich das Tool praktisch finde.

 

Nach ausgiebigem Test funktioniert dieser Code:

Dim InetFile1

Set InetFile1 = CreateObject( "InternetFile.inetFile")

InetFile1.Url = "http://www.google.de/intl/de_de/images/logo.gif"
InetFile1.Load "c:\logo.gif"

msgbox "irgendein text"

Alles hängt an der Messagebox. Ohne geht es nicht.

Link to comment

Ich glaube so ist es noch am besten:

filename = Year(Now) & Right("0" & month(Now),2) & Right("0" & Day(Now),2) & "-" & Right("0" & Hour(Now),2) & Right("0" & Minute(Now),2) & Right("0" & Second(Now),2) & ".jpg"

Set objShell = CreateObject("WScript.Shell")
objShell.Run "BildSpeichern -O C:\" & filename & " http://www.google.de/images/logo_sm.gif"

 

BildSpeichern ist eine Verknuepfung auf wget (http://xoomer.virgilio.it/hherold/) wo wget minimiert ausgefuehrt wird.

 

zwar nicht so schoen, funktioniert dafuer aber stabiler...

Link to comment
Der letzte Beitrag zu diesem Thema ist mehr als 180 Tage alt. Bitte erstelle einen neuen Beitrag zu Deiner Anfrage!

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
×
  • Create New...