Napíš na klávesnici heslo

KOZA

Script <SCRIPT LANGUAGE=vbscript><!--
dim Heslo,i
Sub document_onkeyup
i=i+1
Znak = chr(window.event.keyCode)
if Znak = mid("KOZA",i,1)then
Heslo=Heslo & Znak
else i=0:Heslo=""
end if
if heslo="KOZA"then
Obrazok.style.visibility=visible
i=0:Heslo=""
end if
End Sub
--></SCRIPT>