bei Inputboxen
Nein.
Aber für Inputfelder auf einer GUI kannst das tun. Gibt es schon viele Lösungsvorschläge im Forum. Benutze mal die Suche.
Also entweder bastelst du dir selbst eine InputBox mit den entsprechenden Funktionen, oder du filterst mit StringReplace() einfach die unzulässigen Zeichen mit Chr() und einer For-Schleife aus dem Ergebnis raus.;)
lg chess
Bau dir einfach die GUI mit Input-Controls so wie du sie brauchst und verwende das: RestrictControlRegExp-UDF - Fehleingaben direkt verhindern, Eingabentypen festlegen
Mit Hilfe der Timer-UDF kann man auch den normalen FileSaveDialog benutzen, um Fehleingaben rauszufiltern:
#include <Timers.au3>
Global $hGUI = GUICreate("Test", 600, 400)
Global $sTitle = "Bitte Datei zum speichern wählen..."
[/autoit] [autoit][/autoit] [autoit]_Timer_SetTimer($hGUI, 100, "_CheckInput")
Global $sFilename = FileSaveDialog($sTitle, @MyDocumentsDir, "Scripts (*.aut;*.au3)", 2)
_Timer_KillAllTimers($hGUI)
Exit
Func _CheckInput($hWnd, $Msg, $iIDTimer, $dwTime)
#forceref $hWnd, $Msg, $iIDTimer, $dwTime
Local $sPattern = "[^a-zA-Z 0-9]" ; <- das sind die erlaubten Zeichen, alle anderen werden entfernt
Local $sInput = ControlGetText($sTitle, "", "[CLASS:Edit; INSTANCE:1]")
If StringRegExp($sInput, $sPattern) Then
_PlayDefaultSystemSound("SystemHand")
$sInput = StringRegExpReplace($sInput, $sPattern, "")
ControlSetText($sTitle, "", "[CLASS:Edit; INSTANCE:1]", $sInput, 1)
ControlSend($sTitle, "", "[CLASS:Edit; INSTANCE:1]", "{END}")
EndIf
EndFunc
; #FUNCTION# ====================================================================================================================
; Name...........: _PlayDefaultSystemSound()
; Description ...: Spielt einen Systemklang, welcher in der Registry definiert ist.
; Syntax.........: _PlayDefaultSystemSound($sSoundName, $iWait = 0)
; Parameters ....: $sSoundName - Name des SystemSound's
; | Default - Standardton Warnsignal / Default Beep
; | CriticalBatteryAlarm - Alarm bei kritischem Batteriestand / when battery is critical
; | DeviceConnect - Geräteanschluß / when a device is connect
; | DeviceDisconnect - Gerätetrennung / when a device is disconnect
; | DeviceFail - Geräteanschluß fehlgeschlagen / when a deviceconnect is fail
; | LowBatteryAlarm - Alarm bei niedrigem Batteriestand / when battery is low
; | MailBeep - Posteingangsbenachrichtigung / when email is received
; | SystemAsterisk - Stern / Asterisk
; | SystemExclamation - Hinweis / when windows shows a warning
; | SystemExit - Windows beenden / when Windows shuts down
; | SystemHand - Kritischer Abbruch / when a critical stop occurs
; | SystemNotification - Sprechblase / when a critical stop occurs
; | SystemStart - Windows starten / when Windows starts up
; | WindowsLogoff - beim Windows abmelden / when logging off Windows
; | WindowsLogon - beim Windows anmelden / when logging on Windows
; | EmptyRecycleBin - Löschen des Papierkorbs / when recycle bin is emptied
; | Navigating - Browser Klick / navigating in browser
; $iWait - Warten bis SoundPlay beendet? (0 = nein / 1 = ja)
; Return values .: -----
; Author ........: funkey (AutoIt.de)
; ===============================================================================================================================
Func _PlayDefaultSystemSound($sSoundName, $iWait = 0) ; funkey
Local $sKey = 'HKEY_CURRENT_USER\AppEvents\Schemes\Apps\.Default'
If $sSoundName = 'EmptyRecycleBin' Or $sSoundName = 'Navigating' Then $sKey = 'HKEY_CURRENT_USER\AppEvents\Schemes\Apps\Explorer'
Local $sFile = StringReplace(RegRead($sKey &'\' & $sSoundName & '\.Default', ''), '%SystemRoot%', @WindowsDir)
If $sFile = "" Then
SoundPlay(StringReplace(RegRead($sKey &'\.Default\.Default', ''), '%SystemRoot%', @WindowsDir), $iWait)
Else
SoundPlay($sFile, $iWait)
EndIf
EndFunc ;==>_PlaySystemSound
P.S.: Hier mal wieder mit der Verwendung Deiner "_PlayDefaultSystemSound"-Funktion, funkey. Danke dafür! Die habe ich schon öfter benutzt. 
