Página 1 de 1

Jugando con el doodle del dia

Publicado: 10 Jun 2011, 02:21
por 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

Re: Jugando con el doodle del dia

Publicado: 13 Jun 2011, 22:01
por 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