• 新浪微博:
  • 微信 :
按键精灵电脑版
立即下载

软件版本:2014.06
软件大小:22.9M
更新时间:03-18

按键精灵安卓版
立即下载

软件版本:3.3.6
软件大小:62.5M
更新时间:01-16

按键精灵iOS版
立即下载

软件版本:1.6.0
软件大小:29.2M
更新时间:07-29

最新企业版UiBot
立即下载

软件版本:3.3
软件大小:282M
更新时间:08-06

快捷导航

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

登录 注册
发新话题 回复该主题

[已解决] 萌新求助,同时找怪和移动地图 [复制链接]

1#
好像这样无法实现,大佬帮忙看看怎么处理


Call 注册大漠()
hwnd = dm.GetMousePointWindow()
TracePrint hwnd
Call 主线()
Sub 主线()
Set dm = createobject("dm.dmsoft")
dm_ret = dm.SetPath("c:\test_game")
dm_ret = dm.BindWindow(hwnd, "dx", "dx", "dx", 0)
Delay 500
If dm_ret = 1 Then
Call 找图找色()
Call 移动地图找怪()
Else
TracePrint "绑定失败"
End If
End Sub
Function 找图找色()
Do
dm_ret = dm.FindColor(14,105,790,534,"b59eff",1.0,0,intX,intY)
If intX >= 0 and intY >= 0 Then
左键单击 intX, intY
开打
End If
Loop
End Function
Function 移动地图找怪()
Randomize//重置随机数据
Delay 1000
dm.KeyPress 9//按Tab打开地图
Delay 2000
dm_ret = dm.FindPic(15,39,770,502,"地图.bmp|","000000",0.9,0,intX,intY)
If intX > 0 And intY > 0 Then
x = Int((151 - 630 + 1) * Rnd + 630)
y = Int((159 - 364 + 1) * Rnd + 364)
左键单击 x, y
TracePrint "移动地图"
Delay 1000
dm.KeyPress 9//按Tab关闭地图
Delay 3000
End If
End Function

本主题由 超级版主 n15976906190 于 2020/9/16 8:19:48 执行 审核帖子 操作
2#

回复 1楼首席研究员的帖子
  1. Call 注册大漠()
  2. hwnd = dm.GetMousePointWindow()
  3. TracePrint hwnd
  4. Call 主线()
  5. Sub 主线()
  6. Set dm = createobject("dm.dmsoft")
  7. dm_ret = dm.SetPath("c:\test_game")
  8. dm_ret = dm.BindWindow(hwnd, "dx", "dx", "dx", 0)
  9. Delay 500
  10. If dm_ret = 1 Then
  11. Call 找图找色()'需要改成 BeginThread 才能同时运行
  12. Call 移动地图找怪()
  13. Else
  14. TracePrint "绑定失败"
  15. End If
  16. End Sub
  17. Function 找图找色()'建议改为Sub
  18. '需要创建大漠对象\指定路径\绑定等
  19. Do
  20. dm_ret = dm.FindColor(14,105,790,534,"b59eff",1.0,0,intX,intY)
  21. If intX >= 0 and intY >= 0 Then
  22. 左键单击 intX, intY
  23. 开打
  24. End If
  25. '死循环这里需要延迟
  26. Loop
  27. End Function
  28. Function 移动地图找怪()
  29. '如果你只是循环一次 并不是死循环 直接写单线程即可
  30. Randomize//重置随机数据
  31. Delay 1000
  32. dm.KeyPress 9//按Tab打开地图
  33. Delay 2000
  34. dm_ret = dm.FindPic(15,39,770,502,"地图.bmp|","000000",0.9,0,intX,intY)
  35. If intX > 0 And intY > 0 Then
  36. x = Int((151 - 630 + 1) * Rnd + 630)
  37. y = Int((159 - 364 + 1) * Rnd + 364)
  38. 左键单击 x, y
  39. TracePrint "移动地图"
  40. Delay 1000
  41. dm.KeyPress 9//按Tab关闭地图
  42. Delay 3000
  43. End If
  44. End Function
复制代码

收徒索引 ←点击

个 人 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[可加]
3#

回复 2楼n15976906190的帖子

如果绑定两次窗口游戏会失败

4#

回复 2楼n15976906190的帖子

如果绑定两次窗口游戏会崩溃

发新话题 回复该主题