Dim t1,t2 Dim screenX,X Dim screenY,Y Dim a,b,c screenX = GetScreenX() X=0.46*screenX screenY = GetScreenY() Y=0.46*screenY t1 = Time() ShowMessage "by笑嘻嘻哈哈呵呵", 3, 0.35*screenY, 0.4*screenX While 1 Randomize a = int(rnd() * 9)+18 b = int(rnd() * 18) + 10 c = Int(Rnd() * 7) + 20 Tap X + b, Y + a Tap X - a, Y + c Tap X + c, Y - b Tap X - c, Y - a t2=time() If t2 - t1 > 33 Then EndScript End If wend