• 首页
  • 教程
  • 资源
  • 脚本
  • 源码库
  • 卖脚本
  • 用户中心
  • 作者成长
加入收藏  返回官网
你的位置:按键精灵资源站
【神梦插件】SMWH.dll 隐藏任务栏,键盘/鼠标钩子(HOOK)!
发布: 2016-08-17 17:52:00 | 作者: | 来源: 按键精灵资源站

QUOTE:

可能是闲的无聊吧,
我也弄一款插件玩玩!
{:5_156:}

[code]更新内容:
\ v1.55   2016-11-16
|--新增 命令【GetDOS】,获取DOS执行结果
[/code]


说明文档预览:





下面是演示例子:
[code]Dim 返回值


MsgBox "点击确定后,把鼠标指向要隐藏任务栏图标的窗口!"

Delay 5000
窗口句柄 = Plugin.Window.MousePoint()
'隐藏任务栏图标
返回值 = Plugin.SMWH.TaskbarHide(窗口句柄)
If 返回值 Then
    MsgBox "隐藏该窗口的任务栏图标成功!点击确定就可以显示出来了!"
Else
    TracePrint "隐藏失败!"
End If


'显示任务栏图标
返回值 = Plugin.SMWH.TaskbarShow(窗口句柄)
If 返回值 Then
    TracePrint "显示成功!"
Else
    TracePrint "显示失败!"
End If

MsgBox "现在演示安装系统钩子, 点击确定继续。。。"


'安装鼠标系统钩子,用完请记得卸载钩子
Call Plugin.SMWH.SetMouseHook()


'安装键盘系统钩子,用完请记得卸载钩子
Call Plugin.SMWH.SetKeyboardHook()


MsgBox "安装系统钩子完毕, 现在捕获鼠标动作看看,点击确定继续。。。"

'捕获鼠标动作
返回值 = Plugin.SMWH.GetMouse()
If 返回值 <> "0" Then
    鼠标消息 = Split(返回值, "|")
    鼠标坐标 = 鼠标消息(1)
    Select Case 鼠标消息(0)
    Case "513"
        鼠标动作 = "左键按下"
    Case "514"
        鼠标动作 = "左键弹起"
    Case "516"
        鼠标动作 = "右键按下"
    Case "517"
        鼠标动作 = "右键弹起"
    Case "519"
        鼠标动作 = "中键按下"
    Case "520"
        鼠标动作 = "中键弹起"
    Case "522" '居然捕获不到滚动的方向,只知道它滚动了,好郁闷啊
        鼠标动作 = "滚轮滚动"
    End Select
    TracePrint "鼠标位置:" & 鼠标坐标
    TracePrint "鼠标动作:" & 鼠标动作
Else
    TracePrint "未安装鼠标系统钩子!"
End If

MsgBox "现在捕获键盘动作看看,点击确定继续。。。"

'捕获键盘动作
返回值 = Plugin.SMWH.GetKeyboard()
If 返回值 <> "0" Then
    鼠标消息 = Split(返回值, "|")
    按键码 = 鼠标消息(1)
    Select Case 鼠标消息(0)
    Case "256"
        键盘动作 = "按下"
    Case "257"
        键盘动作 = "弹起"
    End Select
    TracePrint 键盘动作 & " " & Plugin.SMWH.GetKeyName(按键码) & " 键"
Else
    TracePrint "未安装鼠标系统钩子!"
End If

MsgBox "下面屏蔽滚轮滚动,点击确定继续。。。"

'╔════╦════╗
'║鼠标动作║ 描述 ║
'╠════╬════╣
'║  -1 ║所有动作║
'║ 513 ║左键按下║
'║ 514 ║左键弹起║
'║ 516 ║右键按下║
'║ 517 ║右键弹起║
'║ 519 ║中键按下║
'║ 520 ║中键弹起║
'║ 522 ║滚轮滚动║
'╚════╩════╝
'屏蔽鼠标滚轮滚动
'参数为-1时,屏蔽所有动作,慎用!
返回值 = Plugin.SMWH.ScreenMouse(522)
If 返回值 Then
    TracePrint "屏蔽成功!"
Else
    TracePrint "屏蔽失败!"
End If

MsgBox "下面屏蔽空格键,点击确定继续。。。"

'屏蔽键盘空格键
'参数为-1时,屏蔽所有键,慎用!
返回值 = Plugin.SMWH.ScreenKeyboard(32)
If 返回值 Then
    TracePrint "屏蔽成功!"
Else
    TracePrint "屏蔽失败!"
End If

MsgBox "取消屏蔽滚轮滚动,点击确定继续。。。"

'╔════╦════╗
'║鼠标动作║ 描述 ║
'╠════╬════╣
'║  -1 ║所有动作║
'║ 513 ║左键按下║
'║ 514 ║左键弹起║
'║ 516 ║右键按下║
'║ 517 ║右键弹起║
'║ 519 ║中键按下║
'║ 520 ║中键弹起║
'║ 522 ║滚轮滚动║
'╚════╩════╝
'取消屏蔽鼠标滚轮滚动
'参数为-1时,取消屏蔽所有动作
返回值 = Plugin.SMWH.UnScreenMouse(522)
If 返回值 Then
    TracePrint "恢复成功!"
Else
    TracePrint "恢复失败!"
End If

MsgBox "取消屏蔽空格键,点击确定继续。。。"

'取消屏蔽键盘空格键
'参数为-1时,取消屏蔽所有键
返回值 = Plugin.SMWH.UnScreenKeyboard(32)
If 返回值 Then
    TracePrint "恢复成功!"
Else
    TracePrint "恢复失败!"
End If

MsgBox "好了钩子操作完毕,要记得现在钩子哦,点击确定继续。。。"

'卸载鼠标系统钩子
Call Plugin.SMWH.UnMouseHook()



'卸载键盘系统钩子
Call Plugin.SMWH.UnKeyboardHook()



'通过按键码查询按键名
TracePrint Plugin.SMWH.GetKeyName(32)
[/code]

插件下载:
本帖隐藏的内容需要回复才可以浏览