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

软件版本:2014.05
软件大小:21.6M
更新时间:07-04

按键精灵安卓版
立即下载

软件版本:3.3.1
软件大小:62.5M
更新时间:5-24

按键精灵iOS版
立即下载

软件版本:1.3.5
软件大小:29.2M
更新时间:06-14

最新企业版UiBot
立即下载

软件版本:2.5
软件大小:181M
更新时间:05-20

快捷导航

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

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

[已解决] [视频] 【官方】高级教程——自动打怪实战脚本(3D网游篇)一直在... [复制链接]

1#
Hwnd = Plugin.Window.Find(0, "口袋西游")sRect = Plugin.Window.GetClientRect(Hwnd)Dim MyArrayMyArray=Split(sRect,"|")Ux=CLng(MyArray(0))Uy = CLng(MyArray(1))MessageBox UxRem xuanzeCall chiyao()KeyPress "2", 1Delay 300KeyPress "Tab", 1Delay 1000IfColor 384+Ux,33+Uy,"2D28BE",0 Then Rem gongji Call chiyao()KeyPress "1", 1 Delay 1000 IfColor 385+Ux,37+Uy,"E29621",0 Then Goto gongjiElse Goto xuanzeEnd IfElseGoto xuanzeEnd IfSub chiyao()IfColor 122+Ux,22+Uy,"9D640B",0 Then KeyPress "3", 1 Delay 300End IfEnd Sub官方教材下面的代码
按照视频中的操作来也是一样

本主题由 超级版主 n15976906190 于 2019/7/10 8:37:20 执行 主题分类 操作
2#

回复 1楼914666285的帖子
  1. Hwnd = Plugin.Window.Find(0, "口袋西游")
  2. TracePrint Hwnd'通过与抓抓工具对比 确定句柄是否正确
  3. sRect = Plugin.Window.GetClientRect(Hwnd)
  4. Dim MyArray
  5. MyArray = Split(sRect, "|")
  6. Ux = CLng(MyArray(0))
  7. Uy = CLng(MyArray(1))
  8. MessageBox Ux
  9. Rem xuanze
  10. Call chiyao()
  11. KeyPress "2", 1
  12. Delay 300
  13. KeyPress "Tab", 1
  14. Delay 1000
  15. IfColor 384 + Ux, 33 + Uy, "2D28BE", 0 Then'同下面
  16. Rem gongji
  17. Call chiyao()
  18. TracePrint "准备攻击了"'通过调输出 确定1是否被屏蔽或这里是否允许等
  19. KeyPress "1", 1
  20. Delay 1000
  21. IfColor 385 + Ux, 37 + Uy, "E29621", 0 Then'自行在各个关节位置 加入 TracePrint 并输出变量值 多次测试后可确定问题所在[例:本句应输出385 + Ux与 37 + Uy后 使用抓抓放大镜查看输出坐标颜色是否为"E29621"]
  22. TracePrint "颜色符合,准备攻击"'通过调试输出 直观体现颜色符合
  23. Goto gongji
  24. Else
  25. Goto xuanze
  26. End If
  27. Else
  28. Goto xuanze
  29. End If
  30. Sub chiyao()
  31. IfColor 122 + Ux, 22 + Uy, "9D640B", 0 Then
  32. KeyPress "3", 1
  33. Delay 300
  34. End If
  35. End Sub
  36. '余下关节位置 自行加入 TracePrint 并自行确认问题所在 时间漫长游戏存在更新变化 各电脑显示的颜色也非一致
复制代码

最后编辑n15976906190 最后编辑于 2019-07-10 08:38:02
收徒索引
----将满
个人QQ:1223116618
发新话题 回复该主题