菜鸟问题，希望高手给予解答

2004-09-15 02:29:52 201 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

大数据学习菜鸟的Hadoop快速入门基础教程汇总详细解答大数据学习菜鸟的Hadoop快速入门基础教程汇总详细解答 1、大数据大数据是一门概念，也是一门技术，是以Hadoop为代表的大数据平台框架上进行各种数据分析的技术。大数据包括了以Hadoop和Spark为代表的基础大数据框架，还包括实时数据处理，离线数据处理，数据分析，数据挖掘和用机器算法进行预测分析等技术。更多精彩内容点击我学 2、Hadoop Hadoop是一个开源的大数据... 阅读详情

现在一些病毒是利用全局钩子进行作怪的。所以想遍历全局钩子。这样或许可以找出病毒所在的DLLO，可是怎么遍历全局的钩子啊。
如果这种想法有问题或还有想法的大虾的话，小弟不胜感激。

...全文

机器学习【学校智慧食堂及其应用】本文主要介绍机器学习【智慧食堂及其应用】阅读详情

limitworld

API 1,488 成员 23,270 内容

+ 关注 + 加入社区

切换为时间正序

limitworld 2004-09-26

打赏
举报

感谢各位

留下些什么 2004-09-16

打赏
举报

顶

loverpyh 2004-09-16

打赏
举报

a_cer 2004-09-16

打赏
举报

钩子程序就有一个键盘的，看看有点参考价值没有

Option Explicit

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
Declare Function UnhookWindowsHookEx Lib "user32" (ByVal hHook As Long) As Long
Declare Function CallNextHookEx Lib "user32" (ByVal hHook As Long, ByVal ncode As Long, ByVal wParam As Long, lParam As Any) As Long

Public hnexthookproc As Long
Public Const HC_ACTION = 0
Public Const WH_KEYBOARD = 2

Public Sub UnHookKBD()
If hnexthookproc <> 0 Then
UnhookWindowsHookEx hnexthookproc
hnexthookproc = 0
End If
End Sub
Public Function EnableKBDHook()
If hnexthookproc <> 0 Then
Exit Function
End If
hnexthookproc = SetWindowsHookEx(WH_KEYBOARD, AddressOf _
MyKBHFunc, App.hInstance, 0)
If hnexthookproc <> 0 Then
EnableKBDHook = hnexthookproc
End If
End Function
Public Function MyKBHFunc(ByVal iCode As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
'这三个参数是固定的，不能动，而MyKBHFunc这个名称只要和
'SetWindowsHookex()中 AddressOf後的名称一样便可，不一定叫什麽
'wParam 是传入按了哪个key的virtual-key code

'如果您将以下的两行unmark则所有键盘的输入皆没有作用
'MyKBHFunc = 1 '吃掉信息
'Exit Function

MyKBHFunc = 0 '信息要处理
If iCode < 0 Then
MyKBHFunc = CallNextHookEx(hnexthookproc, iCode, wParam, lParam)
Exit Function
End If
If wParam = vbKeySnapshot Then '侦测有没有按到PrintScreen键
MyKBHFunc = 1 '在这个Hook便吃掉这个信息
Debug.Print "haha"
Else
Call CallNextHookEx(hnexthookproc, iCode, wParam, lParam)
End If
Debug.Print Chr(wParam) & " " & wParam
End Function

haohaohappy 2004-09-16