Paste2 Logo
  1. ;Autore : Red Skull 92
  2. ;Web : Www.redSkull92.Wordpress.Com
  3. ;Mail : RedSkull92@gmail.com
  4.  
  5. $ora_utente=InputBox(".:Allarme:.(Sono le: "&@HOUR&":"&@MIN&")","Imposta il timer...","HH:MM")
  6. $s=StringSplit($ora_utente,":")
  7. While 1
  8.         Sleep(1050)
  9.                 if @hour = $s[1] and @MIN = $s[2] Then
  10.                         MsgBox (48, "Allarme", 'Sono le ore:'&$s[1]&':'&$s[2]&"!!!")
  11.                         Beep()
  12.                         Beep()
  13.                         Beep(Default,5000)
  14.                         ExitLoop
  15.                 endIf
  16. WEnd

Piccolo script per impostare un allarme