

<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>