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

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

快捷导航

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

发新话题 回复该主题

[已解决] 跟着教程做的 但是脚本信息没显示任何东西 [复制链接]

1#
Dim 等图横坐标
Dim 等图纵坐标


Function 等图(图片)
Do
FindPic 0,0,1024,768,"Attachment:\" &图片,0.9,等图横坐标,等图纵坐标
If 等图横坐标 >= 0 Then
等图 = True
Exit Do
End If
Loop
End Function


If 等图("baidu.bmp") Then
TracePrint "等到图片了"
TracePrint "图片位置" & 等图横坐标 & "," & 等图纵坐标
End If

本主题由 超级版主 瑞祥幽冥狼 于 2021/8/23 14:09:54 执行 主题分类 操作
2#

回复 1楼331718995的帖子
  1. Dim 等图横坐标,等图纵坐标
  2. Function 等图(图片)
  3. Do
  4. FindPic 0,0,1024,768,"C:\" &图片,0.9,等图横坐标,等图纵坐标'采用绝对路径 图片必须抓抓截图的 确定下识别区域0,0,1024,768是否正确
  5. If 等图横坐标 >= 0 Then
  6. 等图 = True
  7. Exit Do
  8. End If
  9. Delay 1000'死循环必要延迟
  10. Loop
  11. End Function
  12. If 等图("1.bmp") Then
  13. TracePrint "等到图片了"
  14. TracePrint "图片位置" & 等图横坐标 & "," & 等图纵坐标
  15. End If
复制代码
您所在的用户组无法下载或查看附件

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

个 人 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[可加]
发新话题 回复该主题