Jugando con el doodle del dia

[Pablo2m]

Bueno el doodle de hoy homenajea al gran Les Paul y lo hace con una guitarra, la division Argentina de google dio por twitter una cancion para tocar, como tenia unos minutos escribi un pequeño script, para que ande deben tener el navegador en la pagina inicial de google y el icono de teclado en rojo. El codigo no tiene ninguna conplejidad es solo una muestra de como podemos hacer cosas sin complicaciones.

Código: Seleccionar todo

$Tocar = "3345543211233223345543211232112312343123432125334554321123211"
Sleep (2500) ; algo de tiempo como para que lleguen al navegador
$len = StringLen($tocar)
For $I=1 to $len
     $Nota=StringMid ( $tocar, $I ,1)
     Send ( $Nota , 1 )
     sleep (500); modificando este valor pueden variar la velocidad de ejecucion
Next

Saludos

[ms999]

Gracias pablo... aca tengo mi version

Código: Seleccionar todo

$Tocar = "1002301040605030100235043200"
$final = "135"
ShellExecuteWait("http://www.google.com/logos/2011/lespaul.html")
Sleep(2500) ; algo de tiempo como para que lleguen al navegador
$len = StringLen($Tocar)
For $I = 1 To $len
	If $i = $len Then ; para el final
		Send($final, 1)
	Else
	$Nota = StringMid($Tocar, $I, 1)
	If $Nota = 0 Then
		Sleep(200) ; Silencio = 0
	Else
		Send($Nota, 1)
		Sleep(400); modificando este valor pueden variar la velocidad de ejecucion
	EndIf
	EndIf
Next