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

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

按键精灵安卓版
立即下载

软件版本：5.1.0
软件大小：80.6M
更新时间：2026-7-30

按键精灵iOS版
立即下载

软件版本：2.5.2
软件大小：29.2M
更新时间：2026-8-26

按键手机助手
立即下载

软件版本：5.1.0
软件大小：307M
更新时间：2026-7-30

快捷导航

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

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

[已解决] 求大神给个源码，电脑游戏多窗口键盘同步器，求大神帮帮我 [复制链接]

虫虫的味道
头像

虫虫的味道

  • 幼儿园
  • 3825070
  • 3
  • 0
  • 5 朵
  • 22 个
  • 7 个
  • 0
  • 2016-03-23
1#
t T
发表于 2026-08-24 16:53 | |只看楼主
求大神给个源码，电脑游戏多窗口键盘同步器，求大神帮帮我。我想同时控制4个窗口，主窗口按哪个键，其他窗口按一样的键，这样的源码，，万分感谢

点赞
回顶部
1727476839
头像

1727476839

  • 幼儿园
  • 8092742
  • 1
  • 0
  • 1 朵
  • 11 个
  • 1 个
  • 0
  • 2021-01-01
2#
t T
发表于 2026-08-24 17:49 | |只看该用户

Hwnd = Plugin.Window.MousePoint()
While True
xx = WaitKey()
Call Plugin.Bkgnd.KeyPress(Hwnd, xx)
Wend
EndScript

回顶部
虫虫的味道
头像

虫虫的味道

  • 幼儿园
  • 3825070
  • 3
  • 0
  • 5 朵
  • 22 个
  • 7 个
  • 0
  • 2016-03-23
3#
t T
发表于 2026-08-24 18:46 | |只看楼主

,

老铁求教下 具体这应该设置？我比较小白，，

回顶部
虫虫的味道
头像

虫虫的味道

  • 幼儿园
  • 3825070
  • 3
  • 0
  • 5 朵
  • 22 个
  • 7 个
  • 0
  • 2016-03-23
4#
t T
发表于 2026-08-24 18:51 | |只看楼主

,

谢谢啦，大神，，我试了可以控制一个后台窗口，好用

回顶部
瑞祥幽冥狼
头像

按 键 工 程 师 ● 兼 职

  • 超级版主
  • 1228894
  • 27151
  • 25
  • 8328 朵
  • 36405 个
  • 5062 个
  • 421340
  • 2012-07-18
按键X开拓者勋章过大年勋章双十一绝版纪念勋章抗战胜利70周年勋章单身汪勋章按键14周年庆纪念勋章按键学院幸运草勋章马年勋章鹰眼勋章黄瓜勋章天使勋章按键明星黄金之翼举报达人活动狂人骨灰级按键用户按键精灵开发者6级龙年勋章十周年勋章兔年勋章论坛GG发帖高手爱心大使学有所成按键运营团队按键元老管理人员
5#
t T
发表于 2026-08-25 14:17 | |只看该用户

回复 1楼虫虫的味道的帖子
  1. Dim Hwnd(99), x, y, M_tp, Q_tp, i
  2. MsgBox "將滑鼠放置在要同步窗口視窗內按下空白鍵" & chr(13) & "設定完成請按下ESC" & chr(13) & "本版本為試用版最多同步數為：5", 0, "提示：關閉此彈出窗後"
  3. i = 0
  4. Do
  5. bk = WaitKey()
  6. If bk = 27 or i = 5 Then
  7. Exit Do
  8. ElseIf bk = 32 Then
  9. i = i + 1
  10. st = Plugin.Window.MousePoint()
  11. Hwnd(i) = st
  12. Delay 10
  13. End If
  14. Loop
  15. If i = 0 Then
  16. ExitScript
  17. End If
  18. MsgBox "請切換至要操作的主窗口" & chr(13) & "按任意鍵開始操作。", 0, "提示："
  19. WaitKey
  20. Hwnd1 = Plugin.Window.Foreground()
  21. sRect = Plugin.Window.GetClientRect(Hwnd1)
  22. xy = Split(sRect, "|")
  23. Do
  24. Call 鍵盤操作()
  25. Call 滑鼠操作()
  26. Loop
  27. EndScript
  28. Sub 鍵盤操作()
  29. M_tp = GetLastKey()
  30. If M_tp > 0 Then
  31. For n = 1 To i
  32. Call Plugin.Bkgnd.KeyDown(Hwnd(n), M_tp)
  33. Call Plugin.Bkgnd.KeyUp(Hwnd(n), M_tp)
  34. Next
  35. M_tp = 0
  36. End If
  37. Delay 1
  38. End Sub
  39. Sub 滑鼠操作()
  40. GetCursorPos x, y
  41. If x > int(xy(0)) and y > int(xy(1)) and x < int(xy(0)) + int(xy(2)) and y < int(xy(1)) + int(xy(3)) Then
  42. //Call Plugin.Msg.Tips("")
  43. Q_tp = GetLastClick()
  44. If Q_tp > 0 Then
  45. For n = 1 To i
  46. Call Plugin.Bkgnd.MoveTo(Hwnd(n), x - xy(0), y - xy(1))
  47. Select Case Q_tp
  48. Case 32769//左鍵壓下
  49. Call Plugin.Bkgnd.LeftDown(Hwnd(n), x - xy(0), y - xy(1))
  50. Case 32770//左鍵彈起
  51. Call Plugin.Bkgnd.LeftUp(Hwnd(n), x - xy(0), y - xy(1))
  52. Case 32773//右鍵壓下
  53. Call Plugin.Bkgnd.RightDown(Hwnd(n), x - xy(0), y - xy(1))
  54. Case 32774//右鍵彈起
  55. Call Plugin.Bkgnd.RightUp(Hwnd(n), x - xy(0), y - xy(1))
  56. Case Else
  57. End Select
  58. Next
  59. End If
  60. Else
  61. //Call Plugin.Msg.Tips("滑鼠超出主窗口範圍!!")
  62. End If
  63. Delay 1
  64. End Sub
复制代码
收 徒 索 引 ← ← ← ← ← ← ← ← ← ← 点 击

个 人 Q Q 1 : 1 2 2 3 1 1 6 6 1 8［将满］
个 人 Q Q 2 : 6 1 7 0 9 5 5 4 3［可加］
回顶部
laibaning
头像

  • 幼儿园
  • 9593367
  • 2
  • 0
  • 3 朵
  • 3 个
  • 3 个
  • 0
  • 2026-09-03
6#
t T
发表于 2026-09-03 23:55 | |只看该用户

,

请问这个怎么用

回顶部
laibaning
头像

  • 幼儿园
  • 9593367
  • 2
  • 0
  • 3 朵
  • 3 个
  • 3 个
  • 0
  • 2026-09-03
7#
t T
发表于 2026-09-03 23:58 | |只看该用户

,

大哥能否指点指点这个代码怎么用

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