按键精灵安卓版项目实战：自动登录游戏

免责声明

本视频内容纯属个人爱好，目的仅限于学习交流之用，对使用视频内的信息随之而来的风险与本人无关。本人也不为视频所提供的信息错误、残缺、延时或因依靠此类信息所采取的任何行动负责。访问者可将本视频提供的内容或服务用于个人学习、研究或欣赏，以及其他非商业性或非盈利性用途。但同时应遵守著作权法及其他相关法律的规定，不得侵犯本人及相关权利人的合法权利。

相关视频链接：

https://www.bilibili.com/video/BV1vi4y1M7y9/

源代码：

Sub 登录游戏()
	RunApp "air.com.mfs.fgcs"
	Delay 5000
    While true
    Dim intX,intY,intX1,intY1,intX2,intY2
	FindPic 781,162,817,213,"Attachment:1.png","101010",0,0.8,intX,intY
	If intX > -1 And intY > -1 Then
	TracePrint intX
	TracePrint intY
	Tap 1416, 753
	TracePrint  "登录1"
	End If
    Delay 1000
    
	FindMultiColor 1296,707,1346,760,"AADDEE","2|25|AADDEE-101010,26|4|AADDEE-101010",0,0.8,intX1,intY1
	If intX1 > -1 And intY1 > -1 Then
	TracePrint intX1
	TracePrint intY1
	TracePrint  "登录2"
	tap 1326,729
	End If
	Delay 1000
	SetRowsNumber(0)
	//注意：每次制作完字库后，需要自行把制作的字库文件添加到脚本“附件”中
	TracePrint SetDictEx(0, "Attachment:mq_soft.txt")
	TracePrint UseDict(0)
	//以上两句脚本只需要调用一次
	
	FindStr(1735,965,1783,1014,"入","AADDEE",0.9,intX2,intY2)
	If intX2 > -1 And intY2 > -1 Then
	TracePrint intX2
	TracePrint intY2
	Tap 1677, 992
	TracePrint  "登录3"
	Exit While
	End If
    Delay 1000 
Wend
End Sub