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

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

按键精灵安卓版
立即下载

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

按键精灵iOS版
立即下载

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

按键精灵Mac版
立即下载

软件版本:1.1.0
软件大小:12.3M
更新时间:12-29

快捷导航

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

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

[其他] 版主给一下这个代码 [复制链接]

1#

本主题由 版主 gljxsd 于 2018/3/13 18:55:28 执行 主题分类 操作
2#

回复 1楼w6186280的帖子
  1. Do
  2. For i=0 to 3
  3. Call Plugin.Msg.Tips("【找图】" &XH(i))
  4. FindPic 0,0,1024,768,"Attachment:\"&XH(i),0.9,intX,intY
  5. If intX > 0 And intY > 0 Then
  6. MessageBox "找到图,"&XH(i)
  7. //↓选择找到第几个图后选择相应的操作
  8. Call 条件选择()
  9. //↑如果找到任何图都进行统一的操作,就不用调用 Call 条件选择()
  10. //↓这个是找到图任何图后就跳出大循环,继续完成下面的代码
  11. Exit Do
  12. End If
  13. Delay 500
  14. Next
  15. Delay 100
  16. Loop


  17. Sub 条件选择()
  18. Select Case i
  19. Case 0
  20. MessageBox "我是图1"
  21. Case 1
  22. MessageBox "我是图2"
  23. Case 2
  24. MessageBox "我是图3"
  25. Case 3
  26. MessageBox "我是图4"
  27. Case Else
  28. MessageBox "错误"
  29. EndScript
  30. End Select
  31. End Sub
复制代码

自命不凡,其实很落魄

个人QQ:1223116618
发新话题 回复该主题