In dem folgenden Skript möcht ich eine Variable für einen Fenstertitel verwenden. Leider scheint das nicht so ganz zu funktionieren. Vielleicht habt Ihr ja ne Idee was ich falsch mache.
Spoiler anzeigen
blockinput(1)
[/autoit] [autoit][/autoit] [autoit];$message="" & @LF & @LF & @LF &"Die Outlook Personalisierung wird gerade durchgeführt!!"& @LF & @LF &"Für diesen Zeitraum werden Ihre Tastatur und Maus gesperrt!" & @LF & @LF & @LF & "Diese Personalisierung wird ca 1 Minute dauern." & @LF & @LF & @LF & "sollte der Vorgang nicht binnen 3 Minuten beendet sein wenden Sie sich bitte an die IT-Abteilung." & @LF & "Telefon Hausintern: 615" &@LF & @LF & "Im Anschluss an diese Personalisierung werden die Tasstatur und Maus wieder freigegeben" & @LF & @LF &"Ihr IT-Team"
;SplashTextOn ( "Outlook Personalisierung",$message, 1000 , 600 , -1, -1 ,0 )
; ----------------Abfragen Abgesicherter Modus-----------------------------------------------
[/autoit] [autoit][/autoit] [autoit]WinWait("Microsoft Office Outlook", "")
;sleep(5000)
if WinExists("Microsoft Office Outlook", "Outlook konnte nicht im abgesicherten Modus gestartet werden.") Then
ControlClick("Microsoft Office Outlook", "Outlook konnte nicht im abgesicherten Modus gestartet werden.", "[CLASS:Button;INSTANCE:2]")
endif
if WinExists("Microsoft Office Outlook", "Outlook konnte zuletzt nicht korrekt gestartet werden.") Then
ControlClick("Microsoft Office Outlook", "Outlook konnte zuletzt nicht korrekt gestartet werden.", "[CLASS:Button;INSTANCE:1]")
endif
;-------------------------Ende Abgesicherter Modus--------------------------------------------------------------------------
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]; ----------------Outlook Daten importiern---------------------------------------------------
[/autoit] [autoit][/autoit] [autoit];sleep(5000)
[/autoit] [autoit][/autoit] [autoit]WinWait("Microsoft Office Outlook", "Outlook ist im Begriff")
;WinWait("[CLASS:#32770]", "Outlook ist im Begriff")
;sleep(1000)
if WinExists("Microsoft Office Outlook", "Outlook ist im Begriff") Then
;if WinExists("[CLASS:#32770]", "Outlook ist im Begriff") Then
ControlClick("Microsoft Office Outlook", "Outlook ist im Begriff", "[CLASS:Button;INSTANCE:1]")
;ControlClick("[CLASS:#32770]", "Outlook ist im Begriff", "[CLASS:Button;INSTANCE:1]")
;ControlClick("Microsoft Office Outlook", "Outlook ist im Begriff", "Button1")
endif
[/autoit] [autoit][/autoit] [autoit]; -----------------------Ende Outlook Daten importiern---------------------------------------------------------------------
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]; ----------------Konsec Fenster-------------------------------------------------------------
[/autoit] [autoit][/autoit] [autoit];sleep(5000)
WinWait("KONSEC Konnektor", "Der KONSEC Konnektor ist nun vollständig eingerichtet.")
;WinWait("[CLASS:#32770]", "Der KONSEC Konnektor ist nun vollständig eingerichtet.")
if WinExists("KONSEC Konnektor", "Der KONSEC Konnektor ist nun vollständig eingerichtet.") Then
;if WinExists("[CLASS:#32770]", "Der KONSEC Konnektor ist nun vollständig eingerichtet.") Then
WinActivate("KONSEC Konnektor", "Der KONSEC Konnektor ist nun vollständig eingerichtet.")
;WinActivate("[CLASS:#32770]", "Der KONSEC Konnektor ist nun vollständig eingerichtet.")
ControlClick("KONSEC Konnektor", "Der KONSEC Konnektor ist nun vollständig eingerichtet.", "[CLASS:Button;INSTANCE:1]")
;ControlClick("[CLASS:#32770]", "Der KONSEC Konnektor ist nun vollständig eingerichtet.", "[CLASS:Button;INSTANCE:1]")
endif
[/autoit] [autoit][/autoit] [autoit]; ---------------------Ende Konsec Fenster----------------------------------------------------------------------------------
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]; ---------------Add-In Fenster---------------------------------------------------------------
[/autoit] [autoit][/autoit] [autoit]sleep(5000)
; ACHTUNG: DIESES FENSTER DARF NICHT MIT ---"WINWAIT"--- VERSEHEN WERDEN, DA ES NICHT IMMER KOMMT UNS SO DAS SKRIPT ZUM STOCKEN BRINGT
;WinWait("Microsoft Office Outlook", "Microsoft Office Outlook kann das Add-In nicht ausführen")
;WinWait("[CLASS:#32770]", "Microsoft Office Outlook kann das Add-In nicht ausführen")
;sleep(1000)
[/autoit] [autoit][/autoit] [autoit]if WinExists("Microsoft Office Outlook", "Microsoft Office Outlook kann das Add-In nicht ausführen") Then
;if WinExists("[CLASS:#32770]", "Microsoft Office Outlook kann das Add-In nicht ausführen") Then
ControlClick("Microsoft Office Outlook", "Microsoft Office Outlook kann das Add-In nicht ausführen", "[CLASS:Button;INSTANCE:2]")
;ControlClick("[CLASS:#32770]", "Microsoft Office Outlook kann das Add-In nicht ausführen", "[CLASS:Button;INSTANCE:2]")
endif
[/autoit] [autoit][/autoit] [autoit]; --------------------Ende Add-In Fenster------------------------------------------------------------------------------------
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]$passwd = EnvGet("PASSWORD")
;MsgBox(0, "Example", "Das Benutzerpasswort lautet: " & $passwd)
$counter = 2 * EnvGet("COUNTER")
;muss gegebenefalls wieder aktiviert werden 28.08.2008
;$zaehler = 2 * $counter
;MsgBox(0, "Anzahl Postfächer", "Anzahl der zu konfigurierenden Postfächer: " & $counter)
;MsgBox(0, "Zähler", "Zähler ist: " & $zaehler)
$pwsuffix = "XYZ"
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]; -------------Outlook Passwort Fenster-------------------------------------------------------
[/autoit] [autoit][/autoit] [autoit];Opt("WinTitleMatchMode", 2)
[/autoit] [autoit][/autoit] [autoit];sleep(5000)
;Sleep(10000)
WinWait("Internet-E-Mail - ", "Geben Sie Ihren Benutzernamen und Ihr Kennwort")
;WinWaitActive("[CLASS:#32770]", "Geben Sie Ihren Benutzernamen und Ihr Kennwort", )
For $i = 1 To $counter Step 1
;sleep (1000)
;If WinActive("Internet-E-Mail - Persönliches Postfach", "") Then
If WinExists("Internet-E-Mail - Persönliches Postfach", "") Then
ControlSetText("Internet-E-Mail - Persönliches Postfach", "", "[CLASS:Edit;INSTANCE:1]", $passwd )
;sleep(1000)
ControlClick("Internet-E-Mail - Persönliches Postfach", "", "[CLASS:Button;INSTANCE:1]")
;sleep(1000)
ControlClick("Internet-E-Mail - Persönliches Postfach", "", "[CLASS:Button;INSTANCE:2]")
Endif
;If WinActive("Internet-E-Mail -", "") Then
If WinExists("Internet-E-Mail -", "") Then
$ref = " "
$title = " "
$title = WinGetTitle("Internet-E-Mail -", "")
;MsgBox(0, "Name des obersten, aktiven Fensters:", $title)4
;$ref = ControlGetText("Internet-E-Mail - ", "", "[CLASS:RichEdit20WPT;INSTANCE:1]")
$ref = ControlGetText($title, "", "[CLASS:RichEdit20WPT;INSTANCE:1]")
;MsgBox(0, "Name des Referates:", $ref)
;MsgBox(0, "gesamte Passwortausgabe:", $ref & $pwsuffix )
;ControlSetText("Internet-E-Mail - ", "", "[CLASS:Edit;INSTANCE:1]", $ref & $pwsuffix )
ControlSetText($title, "", "[CLASS:Edit;INSTANCE:1]", $ref & $pwsuffix )
;sleep(1000)
;ControlClick("Internet-E-Mail - ", "", "[CLASS:Button;INSTANCE:1]")
ControlClick($title, "", "[CLASS:Button;INSTANCE:1]")
;sleep(1000)
;ControlClick("Internet-E-Mail - ", "", "[CLASS:Button;INSTANCE:2]")
ControlClick($title, "", "[CLASS:Button;INSTANCE:2]")
;$ref = " "
;sleep (2000)
Endif
Next
;SplashOff ( )
[/autoit] [autoit][/autoit] [autoit]Winkill("Posteingang - Microsoft Outlook")
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]blockinput(0)
Exit
; --------------------Ende Outlook Passwort Fenster------------------------------------------------------------------
[/autoit]Edit Mega: Tags