检测计算机是否在线脚本,请问这算不算后台脚本，会不会被官方检测到，在线等...

该楼层疑似违规已被系统折叠 隐藏此楼查看此楼

Dim intX, intY

Dim intXS, intYS

Dim Delay1

Randomize

intXS = Int((1300 - 1280 + 1) * Rnd + 1280)

intYS = Int((740 - 720 + 1) * Rnd + 720)

Rem S

Randomize

Delay1 = Int((600 - 300 + 1) * Rnd + 300)

Rem A

FindPic 0, 0, 0, 0, "Attachment:01.png", "000000", 0, 0.9, intX, intY

If intX > -1 And intY > -1 Then

Delay Delay1

Tap intXS, intYS

Else

Goto A

End If

Randomize

Delay1 = Int((600 - 300 + 1) * Rnd + 300)

Rem A2

FindPic 0, 0, 0, 0, "Attachment:02.png", "000000", 0, 0.9, intX, intY

If intX > -1 And intY > -1 Then

Delay Delay1

Tap intXS, intYS

Else

Goto A2

End If

Rem A3

FindPic 352, 563, 1087, 571, "Attachment:03.png", "000000", 0, 0.9, intX, intY

If intX > -1 And intY > -1 Then

Tap intXS, intYS

Else

Goto A3

End If

Randomize

Delay1 = Int((3300 - 3000 + 1) * Rnd + 3000)

Delay Delay1

FindPic 0, 0, 0, 0, "Attachment:01.png", "000000", 0, 0.9, intX, intY

If intX > -1 And intY > -1 Then

Goto S

Else

Tap intXS, intYS

Goto S

End If