你们的小6是这样的吗？

自己写就好，不用录的

我的荣耀6边框缝隙很大，你的呢

Delay 1187- TickCount()
For 9999999
Dim 开始
开始 = CmpColor(60,1145,"0BBDF3",0.8)
If 开始 > -1 Then
ShowMessage "挂机开始"
Touch 60, 1145, 100
Delay 27891
Dim 冲刺
冲刺 = CmpColor(682,946,"1FF5FF",0.8)
If 冲刺 > -1 Then
ShowMessage "检测到超级冲刺"
Delay 20000
Call 超级冲刺()
Else
Delay 20000
End If
Else
Delay 1000
End If
Dim 来一局
来一局 = CmpColor(202,582,"3881D4",0.8)
If 来一局 > -1 Then
ShowMessage "再来一局"
Call 再来一局()
Delay 4423
Else
Delay 1000
End If
Dim 结算分数
结算分数 = CmpColor(246,358,"5AF8FF",0.8)
If 结算分数 > -1 Then
ShowMessage "结算分数"
Call 结算()
Delay 2228
Else
Delay 1000
End If
Dim 箱子
箱子 = CmpColor(366,596,"B01AEA",0.8)
If 箱子 > -1 Then
ShowMessage "开箱子"
Call 开箱子()
Delay 2000
Else
Delay 1000
End If
Dim 魔法
魔法 = CmpColor(656,820,"FF1E9B",0.8)
If 魔法 > -1 Then
ShowMessage "检测到魔法石"
Delay 3000
Call 魔法石()
Else
Delay 1000
End If
Dim 天空钥匙
天空钥匙 = CmpColor(266,637,"535974",0.9)
If 天空钥匙 > -1 Then
ShowMessage "检测到钥匙"
Delay 3000
Call 钥匙()
Else
Delay 1000
End If
Dim 领奖
领奖 = CmpColor(63,261,"D5E8F6",0.8)
If 领奖 > -1 Then
ShowMessage "领取奖励"
Delay 2000
Call 领取奖励()
Else
Delay 1000
End If
Next
Sub 再来一局()
Touch 202, 582, 100
End Sub
Sub 结算()
Touch 246, 358, 100
Delay 2423
Touch 71, 340, 100
End Sub
Sub 开箱子()
Touch 83, 503, 100
End Sub
Sub 领取奖励()
Touch 63, 261, 100
End Sub
Sub 超级冲刺()
Delay 15000
End Sub
Sub 钥匙()
Touch 65, 575, 100
End Sub
Sub 魔法石()
Touch 668, 164, 100
End Sub