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

软件版本：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

快捷导航

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

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

[已解决] 我想写个窗口同步工具，能给点思路吗？ [复制链接]

357785960
头像

357785960

  • 幼儿园
  • 1986468
  • 2
  • 0
  • 4 朵
  • 21 个
  • 6 个
  • 60
  • 2013-07-06
1#
t T
发表于 2024-06-19 14:21 | |只看楼主
我想写个窗口同步工具，能给点思路吗？

本主题由 超级版主 瑞祥幽冥狼 于 2024/6/19 17:34:23 执行 审核主题 操作
点赞
回顶部
瑞祥幽冥狼
头像

按 键 工 程 师 ● 兼 职

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

,
  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［可加］
回顶部
上一主题| 下一主题
返回列表
发新话题 回复该主题
高级编辑器高级编辑器