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

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

按键精灵安卓版
立即下载

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

按键精灵iOS版
立即下载

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

最新企业版UiBot
立即下载

软件版本:3.3
软件大小:282M
更新时间:08-06

快捷导航

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

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

[已解决] 工程师大大救命呀 [复制链接]

1#
Hwnd = Plugin.Window.Find(0, "发过火")//查找窗口句柄
sRect = Plugin.Window.GetClientRect(Hwnd)//得到窗口的大小
Dim MyArray//自定义变量
MyArray=Split(sRect,"|")
Ux=CLng(MyArray(0))
Uy = CLng(MyArray(1))
Delay 300
FindPic 0+Ux,10+Uy,83+Ux,180+Uy,"Attachment:\3.bmp",0.8,cintX,cintY
If cintX > 0 And cintY > 0 Then
Delay 300
MoveTo 21+Ux, 86+Uy
Delay 300
LeftClick 1
Delay 1000
LeftClick 1
End If
Delay 300
FindPic 34+Ux,121+Uy,85+Ux,688+Uy,"Attachment:\1.bmp",0.8,intX,intY
If intX > 0 And intY > 0 Then
Call Plugin.Window.Size(Hwnd, 300, 550)
Delay 300
MoveTo intX,intY
Delay 300
LeftClick 1
Delay 400
End If
Delay 300
FindPic 0+Ux,10+Uy,83+Ux,180+Uy,"Attachment:\2.bmp",0.8,aintX,aintY
If aintX > 0 And aintY > 0 Then
Delay 300
MoveTo 150+Ux, 226+Uy
Delay 300
LeftClick 1
Delay 5000
End If
FindColor 0+Ux,0+Uy,362+Ux,238+Uy,"319E7B",bintX,bintY
If bintX > 0 And bintY > 0 Then
MessageBox "该答题了,孩子"
Delay 15000
End If
FindPic 11+Ux,480+Uy,127+Ux,538+Uy,"Attachment:\6.bmp",0.8,intX,intY
If intX > 0 And intY > 0 Then
Delay 300
MoveTo 128+Ux, 330+Uy
Delay 300
MouseWheel -3
End If
FindPic 2+Ux,2+Uy,371+Ux,488+Uy,"Attachment:\4.bmp",0.8,eintX,eintY
If eintX > 0 And eintY > 0 Then
Delay 300
MoveTo eintX,eintY
Delay 300
LeftClick 1
End If
Sub 判断题()
End Sub
Sub 单选题()
End Sub
有没有办法 把程序简单化 感觉我这样太复杂了

本主题由 超级版主 n15976906190 于 2019/10/10 10:02:50 执行 主题分类 操作
2#

回复 1楼2217408688的帖子
  1. '原代码
  2. FindPic 0+Ux,10+Uy,83+Ux,180+Uy,"Attachment:\3.bmp",0.8,cintX,cintY
  3. If cintX > 0 And cintY > 0 Then
  4. Delay 300
  5. MoveTo 21+Ux, 86+Uy
  6. Delay 300
  7. LeftClick 1
  8. Delay 1000
  9. LeftClick 1
  10. End If
  11. Delay 300
  12. FindPic 34+Ux,121+Uy,85+Ux,688+Uy,"Attachment:\1.bmp",0.8,intX,intY
  13. If intX > 0 And intY > 0 Then
  14. Call Plugin.Window.Size(Hwnd, 300, 550)
  15. Delay 300
  16. MoveTo intX,intY
  17. Delay 300
  18. LeftClick 1
  19. Delay 400
  20. End If
  21. Delay 300
  22. '简化后[按调用sub及Function的方式发展]
  23. FindPic 0+Ux,10+Uy,83+Ux,180+Uy,"Attachment:\3.bmp",0.8,cintX,cintY
  24. If cintX > 0 And cintY > 0 Then
  25. 移动并点击 21+Ux, 86+Uy,2,1000
  26. End If
  27. Delay 300
  28. FindPic 34+Ux,121+Uy,85+Ux,688+Uy,"Attachment:\1.bmp",0.8,intX,intY
  29. If intX > 0 And intY > 0 Then
  30. 移动并点击 intX,intY,1,400
  31. End If
  32. Delay 300
  33. Sub 移动并点击(x, y, 点击次数, 点击延迟)
  34. Call Plugin.Window.Size(Hwnd, 300, 550)
  35. Delay 300
  36. MoveTo x, y
  37. Delay 300
  38. For 点击次数
  39. LeftClick 1
  40. Delay 点击延迟
  41. Next
  42. End Sub
复制代码

收徒索引 ←点击

个 人 Q Q : 1 2 2 3 1 1 6 6 1 8
发新话题 回复该主题