Dim intX, intY, i=0
//QQ手游登陆
While i = 0
FindPic 0, 0, 0, 0, "Attachment:qq2登陆.png", "000000", 0, 0.9, intX, intY
If intX > -1 And intY > -1 Then
i=1
Tap intX, intY
End If
Delay 1000
Wend
While i = 1
FindPic 0, 0, 0, 0, "Attachment:切换账号.png", "000000", 0, 0.9, intX, intY
If intX > -1 And intY > -1 Then
i=2
Tap intX, intY
End If
Delay 1000
Wend
For 1
Delay 2000
Swipe 192, 1112, 194, 774
Delay 2000
Next
While i = 2
FindPic 0, 0, 0, 0, "Attachment:添加账号.png", "000000", 0, 0.9, intX, intY
If intX > -1 And intY > -1 Then
i=3
Tap intX, intY
End If
Delay 2000
Wend
For 1
InputText "381022422"
Delay 500
Next
While i = 3
FindPic 0, 0, 0, 0, "Attachment:QQ登陆2.png", "000000", 0, 0.9, intX, intY
If intX > -1 And intY > -1 Then
i=4
Tap intX, intY
End If
Delay 5000
Wend
While i = 4
Delay 3000
FindPic 219, 675, 287, 798, "Attachment:点击选择.png", "000000", 0, 0.9, intX, intY
If intX > -1 And intY > -1 Then
i=5
Tap intX, intY
End If
Delay 3000
Wend
While i = 0
FindPic 0, 0, 0, 0, "Attachment:31-45.png", "000000", 0, 0.9, intX, intY
If intX > -1 And intY > -1 Then
i = 1
Tap intX, intY
End If
Delay 3000
Wend
While i = 1
FindPic 0, 0, 0, 0, "Attachment:36区.png", "000000", 0, 0.9, intX, intY
If intX > -1 And intY > -1 Then
i=2
Tap intX, intY
End If
Delay 1000
Wend
While i = 2
FindPic 0, 0, 0, 0, "Attachment:确定1.png", "000000", 0, 0.9, intX, intY
If intX > -1 And intY > -1 Then
i=3
Tap intX, intY
End If
Delay 1000
Wend
麻烦帮我看看,有什么问题?谢谢啊