Hallo ich habe ein Script geschrieben
- Das Script soll das Wetterprogramm öffnen
- ist dieses offen, soll er die Wetterdaten holen
- Wenn der Ladebalken durch ist soll er Outlook öffnen
- und einen Screenshot machen
- und diesen per Mail senden
- dann soll er Outlook schließen
- dann soll er das MEVIS-Fenster öffnen
- die Daten exportieren
- wenn Bestimmte Fenster sich nach und nach öffen soll er sie abarbeiten
- am ende Mevis schließen
- Beenden bestätigen
run("C:\Programme\Mevis\Mevis.exe")
if WinActive("[CLASS:MEVIS]") then ;Frage 1 Schleife wird nicht ausgeführt warum?
sleep(1000)
Send("{ALT down}")
send("s")
send("m")
Send("{ALT up}")
Sleep(1000)
EndIf
if WinActive("[TITLE:Geräteabfrage:;CLASS:#32770]") then
send("{DOWN}")
send("{ENTER}")
SLEEP(2000)
EndIf
While 1
If WinActive("[CLASS:KomObj1]") Then
Sleep(3000)
Else
Send("{PRINTSCREEN}")
Run("C:\Programme\Microsoft Office\Office12\OUTLOOK.exe") ;öffnet outlook zuerst soll erst MEVIS öffnen dann Abfragen und erst wenn oben alles fertig weitermachen
sleep(5000)
send("^{n}")
If WinActive("[CLASS:rctrl_renwnd32]") then
sleep(3000)
send(max.mustermann@....de)
send("{TAB 3}")
send("Wetterstationsdaten heruntergeladen")
send("{Tab}")
send("Die Messwerte der Wetterstation wurden heruntergeladen")
send("{ENTER}{ENTER}")
send("^{v}")
sleep(1000)
send("!{s}")
sleep(1000)
Else
send("^{n}")
ExitLoop
Endif
ExitLoop
EndIf
WEnd
sleep(5000)
WinClose("[CLASS:rctrl_renwnd32]")
WinActivate("[CLASS:MEVIS]")
if WinActive("[CLASS:MEVIS]") then
send("!{e}")
sleep(1000)
send("{ENTER}")
EndIf
if WinActive("[TITLE:dBase-Datenbank ausgeben;CLASS:#32770]") then ;Winactive geht nicht!
send("{ENTER}")
EndIf
If WinActive("[TITLE:Datenbank speichern unter;CLASS:#32770]") then ;Winactive geht nicht!
send("{LEFT}")
sleep(1000)
send("{ENTER}")
EndIf
if WinActive("[TITLE:Datenbank speichern unter; CLASS:#32770]") then ;Winactive geht nicht!
send("{LEFT}")
send("{ENTER}")
EndIf
if WinActive("[TITLE:Frage;CLASS:#32770]") then ;Winactive geht nicht!
send("{ENTER}")
EndIf
sleep(20000)
WinClose("[CLASS:MEVIS]")
sleep(1000)
send("{LEFT}{ENTER}")
Exit
die grünen Texte sind meine problemstellen
Vielen DANK