• 按键公众号 ：
按键精灵电脑版
立即下载

软件版本：2014.06
软件大小：22.9M
更新时间：2021-12-03

按键精灵安卓版
立即下载

软件版本：3.7.2
软件大小：46.2M
更新时间：2023-05-10

按键精灵iOS版
立即下载

软件版本：1.8.0
软件大小：29.2M
更新时间：2023-03-21

按键手机助手
立即下载

软件版本：3.8.0
软件大小：262M
更新时间：2023-05-30

快捷导航

请 登录 后使用快捷导航
没有帐号？ 注册

登录 注册
返回列表
发新话题 回复该主题
查看: 4337|回复: 8

[笨蛋熊] 【按键X】开箱即用的支持前台和后台的双模式脚本录制工具，附送... [复制链接]

笨蛋熊
头像

  • 按键认证大神
  • 8648672
  • 35
  • 11
  • 573 朵
  • 299 个
  • 159 个
  • 0
  • 2022-03-06
按键剑侠客冠军勋章按键学院屌丝勋章土豪勋章天使勋章按键明星黄金之翼创业榜样爱心大使按键达人按键专家
1#
t T
发表于 2022-05-09 12:24 | |只看楼主
先看效果图：






这是通过本工具录制的后台脚本：



录制出来的完整脚本：
  1. // 窗口句柄：2036628 (1381388)
  2. // 窗口标题：语言标准.txt [C:\Users\Administrator\Desktop] - Notepad3 （管理员权限）
  3. // 窗口类名：Notepad3U



  7. // 后台配置
  8. Dim DisplayMode = "dx"
  9. Dim MouseMode = "windows"
  10. Dim KeyboardMode = "windows"



  14. // 初始化
  15. Import "dm.dll"
  16. dm.BindWindow(2036628, DisplayMode, MouseMode, KeyboardMode, 0)



  20. // 录制的脚本
  21. Delay(1328)
  22. Delay(110)
  23. dm.MoveTo(349, 227)
  24. dm.LeftUp()
  25. Delay(468)
  26. dm.MoveTo(411, 616)
  27. dm.LeftDown()
  28. Delay(78)
  29. dm.MoveTo(411, 616)
  30. dm.LeftUp()
  31. Delay(860)
  32. dm.MoveTo(952, 92)
  33. dm.LeftDown()
  34. Delay(640)
  35. dm.MoveTo(955, 284)
  36. dm.LeftUp()
  37. Delay(454)
  38. dm.MoveTo(255, 290)
  39. dm.LeftDown()
  40. Delay(93)
  41. dm.MoveTo(255, 290)
  42. dm.LeftUp()
  43. Delay(172)
  44. dm.MoveTo(206, 321)
  45. dm.LeftDown()
  46. Delay(110)
  47. dm.MoveTo(206, 321)
  48. dm.LeftUp()
  49. Delay(578)
  50. dm.KeyDown(49)
  51. Delay(125)
  52. dm.KeyDown(50)
  53. Delay(15)
  54. dm.KeyUp(49)
  55. Delay(125)
  56. dm.KeyDown(51)
  57. Delay(32)
  58. dm.KeyUp(50)
  59. Delay(62)
  60. dm.KeyUp(51)
  61. Delay(609)
  62. dm.KeyDown(8)
  63. Delay(63)
  64. dm.KeyUp(8)
  65. Delay(109)
  66. dm.KeyDown(8)
  67. Delay(47)
  68. dm.KeyUp(8)
  69. Delay(94)
  70. dm.KeyDown(8)
  71. Delay(47)
  72. dm.KeyUp(8)
  73. Delay(156)
  74. dm.MoveTo(236, 308)
  75. dm.LeftDown()
  76. Delay(94)
  77. dm.MoveTo(236, 308)
  78. dm.LeftUp()
  79. Delay(1031)
  80. Delay(63)
  81. Delay(703)
  82. Delay(218)
复制代码
源代码下载：

record.zip (, 下载次数:275)




生成好的小精灵下载：
recordexe.zip (, 下载次数:349)




我会在2L跟帖，来讲一下这个工具的源代码，请稍候。

最后编辑笨蛋熊 最后编辑于 2022-05-09 12:36:20
点赞
回顶部
笨蛋熊
头像

  • 按键认证大神
  • 8648672
  • 35
  • 11
  • 573 朵
  • 299 个
  • 159 个
  • 0
  • 2022-03-06
按键剑侠客冠军勋章按键学院屌丝勋章土豪勋章天使勋章按键明星黄金之翼创业榜样爱心大使按键达人按键专家
2#
t T
发表于 2022-05-09 12:30 | |只看楼主

星月扩展库发布贴（这个工程使用xyapi插件实现）：http://bbs.anjian.com/showtopic-664233-1.aspx

键鼠录制的核心功能由 xyapi 的这四个函数实现：
  1. // HOOK库
  2. Declare Sub Hook_InsKey_LowLevel Lib "xyapi.dll" (ByVal EventProc As Long)
  3. Declare Sub Hook_DelKey_LowLevel Lib "xyapi.dll" ()
  4. Declare Sub Hook_InsMouse_LowLevel Lib "xyapi.dll" (ByVal EventProc As Long)
  5. Declare Sub Hook_DelMouse_LowLevel Lib "xyapi.dll" ()
复制代码
这四个函数可以挂钩低级键鼠HOOK，从而在键盘和鼠标做动作的时候，将这些动作记录下来。

安装HOOK的时候有一个参数，是用来接收事件的标签控件句柄，这个用法和原理可以参考这个帖子：http://bbs.anjian.com/showtopic-699851-1.aspx



之后我们处理两个事件，把获得的键盘和鼠标动作记录下来，就形成了我们需要的功能。
  1. // 键盘HOOK事件
  2. Event Form1.KHook.Click
  3.     // 处理参数
  4.     Dim Param = Split(Form1.KHook.Caption, "|")
  5.     Dim iCode = CLng(Param(1))
  6.     Dim wParam = CLng(Param(2))
  7.     Dim wVk = CLng(Param(3))
  8.     Dim wScan = CLng(Param(4))
  9.     Dim dwFlags = CLng(Param(5))
  10.     Dim Time = CLng(Param(6))
  11.     Dim dwExtraInfo = CLng(Param(7))
  12.     // 录制逻辑
  13.     If iCode = 0 Then
  14.         Dim NewTime = GetTickCount()
  15.         RecordScript = RecordScript & "Delay(" & (NewTime - OldTime) & ")\r\n"
  16.         OldTime = NewTime
  17.         Select Case wParam
  18.             Case 260, 256    // WM_SYSKEYDOWN, WM_KEYDOWN
  19.                 If WindowMode Then    // 后台
  20.                     If GetForegroundWindow() = RecordWindow Then
  21.                         RecordScript = RecordScript & "dm.KeyDown(" & wVk & ")\r\n"
  22.                     End If
  23.                 Else                // 前台
  24.                     RecordScript = RecordScript & "KeyDown(" & wVk & ")\r\n"
  25.                 End If
  26.             Case 261, 257    // WM_SYSKEYUP, WM_KEYUP
  27.                 If WindowMode Then    // 后台
  28.                     If GetForegroundWindow() = RecordWindow Then
  29.                         RecordScript = RecordScript & "dm.KeyUp(" & wVk & ")\r\n"
  30.                     End If
  31.                 Else                // 前台
  32.                     RecordScript = RecordScript & "KeyUp(" & wVk & ")\r\n"
  33.                 End If
  34.         End Select
  35.     End If
  36. End Event

  38. // 鼠标HOOK事件
  39. Event Form1.MHook.Click
  40.     // 处理参数
  41.     Dim Param = Split(Form1.MHook.Caption, "|")
  42.     Dim iCode = CLng(Param(1))
  43.     Dim wParam = CLng(Param(2))
  44.     Dim dx = CLng(Param(3))
  45.     Dim dy = CLng(Param(4))
  46.     Dim mouseData = CLng(Param(5)) \ 120
  47.     Dim dwFlags = CLng(Param(6))
  48.     Dim Time = CLng(Param(7))
  49.     Dim RetXY = Window_ConvS2C(RecordWindow, dx, dy)
  50.     // 录制逻辑
  51.     If iCode = 0 Then
  52.         Dim NewTime = GetTickCount()
  53.         Dim KeyTbl = {513:"MouseDown(0)", 514:"MouseUp(0)", 516:"MouseDown(1)", 517:"MouseUp(1)", 519:"MouseDown(2)", 520:"MouseUp(2)"}
  54.         Dim KeyTblDM = {513:"dm.LeftDown()", 514:"dm.LeftUp()", 516:"dm.RightDown()", 517:"dm.RightUp()", 520:"dm.MiddleClick()"}
  55.         Select Case wParam
  56.             Case 512    // WM_MOUSEMOVE
  57.                 If StepMove Then    // 仅在开启 记录完整的鼠标移动轨迹 时录制
  58.                     If NewTime <> OldTime Then    // 仅在时间变化时记录轨迹 [为了降低代码量]
  59.                         RecordScript = RecordScript & "Delay(" & (NewTime - OldTime) & ")\r\n"
  60.                         OldTime = NewTime
  61.                         If WindowMode Then    // 后台 [只在窗口激活并且鼠标在窗口范围内才记录]
  62.                             If GetForegroundWindow() = RecordWindow Then
  63.                                 If Window_GetRoot(Window_FormMouse()) = RecordWindow Then
  64.                                     RecordScript = RecordScript & "dm.MoveTo(" & HiWord(RetXY) & ", " & LoWord(RetXY) & ")\r\n"
  65.                                 End If
  66.                             End If
  67.                         Else                // 前台
  68.                             If RelaMove Then
  69.                                 RecordScript = RecordScript & "MouseMove(" & (dx - OldPointX) & ", " & (dy - OldPointY) & ", true)\r\n"
  70.                                 OldPointX = dx
  71.                                 OldPointY = dy
  72.                             Else
  73.                                 RecordScript = RecordScript & "MouseMove(" & dx & ", " & dy & ")\r\n"
  74.                             End If
  75.                         End If
  76.                     End If
  77.                 End If
  78.             Case 513, 514, 516, 517, 519, 520    // WM_LBUTTONDOWN, WM_LBUTTONUP, WM_RBUTTONDOWN, WM_RBUTTONUP, WM_MBUTTONDOWN, WM_MBUTTONUP
  79.                 If NewTime <> OldTime Then
  80.                     RecordScript = RecordScript & "Delay(" & (NewTime - OldTime) & ")\r\n"
  81.                     OldTime = NewTime
  82.                 End If
  83.                 If WindowMode Then    // 后台
  84.                     If GetForegroundWindow() = RecordWindow Then
  85.                         If Window_GetRoot(Window_FormMouse()) = RecordWindow Then
  86.                             RecordScript = RecordScript & "dm.MoveTo(" & HiWord(RetXY) & ", " & LoWord(RetXY) & ")\r\n"
  87.                             If wParam <> 519 Then
  88.                                 RecordScript = RecordScript & KeyTblDM[wParam] & "\r\n"
  89.                             End If
  90.                         End If
  91.                     End If
  92.                 Else                // 前台
  93.                     If RelaMove Then
  94.                         RecordScript = RecordScript & "MouseMove(" & (dx - OldPointX) & ", " & (dy - OldPointY) & ", true)\r\n"
  95.                         RecordScript = RecordScript & KeyTbl[wParam] & "\r\n"
  96.                         OldPointX = dx
  97.                         OldPointY = dy
  98.                     Else
  99.                         RecordScript = RecordScript & "MouseMove(" & dx & ", " & dy & ")\r\n"
  100.                         RecordScript = RecordScript & KeyTbl[wParam] & "\r\n"
  101.                     End If
  102.                 End If
  103.             Case 522    // WM_MOUSEWHEEL
  104.                 If NewTime <> OldTime Then
  105.                     RecordScript = RecordScript & "Delay(" & (NewTime - OldTime) & ")\r\n"
  106.                     OldTime = NewTime
  107.                 End If
  108.                 If WindowMode Then    // 后台
  109.                     If GetForegroundWindow() = RecordWindow Then
  110.                         If Window_GetRoot(Window_FormMouse()) = RecordWindow Then
  111.                             If mouseData > 0 Then
  112.                                 RecordScript = RecordScript & "dm.WheelUp()\r\n"
  113.                             Else
  114.                                 RecordScript = RecordScript & "dm.WheelDown()\r\n"
  115.                             End If
  116.                         End If
  117.                     End If
  118.                 Else                // 前台
  119.                     RecordScript = RecordScript & "MouseWheel(" & mouseData & ")\r\n"
  120.                 End If
  121.         End Select
  122.     End If
  123. End Event
复制代码
大家也可以把代码记录成自己喜欢的格式，我这里用了大漠插件，各位也可以尝试换成乐玩之类的插件，这个脚本的可玩性还是很大的，甚至用按键再开发一个按键，也不无可能哦。

回顶部
笨蛋熊
头像

  • 按键认证大神
  • 8648672
  • 35
  • 11
  • 573 朵
  • 299 个
  • 159 个
  • 0
  • 2022-03-06
按键剑侠客冠军勋章按键学院屌丝勋章土豪勋章天使勋章按键明星黄金之翼创业榜样爱心大使按键达人按键专家
3#
t T
发表于 2022-05-09 12:36 | |只看楼主

再插：之前上传的源代码和EXE整错了…… 我就说怎么附件那么大呢，sorry…… 马虎了

回顶部
davidyan
头像

davidyan

  • 小学一年级
  • 5878000
  • 5
  • 0
  • -6 朵
  • 17 个
  • -3 个
  • 0
  • 2018-12-03
4#
t T
发表于 2022-06-12 09:28 | |只看该用户

按键X是啥，在哪下载？

回顶部
1040300838
头像

1040300838

  • 幼儿园
  • 5232328
  • 2
  • 0
  • 2 朵
  • 12 个
  • 2 个
  • 20
  • 2018-05-08
5#
t T
发表于 2022-09-14 22:37 | |只看该用户

救命啊

//窗口句柄：527170 (527170)
// 窗口标题：Meta Business Suite - Google Chrome
// 窗口类名：Chrome_WidgetWin_1
// 后台配置
Dim DisplayMode = "dx"
Dim MouseMode = "windows"
Dim KeyboardMode = "windows"
// 初始化
Import "dm.dll"
dm.BindWindow(527170, DisplayMode, MouseMode, KeyboardMode, 0)

语法错误：脚本 我的脚本1 ，第16行，第3个字符：（错误码0）没有找到合法的符号。
语法错误：脚本 我的脚本1 ，第10行，第18个字符：（错误码0）没有找到合法的符号。
语法错误：脚本 我的脚本1 ，第9行，第15个字符：（错误码0）没有找到合法的符号。
语法错误：脚本 我的脚本1 ，第8行，第17个字符：（错误码0）没有找到合法的符号。这个不能直接用

回顶部
1040300838
头像

1040300838

  • 幼儿园
  • 5232328
  • 2
  • 0
  • 2 朵
  • 12 个
  • 2 个
  • 20
  • 2018-05-08
6#
t T
发表于 2022-09-14 22:55 | |只看该用户

,

大佬录制出来的文本不能直接用

回顶部
13242425499
头像

13242425499

  • 初中一年级
  • 6514799
  • 165
  • 0
  • 128 朵
  • 162 个
  • 137 个
  • 0
  • 2019-05-18
7#
t T
发表于 2022-09-15 18:57 | |只看该用户

怎么用啊

回顶部
hmlinghun
头像

  • 小学一年级
  • 8847096
  • 10
  • 0
  • 26 朵
  • 20 个
  • 15 个
  • 0
  • 2022-09-13
8#
t T
发表于 2022-09-16 02:49 | |只看该用户

怎么出现一大瓶错误的?

回顶部
tian8423
头像

tian8423

  • 小学一年级
  • 539829
  • 7
  • 0
  • 3 朵
  • 17 个
  • 6 个
  • 0
  • 2010-11-15
9#
t T
发表于 2022-09-26 20:16 | |只看该用户

请问下，后台按键，试了DX WINDOWS，都没反应，应该怎么解决

回顶部
上一主题| 下一主题
返回列表
发新话题 回复该主题
高级编辑器高级编辑器