os.system('cls')

print "\n " +500

@echo off
Echo set objshell = createobject("wscript.shell"^) >script.vbs
Echo objshell.run "comosellamatubat.bat", vbhide >>script.vbs
Wscript.exe Script.vbs
Del /Q script.vbs
Exit

@echo off
Start /B Systeminfo.exe > Log.txt
Exit

os.system('cls')

#!usr/bin/python
 
import os
 
print " Test "
 
os.system.cls

REM By Geormarsch
REM Visita Foro.Elhacker.net

@echo off
REM By Geormarsch
REM MOD By Elektro H@cker
REM Visita Foro.Elhacker.net
 
::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
 
Color a
 
Title Despertador!
 
Set Tiempo=%Time:~0,5%
Set tiempo=%Tiempo::=%
 
Set file=C:\Melodia.mp3
If Not defined file (Exit /B 1)
If Not exist "%file%" (Exit /B 1)
 
::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
 
 
:Menu_Despertador
Set Hora_Despertar=
cls
Echo.
echo. A que hora desea Despertar?          Modo    : 24 H.
Echo.
Echo.                                      Ejemplo : 09:00
Echo.
Set /p Hora_Despertar=^>^> 
 
If Not defined Hora_Despertar (Goto :Menu_Despertador)
Echo "%Hora_Despertar:~0,1%"| Findstr /l "[^012]">nul
If %Errorlevel% EQU 0 (Goto :Menu_Despertador)
Echo "%Hora_Despertar%"| Findstr "..[:].." >nul
If NOT %Errorlevel% EQU 0 (Goto :Menu_Despertador)
Set Hora_Despertar=%Hora_Despertar::=%
If %Hora_Despertar% GTR 2359 (Goto :Menu_Despertador)
Goto :Verificador
 
 
:Verificador
cls
Set Tiempo=%Time:~0,5%
Set tiempo=%Tiempo::=%
If %Hora_Despertar% GEQ %Tiempo% (If %Hora_Despertar% LEQ %Tiempo% (Goto :Despierta) else (Ping -n 4 LOCALHOST >Nul & Goto Verificador))
If %Hora_Despertar% LEQ %Tiempo% (If %Hora_Despertar% GEQ %Tiempo% (Goto :Despierta) else (Ping -n 4 LOCALHOST >Nul & Goto Verificador))
 
 
::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
 
 
:Despierta
if exist "%Windir%\Sound.vbs" (del /f /q sound.vbs >nul)
cls
(
echo On Error Resume next
echo Set Sound = CreateObject("WMPlayer.OCX"^)
echo Sound.URL = "%File%"
echo Sound.Controls.play
echo if err.number = 0 then
echo 	do while Sound.currentmedia.duration = 0
echo 	wscript.sleep 100
echo 	loop
echo 	wscript.sleep (int(Sound.currentmedia.duration^)+1^)*1000
echo else
echo	if len("%file%"^) ^< 2  then
echo 		msgbox "No se ha seleccionado ningun archivo ", vbinformation, "Despertador"
echo	else
echo		msgbox "No es posible reproducir el archivo " ^& "%file%", vbinformation, "Despertador"
echo 	end if
echo end if
)>%Windir%\Sound.vbs
cd "%Windir%"
start Sound.vbs
Goto :Menu_Despertador
 
::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::