Error in Expression Line 96

    Die Anwendung lauft relativ weit doch beim klick auf èbernehmen, erscheint immer die Meldung "Error in Expression Line 96".
    Bitte um Hilfe, Ich sehe mein Fehler nicht.
    Danke Mauri

    Spoiler anzeigen
    [autoit]

    #include <GUIConstantsEx.au3>
    Opt('MustDeclareVars', 1)
    languagesettings()
    Func languagesettings()
    Local $msg, $nMsg, $os, $office, $keyboard, $applay

    [/autoit] [autoit][/autoit] [autoit]

    ;If @OSVersion = "WIN_7" Then
    ; Else
    ; MsgBox(0, "Info", "Die Anwendung wurde NUR für Windows 7 Multilanguage entwickelt")
    ; Exit
    ;EndIf
    GUICreate("Sprachwahl",175 ,210) ; Fnester mit Titel wird erstellt
    GuiCtrlCreateLabel("Betriebsystem Sprache", 26, 24)
    $os = GUICtrlCreateCombo("", 25, 40, 120) ; Auswahlfenster Leer
    GUICtrlSetData(-1, "Deutsch|Englisch|Franzoesisch", "") ; nachfolgende möglichkeiten bestehen

    [/autoit] [autoit][/autoit] [autoit]

    GuiCtrlCreateLabel("Office Sprache", 26, 75)
    $office = GUICtrlCreateCombo("", 25, 90, 120) ; Auswahlfenster Leer
    GUICtrlSetData(-1, "Deutsch|Englisch|Franzoesisch", "") ; nachfolgende möglichkeiten bestehen

    [/autoit] [autoit][/autoit] [autoit]

    GuiCtrlCreateLabel("Tastatur Layout", 26, 125)
    $keyboard = GUICtrlCreateCombo("", 25, 140, 120) ; Auswahlfenster Leer
    GUICtrlSetData(-1, "Deutsch_Swiss|Deutsch Franz|Deutschland|Englisch US|", "") ; nachfolgende möglichkeiten bestehen

    [/autoit] [autoit][/autoit] [autoit]

    $applay = GUICtrlCreateButton(" Übernehmen ", 25, 180, 120)
    GUISetState()
    While 1
    If GUICtrlRead($os) And GUICtrlRead($office) And GUICtrlRead($keyboard) <> "" Then
    If BitAND(GUICtrlGetState($applay), $GUI_DISABLE) Then GUICtrlSetState($applay, $GUI_ENABLE)
    Else
    If BitAND(GUICtrlGetState($applay), $GUI_ENABLE) Then GUICtrlSetState($applay, $GUI_DISABLE)
    EndIf
    $nMsg = GUIGetMsg()
    Switch $nMsg

    [/autoit] [autoit][/autoit] [autoit]

    Case $GUI_EVENT_CLOSE
    Exit
    Case $applay
    ;MsgBox(64, "", GUICtrlRead($os)&GUICtrlRead($office), 8)
    OSSelection($os)
    OfficeSelection($office)
    KeyboardSelection($keyboard)

    [/autoit] [autoit][/autoit] [autoit]

    MsgBox(64, "Info","Die Sprachen wurden angepasst, " @CR _
    "logout wird durch klicken von Button <OK> durchgeführt")
    RunWait(@ComSpec & " /c " & "shutdown /l", "", @SW_HIDE)
    EndSwitch
    WEnd
    EndFunc ;==>EndFunction languagesettings

    [/autoit] [autoit][/autoit] [autoit]

    Func OSSelection($os)
    switch GUICtrlRead($os)
    Case "Deutsch"
    RegWrite("HKEY_CURRENT_USER\Control Panel\Desktop", "PreferredUILanguages", "REG_MULTI_SZ", "de-DE")
    Case "Englisch"
    RegWrite("HKEY_CURRENT_USER\Control Panel\Desktop", "PreferredUILanguages", "REG_MULTI_SZ", "en-US")
    Case "Franzoesisch"
    RegWrite("HKEY_CURRENT_USER\Control Panel\Desktop", "PreferredUILanguages", "REG_MULTI_SZ", "fr-FR")
    EndSwitch
    EndFunc ;==>EndFunction OSSelection
    Func OfficeSelection($office)
    switch GUICtrlRead($office)
    Case "Deutsch"
    RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Office\14.0\Common\LanguageResources", "UILanguage", "REG_DWORD", 407)
    RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Office\14.0\Common\LanguageResources", "HelpLanguage", "REG_DWORD", 407)
    RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Office\14.0\Common\LanguageResources", "INstallLanguage", "REG_DWORD", 807)
    RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Office\14.0\Common\LanguageResources", "PreviousInstallLanguage", "REG_DWORD", 409)
    RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Office\14.0\Common\LanguageResources", "MTTF", "REG_DWORD", 240)
    RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Office\14.0\Common\LanguageResources", "MTTA", "REG_DWORD", 240)
    RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Office\14.0\Common\LanguageResources", "PreviousUI", "REG_DWORD", 409)
    Case "Englisch"
    RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Office\14.0\Common\LanguageResources", "UILanguage", "REG_DWORD", 409)
    RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Office\14.0\Common\LanguageResources", "HelpLanguage", "REG_DWORD", 409)
    RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Office\14.0\Common\LanguageResources", "INstallLanguage", "REG_DWORD", 409)
    RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Office\14.0\Common\LanguageResources", "PreviousInstallLanguage", "REG_DWORD", 807)
    RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Office\14.0\Common\LanguageResources", "MTTF", "REG_DWORD", 225)
    RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Office\14.0\Common\LanguageResources", "MTTA", "REG_DWORD", 225)
    RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Office\14.0\Common\LanguageResources", "PreviousUI", "REG_DWORD", 407)
    Case "Franzoesisch"
    RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Office\14.0\Common\LanguageResources", "UILanguage", "REG_DWORD", 1036)
    RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Office\14.0\Common\LanguageResources", "HelpLanguage", "REG_DWORD", 1036)
    RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Office\14.0\Common\LanguageResources", "INstallLanguage", "REG_DWORD", 1036)
    RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Office\14.0\Common\LanguageResources", "PreviousInstallLanguage", "REG_DWORD", 807)
    RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Office\14.0\Common\LanguageResources", "MTTF", "REG_DWORD", 252)
    RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Office\14.0\Common\LanguageResources", "MTTA", "REG_DWORD", 252)
    RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Office\14.0\Common\LanguageResources", "PreviousUI", "REG_DWORD", 407)
    EndSwitch
    EndFunc ;==>EndFunction OfficeSelection
    Func KeyboardSelection($keyboard)
    switch GUICtrlRead($keyboard)
    Case "Deutsch_Swiss"
    RegWrite("HKEY_CURRENT_USER\Software\Microsoft\CTF\LangBar", "ShowStatus", "REG_DWORD", 3)
    RegDelete("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Keyboard Layout\DosKeybCodes")
    RegWrite("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Keyboard Layout\DosKeybCodes")
    RegDelete("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Keyboard Layout\DosKeybIDs")
    RegWrite("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Keyboard Layout\DosKeybIDs")
    RegWrite("HKEY_CURRENT_USER\Keyboard Layout\Preload", "1", "REG_SZ", "807")
    RegDelete("HKEY_CURRENT_USER\Keyboard Layout\Preload", "2")
    RegDelete("HKEY_CURRENT_USER\Keyboard Layout\Preload", "3")
    RegDelete("HKEY_CURRENT_USER\Keyboard Layout\Preload", "4")
    Case "Deutsch Franz"
    RegWrite("HKEY_CURRENT_USER\Software\Microsoft\CTF\LangBar", "ShowStatus", "REG_DWORD", 3)
    RegDelete("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Keyboard Layout\DosKeybCodes")
    RegWrite("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Keyboard Layout\DosKeybCodes")
    RegDelete("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Keyboard Layout\DosKeybIDs")
    RegWrite("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Keyboard Layout\DosKeybIDs")
    RegWrite("HKEY_CURRENT_USER\Keyboard Layout\Preload", "1", "REG_SZ", "d0010807")
    RegDelete("HKEY_CURRENT_USER\Keyboard Layout\Preload", "2")
    RegDelete("HKEY_CURRENT_USER\Keyboard Layout\Preload", "3")
    RegDelete("HKEY_CURRENT_USER\Keyboard Layout\Preload", "4")
    Case "Deutschland"
    RegWrite("HKEY_CURRENT_USER\Software\Microsoft\CTF\LangBar", "ShowStatus", "REG_DWORD", 3)
    RegDelete("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Keyboard Layout\DosKeybCodes")
    RegWrite("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Keyboard Layout\DosKeybCodes")
    RegDelete("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Keyboard Layout\DosKeybIDs")
    RegWrite("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Keyboard Layout\DosKeybIDs")
    RegWrite("HKEY_CURRENT_USER\Keyboard Layout\Preload", "1", "REG_SZ", "407")
    RegDelete("HKEY_CURRENT_USER\Keyboard Layout\Preload", "2")
    RegDelete("HKEY_CURRENT_USER\Keyboard Layout\Preload", "3")
    RegDelete("HKEY_CURRENT_USER\Keyboard Layout\Preload", "4")
    Case "Englisch US"
    RegWrite("HKEY_CURRENT_USER\Software\Microsoft\CTF\LangBar", "ShowStatus", "REG_DWORD", 3)
    RegDelete("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Keyboard Layout\DosKeybCodes")
    RegWrite("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Keyboard Layout\DosKeybCodes")
    RegDelete("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Keyboard Layout\DosKeybIDs")
    RegWrite("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Keyboard Layout\DosKeybIDs")
    RegWrite("HKEY_CURRENT_USER\Keyboard Layout\Preload", "1", "REG_SZ", "409")
    RegDelete("HKEY_CURRENT_USER\Keyboard Layout\Preload", "2")
    RegDelete("HKEY_CURRENT_USER\Keyboard Layout\Preload", "3")
    RegDelete("HKEY_CURRENT_USER\Keyboard Layout\Preload", "4")
    EndSwitch
    EndFunc ;==>EndFunction OfficeSelection

    [/autoit]

    Einmal editiert, zuletzt von mauric (30. November 2010 um 19:29)

    [autoit]

    MsgBox(64, "Info", "Die Sprachen wurden angepasst, " @CR _
    "logout wird durch klicken von Button <OK> durchgeführt")

    [/autoit]

    sollte doch

    [autoit]

    MsgBox(64, "Info", "Die Sprachen wurden angepasst, " & @CR & _
    "logout wird durch klicken von Button <OK> durchgeführt")

    [/autoit]

    heißen, oder?