Dim 标记=False
更换VPN("新疆", 2)
TracePrint 标记
标记=False
打开VPN
TracePrint 标记
Function 打开VPN()
If Sys.isRunning("com.fvcorp.android.aijiasuclient")=True Then
KillApp ("com.fvcorp.android.aijiasuclient")
Delay 1500
打开VPN
Exit Function
Else
RunApp "com.fvcorp.android.aijiasuclient"
Delay 5000
Dim 元素数组 = zm.ElementFind("当前服务器:","com.fvcorp.android.aijiasuclient:id/textSelectedServer","android.widget.TextView","com.fvcorp.android.aijiasuclient")
If 元素数组 Then
zm.Tap 元素数组["x"], 元素数组["y"]
Delay 3000
更换VPN("新疆", 2)
Exit Function
Else
打开VPN
Exit Function
End If
End If
End Function
Function 更换VPN(地名, 次数)
Dim 返回数组()
If zm.FindColor(44, 418, 51, 432, "CECECE", 返回数组) Then
zm.Tap 返回数组["x"], 返回数组["y"]
End If
Dim 元素数组 = zm.ElementFind("^"&地名&".*", -2)
If 元素数组 Then
标记 = True
Exit Function
Else
次数 = 次数 - 1
If 次数 < 0 Then Exit Function
zm.Swipe (525,1874,820,350,800)
更换VPN 地名, 次数
Exit Function
End If
End Function