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

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

快捷导航

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

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

【笔记】看完06老师的视频第四集,笔记总结 [复制链接]

1#
06老师之0基础学Q语言第四集

复习前三天的东西,如何实现找图,等图,等多图,找多图
  1. /*----------------基本命令找图------------------------------*/
  2. FindPic 0,0,1024,768,"Attachment:\工具栏.bmp",1,intX,intY
  3. If intX > 0 And intY > 0 Then
  4. TracePrint "找到了!"
  5. End If
  6. /*----------------插件命令找图------------------------------*/
  7. XY = Plugin.ColorEx.FindPic(0,0,1024,768,"C:\Users\admin\Desktop\工具栏.bmp",0.8,1)
  8. If Clng(Left(XY,InStr(XY,"|")-1))> 0 Then
  9. TracePrint "找到!"
  10. Else
  11. TracePrint Clng(Left(XY,InStr(XY,"|")-1))
  12. End If
  13. /*-----------------等图-------------------------------------*/
  14. Function 等图(图片,等待时间)
  15. Do
  16. sTime=Plugin.Sys.GetTime()
  17. Delay 200
  18. FindPic 0,0,1024,768,"Attachment:\工具栏.bmp",1,intX,intY
  19. If intX > - 1 and intY > - 1 Then
  20. TracePrint "图找到了!"
  21. Exit Do
  22. Else
  23. eTime = Plugin.Sys.GetTime()
  24. 时间 = 时间 + eTime - sTime
  25. If 时间/1000 > 等待时间 Then
  26. TracePrint "超时!"
  27. Exit Do
  28. End If
  29. End If
  30. Loop
  31. End Function

  32. /*-----------------等多图-------------------------------------*/
  33. Function 等多图(图片, 等待时间)
  34. 图片列表 = Split(图片, "|")
  35. Do
  36. sTime = Plugin.sys.GetTime()
  37. Delay 200
  38. For i = 0 To UBound(图片列表)
  39. FindPic 0, 0, 1024, 768, 图片列表(i), 0.9, intX, intY
  40. If intX > 0 and intY > 0 Then
  41. TracePrint "找到第" & (i+1) & "张图片"
  42. Exit Do
  43. Else
  44. eTime=Plugin.sys.GetTime()
  45. 时间 = 时间 + eTime - sTime
  46. If 时间 > 10 * 1000 Then
  47. TracePrint "时间超过!"
  48. Exit Do
  49. End If
  50. End If
  51. Next
  52. Loop
  53. End Function


  54. 等多图 "Attachment:\工具栏.bmp",10

复制代码
题:编写一个函数,实现SayString相似功能的函数,只要能够输入输出英文即可
为了区分大小写,我想着,直接转换为按键码,让KeyPress去输出,但是好像有bug,不能输出,只能用这样的方法了!
  1. RunApp "notePad"
  2. Function Say(str)
  3. For i=1 To len(str)    
  4. chr1=mid(str,i,1)
  5. If "a"<= chr1<="z" Then
  6. KeyPress chr1, 1
  7. Else
  8. KeyPress 20,1
  9. KeyPress chr1,1
  10. KeyPress 20,1
  11. End If
  12. Next
  13. KeyPress 13,1
  14. End Function
  15. //测试
  16. say "dasdADasdADSdsadsa"
复制代码

最后编辑wht57403859 最后编辑于 2017-09-13 09:23:13
代码描绘人生!
2#

来看看

3#

你比我厉害👍

发新话题 回复该主题