网页有一个不定时的打卡弹窗按键精灵的脚本该怎么弄？

//你这个最好用线程检测
Dim 检测线程,intX,intY /*关闭窗口坐标*/
Thread.SetShareVar "是否卡住",false
检测线程 = Thread.Start(游戏子线程)
Function 检测()
Do
Delay 500
If Thread.GetShareVar("是否卡住") = true Then
TracePrint "有弹窗"
Tap intX, intY
Delay 1000
Thread.SetShareVar "是否卡住", false
检测线程 = Thread.Start(游戏子线程)
End If
Loop

End Function
Do
Call 检测()
Loop
Function 游戏子线程()
Dim intX, intY
Do
Delay 1000
FindPic x1,y1,x2,y2, "Attachment:窗口.png", "101010", 0, 0.9, intX, intY
If intX > -1 And intY > -1 Then
Thread.SetShareVar "是否卡住", true
Exit Do
End If
Loop
End Function
//这个用线程检测，在有弹窗时，线程就为true状态，并且点击坐标关闭窗口，在又把线程转为false状态，并且用do循环，让他不断检测