Remember Me!

Coole sache, ich verpasse auch ganz oft Simpsons und Stargate, weil ich so beschäftigt bin, das die Zeit vergeht wie nix^^ hab das mal gekürzt, und die automatische formatprüfung gestrichen, da man es ja eh nur selber benuzt^^ p.s. nicht böse nehmen, aber ich wollte auch mla von jemandem das Script um 25% kürzen

#include <Sound.au3>
MsgBox(0, "Sound", "Such dir den Sound aus, der abgespielt werden soll!")
$sound = FileOpenDialog("Sound auswahl...", @MyDocumentsDir, "MP3 (*.mp3)|Wave (*.wav;*.wave)|MIDI (*.mid;*.midi)|Audio Interchange(*.aif)|MP2 (*.mpa)|OGG Vorbis(*.ogg;*.oga)")
$input = InputBox("Zeit", "Wann soll der Alarm klingeln ? Format HH:MM:SS")
if MsgBox(36,"bestätigen","folgendes Zeitformat richtig? " & $input) <> 6 Then Exit
While 1
If $input = @HOUR & ":" & @MIN & ":" & @SEC Then
$snd = _SoundOpen($sound)
_SoundPlay($snd)
Sleep(30000)
_SoundStop($snd)
_SoundClose($snd)
Exit
EndIf
WEnd

Ja, die automatische überprüfung habew ich rausgeschnitten, weil man es 1. eh nur selber nuzt, und 2. weil bei einem vertipper wie: 19:3e0:00 das Script nix sagt und der Alarm nicht losgeht. da müsste man es ncohmal mit _IsNumber überprüfen, oder ebend wie cih mit ner MsgBox bestätigen. Aber wie gesagt, wollte ich es mir nicht nehmen lassen auch mal ein Script kürzen zu dürfen

ging noch kürzer oder?
wie wärs mit:

_SoundOpen(FileOpenDialog(...))

[MSIE_newline_end ]

Is ja sowas wie ein Wecker!

Wie wärs denn mit:

Local $title="Zeit"
Do
$input = InputBox($title, "Wann soll der Alarm klingeln ? Format HH:MM:SS")
$title = "Fehler: Falsches Zeitformat"
Until StringRegExp($input, "\d\d:\d\d:\d\d") <> 0
$time = StringSplit($input, ":")