按键精灵游戏实战实例1

Posted 2021-11-09 九黎AJ

普通交流群698307198欢迎加入v群,和各位大神一同交流
免责声明:本博客提供的所有内容仅供学习、分享与交流，我们不保证内容的正确性。通过使用本博客内容随之而来的问题与本博客无关。当使用本博客代码时，代表你已接受本博客的免责声明

群里有人要,正好我这里有些代码,就发出来了.希望对大家有帮助.

正文部分

Dim intX,intY
Call 流程()//调用函数流程()
Function 流程()
	
Call 滑动()	
	
End Function

Function 滑动()
	


While 1
  
//用300毫秒的时间，从点100,100划动到点200,200
Swipe 10, 600, 530, 600, 1000
Delay (50)
Swipe 530, 600, 10, 600, 1000


Wend

End Function

Function 去除首页弹窗()
	


KeepCapture 
FindPic 0,0,0,0,"Attachment:首页1.png","000000",0,0.9,intX,intY
If intX > -1 And intY > -1 Then
	TracePrint intX
	TracePrint intY
	Tap intX, intY
	ShowMessage"点击了首页弹窗"
	ReleaseCapture//回收内存图片
End If
Delay 1000

KeepCapture 
FindPic 0,0,0,0,"Attachment:首页2.png","000000",0,0.9,intX,intY
If intX > -1 And intY > -1 Then
	TracePrint intX
	TracePrint intY
	Tap intX, intY
		ShowMessage"点击了首页弹窗2"
	ReleaseCapture//回收内存图片
End If

Delay 1000
KeepCapture 
FindPic 420,164,489,223,"Attachment:首页2.png","000000",0,0.9,intX,intY
If intX > -1 And intY > -1 Then
	TracePrint intX
	TracePrint intY
	Tap intX, intY
	ShowMessage"点击了首页弹窗"
	ReleaseCapture//回收内存图片
End If

Delay 1000

KeepCapture 
FindPic 426,96,522,204,"Attachment:首页3.png","000000",0,0.9,intX,intY
If intX > -1 And intY > -1 Then
	TracePrint intX
	TracePrint intY
	Tap intX, intY
	ShowMessage"点击了首页弹窗"
	ReleaseCapture//回收内存图片
End If
End Function