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

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

快捷导航

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

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

[已解决] 设置找图设置x,y变量问题 求大佬解惑 [复制链接]

我乃良辰
头像

  • 按键精灵会员
  • 9151062
  • 80
  • 0
  • 78 朵
  • 135 个
  • 105 个
  • 0
  • 2023-11-08
1#
t T
发表于 2024-03-29 14:51 | |只看楼主
  1. Dim 测试范围,xx,yy,xx1,yy1,x1,x2,y1,y2
  2. //----------如何从输入框获取找图范围并加上xx,yy,xx1,yy1用来找图
  3. xx=1
  4. yy=29
  5. xx1=8
  6. yy1=37
  7. //----------
  8. 测试范围 = Form1.InputBox1.Text//输入框内容为xx+0,yy+900,xx1+90,yy1+1000
  9. Call 自定范围(测试范围)
  10. FindPic x1,x2,y1,y2,"D:\图片素材\按键精灵图标.bmp",0.9,intX,intY
  11. If intX > 0 And intY > 0 Then
  12. TracePrint "找到按键精灵"
  13. Else
  14. TracePrint "未找到按键精灵"
  15. End If


  18. Function 自定范围(范围)
  19. xy = 范围
  20. 要改变的Q=" "
  21. 变成Q = ""
  22. xy = Replace(xy, 要改变的Q, 变成Q)
  23. 要改变的=","
  24. 变成 = "|"
  25. xy = Replace(xy, 要改变的, 变成)
  26. xy = split(xy, "|")
  27. x1 = xy(0)
  28. y1 = xy(1)
  29. x2 = xy(2)
  30. y2 = xy(3)
  31. TracePrint x1&y1&x2&y2
  32. End Function
复制代码

附件:您需要登录才可以下载或查看附件。没有帐号? 注册
本主题由 超级版主 瑞祥幽冥狼 于 2024/3/29 15:55:30 执行 审核主题 操作
点赞
回顶部
瑞祥幽冥狼
头像

按 键 工 程 师 ● 兼 职

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

,
  1. Dim 测试范围,xx,yy,xx1,yy1,x1,x2,y1,y2
  2. //----------如何从输入框获取找图范围并加上xx,yy,xx1,yy1用来找图
  3. xx=1
  4. yy=29
  5. xx1=8
  6. yy1=37
  7. //----------
  8. 测试范围 = Form1.InputBox1.Text//输入框内容为xx+0,yy+900,xx1+90,yy1+1000
  9. Call 自定范围(测试范围)
  10. FindPic x1,x2,y1,y2,"C:\Users\Administrator\Desktop\111.bmp",0.9,intX,intY
  11. If intX > 0 And intY > 0 Then
  12. TracePrint "找到按键精灵"
  13. Else
  14. TracePrint "未找到按键精灵"
  15. End If


  18. Function 自定范围(范围)
  19. xy = 范围
  20. 要改变的Q=" "
  21. 变成Q = ""
  22. xy = Replace(xy, 要改变的Q, 变成Q)
  23. 要改变的=","
  24. 变成 = "|"
  25. xy = Replace(xy, 要改变的, 变成)
  26. xy = split(xy, "|")
  27. x1 = eval(xy(0))
  28. y1 = eval(xy(1))
  29. x2 = eval(xy(2))
  30. y2 = eval(xy(3))
  31. TracePrint x1&","&y1&","&x2&","&y2
  32. 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［可加］
回顶部
我乃良辰
头像

  • 按键精灵会员
  • 9151062
  • 80
  • 0
  • 78 朵
  • 135 个
  • 105 个
  • 0
  • 2023-11-08
3#
t T
发表于 2024-03-29 19:02 | |只看楼主

,

感谢狼哥

回顶部
我乃良辰
头像

  • 按键精灵会员
  • 9151062
  • 80
  • 0
  • 78 朵
  • 135 个
  • 105 个
  • 0
  • 2023-11-08
4#
t T
发表于 2024-03-29 19:04 | |只看楼主

,

狼哥 eval 这个起到什么作用呀 我在全部命令里找不到

回顶部
瑞祥幽冥狼
头像

按 键 工 程 师 ● 兼 职

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

[老狼][源码分享]----VBScript块、Execute、Eval----被城管追赶的第十天(20)
//bbs.anjian.com/showtopic-697994-1.aspx

收 徒 索 引 ← ← ← ← ← ← ← ← ← ← 点 击

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