求助！！！求大佬帮看看哪里错了【按键精灵吧】

10月07日漏签0天

按键精灵吧关注：499,372贴子：1,005,880

5回复贴，共1页

<返回按键精灵吧

求助！！！求大佬帮看看哪里错了

只看楼主收藏回复

今天试着写了个脚本，但是测试的时候提示我有六个错误，我实在是看不出来，跪求各位大佬帮忙

Do
If Sys.AppIsFront("com.xxyystudio.g2") = True Then
ShowMessage "游戏正在运行", 3000, 350, 350
Dim SYx,SYy
FindPic 10,24,288,207,"Attachment:shenye.png","000000",3,0.8,SYx,SYy
If SYx > -1 And SYy > -1 Then
ShowMessage "深夜不搜索", 5000, 350, 350
Delay 5000
Else
Dim Sx,Sy
FindPic 0,0,0,0,"Attachment:sousuo.png","000000",2,0.8,Sx,Sy
If Sx > -1 And Sy > -1 Then
TracePrint Sx
TracePrint Sy
Tap Sx, Sy
End If
Dim Tx=-1,Ty=-1
Dim Cx=-1,Cy=-1
Dim Lx=-1,Ly=-1
Dim SQx=-1,SQy=-1
Dim Bx=-1,By=-1
Dim SSx=-1,SSy=-1
Do
FindPic 0,0,0,0,"Attachment:caiji.png","000000",3,0.8,Cx,Cy
FindPic 0, 0, 0, 0, "Attachment:tao.png", "000000", 3, 0.8, Tx, Ty
FindPic 0, 0, 0, 0, "Attachment:Likai.png", "000000", 3, 0.8, Lx, Ly
FindPic 0,0,0,0,"Attachment:bikai.png","000000",3,0.8,Bx,By
FindPic 0, 0, 0, 0, "Attachment:shiqu.png", "000000", 3, 0.8, SQx, SQy
FindPic 0,0,0,0,"Attachment:ssuo.png","000000",3,0.8,SSx,SSy
If Tx > -1 And Ty > -1 Then
TracePrint Tx
TracePrint Ty
Tap Tx, Ty
Exit Do
Else
If Cx > -1 And Cy > -1 Then
TracePrint Cx
TracePrint Cy
Tap Cx, Cy
Exit Do
Else
If SQx > -1 And SQy > -1 Then
TracePrint SQx
TracePrint SQy
Tap SQx, SQy
Exit Do
Else
If Lx > -1 And Ly > -1 Then
TracePrint Lx
TracePrint Ly
Tap Lx, Ly
Exit Do
Else
If Bx > -1 And By > -1 Then
TracePrint Bx
TracePrint By
Tap Bx, By
Exit Do
Else
If SSx > -1 And SSy > -1 Then
TracePrint SSx
TracePrint SSy
Tap SSx, SSy
Exit Do
Else
ShowMessage "好像故障了呢", 3000, 350, 350
End If
End If
End If
End If
End If
End If

送TA礼物

IP属地:山东

1楼2021-07-20 23:55回复

后半段在这里
Dim 原始数值
Dim 精力
原始数值 = SmartOcr(780, 167, 897, 190, "C4C5C6-505050")
精力 = Int(原始数值/1000)
TracePrint 精力
If 精力<10 Then
ShowMessage "精力不足停止运行", 10000, 350, 350
EndScript
Else
ShowMessage "精力充足", 5000, 350, 350
End If
End If
Loop
Else
RunApp "com.xxyystudio.g2"
Dim Qx,Qy
Dim wx,wy
Do
FindPic 0,0,0,0,"Attachment:gonggao.png","000000",0,0.8,wx,wy
If wx > -1 And wy > -1 Then
FindPic 0,0,0,0,"Attachment:20210720172842253.png","050505",1,0.9,Qx,Qy
If Qx > -1 And Qy > -1 Then
TracePrint Qx
TracePrint Qy
Tap Qx, Qy
TracePrint "找到了"
Exit Do
End If
Else
Delay 200
TracePrint "没找到"
End If
Loop
Dim Jx,Jy
Do
FindPic 0,0,0,0,"Attachment:20210720173554114.png","000000",3,0.9,Jx,Jy
If Jx > -1 And Jy > -1 Then
TracePrint Jx
TracePrint Jy
Tap Jx, Jy
Exit Do
Else
Delay 200
End If
Loop
Dim Xx,Xy
Do
FindPic 0,0,0,0,"Attachment:jixu.png","000000",2,0.8,Xx,Xy
If Xx > -1 And Xy > -1 Then
TracePrint Xx
TracePrint Xy
Tap Xx, Xy
Exit Do
Else
Delay 200
End If
Loop
End If
Loop

IP属地:山东

2楼2021-07-20 23:56