http://dieseyer.de • all rights reserved • © 2011 v11.4

<head>

<!--
'v5.C*****************************************************
' File: tastaturcode.hta
' Autor: dieseyer@gmx.de
' http://dieseyer.de
'
' HTA wird 30s angezeigt und zeigt während dieser Zeit
' den Tastaturcode der Tasten an, die gedrückt wurden.
'*********************************************************

WINDOWSTATE="maximize"
BORDER="none"
INNERBORDER="no"
SHOWINTASKBAR="no"

-->

<title>tastaturcode.hta</title>

<HTA:APPLICATION ID="oHTA"
SCROLL="No"
SHOWINTASKBAR="yes"
NAVIGABLE="no"
APPLICATIONNAME="tastaturcode.hta"
>

<style type="text/css">
<!--
background:#02D020;
background:#1d2160;
-->
<!--
html, body { font-Size:12pt; color:#E0C000; font-family:Verdana; /* font-weight:bold; */
background:#601010;
}
-->
</style>

</head>

<script language="VBscript">

Dim WSHNet : Set WSHNet = CreateObject("WScript.Network")
Dim WshShell : Set WSHShell = CreateObject("Wscript.Shell")
Dim Fso : Set Fso = CreateObject("Scripting.FileSystemObject")
Dim DriveList : Set DriveList = CreateObject("Scripting.FileSystemObject").Drives

Const Titel = "tastaturcode.hta"
Const WarteZeit = 30 ' Zeit in Sekunden
Const Tast1 = "49"
Const Tast2 = "50"
Const Tast3 = "51"

Dim Eing1, Eing2, Eing3
Dim TastEing, TimeOutAktiv
Dim Txt, Tst, n
Dim EingListe( 9 )

'****************************************
Sub ZuEnde()
'****************************************
self.close
End Sub ' ZuEnde()


'****************************************
Sub HTASize()
'****************************************

' window.moveto Links, Oben
window.moveto 800-640, 0 ' Position

' window.resizeto Breite, Höhe ' Größe
' window.resizeto 520, screen.height-23
window.resizeto 640, 480
End Sub


'**************************************************************
Sub AktAnzeige()
'**************************************************************
Txt = Txt & " <Span style=""font-size:10pt"">"
Txt = Txt & " Im folgenden wird zu jeder betätigten Taste der"
Txt = Txt & " Tastaturcode angezeigt. Werden 30s keine Eingaben"
Txt = Txt & " getätigt, schliesst sich dieses Programm selbst."
Txt = Txt & " </Span><br><br>"

window.clearTimeout( TimeOutAktiv )
TimeOutAktiv = window.setTimeout( "self.close()", WarteZeit * 1000 )

n = 9

document.all.AnzTaste.innerHTML = Txt
End Sub ' AktAnzeige()


'**************************************************************
Sub document_onKeyDown ' dieseyer.de - tastaturcode.hta v5.C
'**************************************************************
' Dim EingListe( 9 ) ' muss außerhalb der Prozedur / am Anfaang stehen

Dim i, Tst
n = n + 1
If n > UBound( EingListe ) Then n = 0

Tst = window.event.keyCode
MsgBox Tst
If Tst = 27 Then self.close
' Überprüfung ob Tasten in def. Reihenfolge gedrückt wurden
If Tst & "-" = Tast1 & "-" Then Eing1 = Tst
If Tst & "-" = Tast2 & "-" Then Eing2 = Tst
If Tst & "-" = Tast3 & "-" Then Eing3 = Tst
If Tast1 & Tast2 & Tast3 = Eing1 & Eing2 & Eing3 Then self.close

EingListe(n) = Tst
Tst = " <Span style=""font-size:14pt""><fieldset><pre><br> "

For i = LBound( EingListe ) to UBound( EingListe )
Tst = Tst & " " & i & " " & EingListe( i )
If i = n Then Tst = Tst & " <= letzte Eingabe"
if i < UBound( EingListe ) Then Tst = Tst & "<br> "
Next

document.all.AnzTaste.innerHTML = Txt + Tst + "</pre></fieldset></Span>"

window.clearTimeout( TimeOutAktiv )
TimeOutAktiv = window.setTimeout( "self.close()", WarteZeit * 1000 )

End Sub ' document_onKeyDown ' dieseyer.de - tastaturcode.hta v5.C


'**************************************************************
Function BeimLaden() ' ruft einige Routinen auf
'**************************************************************
call HTASize

call AktAnzeige()

End Function ' BeimLaden


'----------------------------------------

</script>

<body onLoad="BeimLaden()" style="background-image:url(winpe.jpg)" >
<form >

<h2 align="center">Tastatureingabe</h2>
<!-- <h2 align="center">- - - Testbetrieb - - -</h2> -->

<table border="0" cellspacing="40px" width="0100%">
<tr >
<td align="Left<" cellspacing="70%" >
<div ID=AnzTaste >
</td>
</tr>
</table>

</form>
</body>

http://dieseyer.de • all rights reserved • © 2011 v11.4