Script für eine Datei auf einen Server öffnen/schliesen

  • Hallo,

    ich bräuchte ein script das ich auf meinem PC laufen lassen kann das auf meinem webserver eine datei im internetexplorer öffnet und wieder schließt nach ca. 10 sekunden. dies sollte immer in einem intervall von 1 min. passieren. ist das möglich ???

  • wie mit welchem sinn. das script soll eine internet seite aufmachen 10sek. offen lassen und wieder den internetexplorer schliesen. nach 3 min wieder aufmachen die URL und wieder nach 10 sek. schliesen. das die ganze zeit.

  • und wie mach ich das am besten??? kenne mich absolut damit ned aus. des scirpt soll bei mir auf dem pc laufen. kann mir da wer helfen.

  • Du hast denn Sinn dieser Aufgabe immer noch nicht erklärt, wozu benötigtst du diese Funktion. und die batch datei währe eien mitterliche Mehtode.

    An die hätte ich jetzt garnicht gedacht, da gibt es dach VB script für, wenn man es so lösen wolle.

  • ich verstehe nich was du meinst mit dem sinn??? es das script soll die datei öffnen und wieder schliesen. es ist um eine aktualisierung auf der hp durchzuführen. was willst du denn genau wissen ???

  • a = 0
    b = 30
    EMailSite = "http://bla.de"
    Do Until a = b
    set WshShell = wscript.CreateObject("wscript.Shell")
    READYSTATE_COMPLETE = 4
    Set MeinIE = CreateObject("InternetExplorer.Application")
    Do While MeinIE.Busy
    Loop
    MeinIE.Visible = 1
    MeinIE.Navigate EMailSite
    Do While MeinIE.ReadyState <> 4
    Loop
    Set oDoc = MeinIE.Document
    wscript.sleep "4000"
    MeinIE.Visible = 0
    wscript.sleep "1000"
    Set oDoc = Nothing
    Set oArea = Nothing
    Set oRng = Nothing
    Loop

    hmm ich habe was ich gesucht habe. Vielen dank für die HILFE. Besonders in die Schweiz :)

  • a = 0
    b = 30
    EMailSite = "http://www.icefighter.com/index.php?teamNr=101026 "
    Do Until a = b
    set WshShell = wscript.CreateObject("wscript.Shell")
    READYSTATE_COMPLETE = 4
    Set MeinIE = CreateObject("InternetExplorer.Application")
    Do While MeinIE.Busy
    Loop
    MeinIE.Visible = 1
    MeinIE.Navigate EMailSite
    Do While MeinIE.ReadyState <> 4
    Loop
    Set oDoc = MeinIE.Document
    wscript.sleep "4000"
    WshShell.sendkeys "%{F4}"
    wscript.sleep "500"
    MeinIE.Visible = 0
    wscript.sleep "1000"
    Set oDoc = Nothing
    Set oArea = Nothing
    Set oRng = Nothing
    Loop


    so nun funzt es. wenn jemand noch nen änderungs vorschlag hat gerne.

  • ah nee es funtzt doch ned. Fehler in Zeile 18 Wort 1 oder so.

    kann mir einer sagen was da ned so passt