Bitte um Hilfe bei VBS

[Viech]

Hi Leute,

ich habe da mal eine wahrscheinlich recht simple Frage, aber da ich von VBS eigentlich keine Ahnung habe, komm ich damit leider nicht zurecht.
Ich habe ein Script gefunden und möchte, dass es in einem Chat z.B. jede Minute erneut sagt, dass ich abwesend bin. Ob das Sinn macht soll jetzt mal nicht zur Debatte stehen, mich interessiert einfach, was ich hätte machen müssen, um es zum Laufen zu bringen.
Hier das Script:

Dim FS, WS, Datei, oDatei, cmd1, cmd2
Set FS = CreateObject("Scripting.FileSystemObject")
Set WS = CreateObject("Wscript.Shell")
Datei = Left(Wscript.Scriptfullname, InStrRev(WScript.ScriptFullname, "\"))
Datei = Datei & "Textdatei.txt"
Set oDatei = FS.OpenTextFile(Datei, 1, TRUE)
cmd1 = "/me "
cmd2 = ""
' 3 Sekunden warten, bis Browser wieder aktives Fenster ist:
WScript.Sleep 3000
' Textdatei in Schleife abarbeiten:
Do While oDatei.AtEndOfStream <> TRUE
cmd2 = cmd1 & oDatei.ReadLine
WS.SendKeys(cmd2)
WS.SendKeys("{ENTER}")
Loop
oDatei.Close


In der Textdatei steht dann meinetwegen 'ist abwesend', sodass das Script dann '/me ist abwesend' schreibt, und das soll sich dann jede Minute, oder alle zwei oder drei Minuten wiederholen.
Also das 'Do' eröffnet ja die Schleife, dann kommt ein 'While oDatei.AtEndOfStream <> TRUE' dessen Bedeutung ich leider nicht so ganz verstehe und dann wird das '/me ist abwesend' geschrieben, worauf ein "Druck" auf die Enter-Taste folgt.
Danach sagt doch das 'Loop' so wie ich es verstehe, dass wieder bei 'Do' angefangen werden soll? Aber er schreibt mir den gewünschten Text nur ein einziges Mal in das Chatfenster und wiederholt sich nicht. Gut, es ist auch nirgendwo eine Zeitspanne angegeben, aber deswegen frage ich ja

Ich hoffe, ich habe die Frage im richtigen Forum dafür gestellt und bedanke mich schonmal im Vorraus für jede Hilfe

[Mario185]

Moin, also hier die lösung!

Du hast nur eine Do While Schleife, d.h. Sie wird nur so oft wiederholt bis die datei zu ende ist.

Dim FS, WS, Datei, oDatei, cmd1, cmd2
Set FS = CreateObject("Scripting.FileSystemObject")
Set WS = CreateObject("Wscript.Shell")
Datei = Left(Wscript.Scriptfullname, InStrRev(WScript.ScriptFullname, "\"))
Datei = Datei & "Textdatei.txt"
Set oDatei = FS.OpenTextFile(Datei, 1, TRUE)
cmd1 = "/me "
cmd2 = ""
' 3 Sekunden warten, bis Browser wieder aktives Fenster ist:
WScript.Sleep 3000
' Textdatei in Schleife abarbeiten:
Do While oDatei.AtEndOfStream <> TRUE
cmd2 = cmd1 & oDatei.ReadLine
WS.SendKeys(cmd2)
WS.SendKeys("{ENTER}")
Loop
oDatei.Close

Lösung 1.(Meiner meinung nach solltest du das aber nicht nutzen!)
Du machst eine zweite Endlosschleife über alles drüber so wird alles wiederholt

Lösung 2. (So solltest du es machen)
du gibst den gesamten Code in einen Timer der sich wiederholt.


Ich hoffe ich konnte helfen!!

mfg Littlerah