如題，我測試時，只執行了一次，第二次卡住時間到后，沒有調用超時判斷，特請教一下，代碼如下：

'/**********線程控制*******

Dim 檢測線程

Thread.SetShareVar "是否卡主", false

檢測線程 = Thread.Start(test_thread)

call 超時判斷()

Do

'其它點擊，手動點擊控制畫面變動，主要測試此線程

Delay 3000

Loop

Sub 超時判斷()

Do

Delay 500

If Thread.GetShareVar("是否卡主") = true Then

TracePrint "卡著超過10秒,結束線程"

Delay 5000

Thread.Stop (檢測線程)

TracePrint "線程停止,等待處理"

Delay 5000

Call 超時處理()

Delay 15000

檢測線程 = Thread.Start(test_thread)

TracePrint "線程已重新啟動"

Exit Do

End If

Loop

End Sub

Sub 超時處理()

Delay 2000

KillApp "com.tencent.feiji"

Delay 3000

Delay 3000

RunApp "com.tencent.feiji"

End Sub

Sub test_thread()

Dim 起始顏色1 = GetPixelColor(340,1043)

Dim 起始顏色2 = GetPixelColor(657,778)

Dim 秒數 = 0

Do

Delay 1000

Dim 結束顏色1 = GetPixelColor(340,1043)

Dim 結束顏色2 = GetPixelColor(657,778)

If 起始顏色1 = 結束顏色1 And 起始顏色2 = 結束顏色2 Then ' And 起始顏色2 = 結束顏色2

秒數 = 秒數 + 1

If 秒數 > 15 Then

Thread.SetShareVar "是否卡主", true

Delay 2000

Exit Do

End If

TracePrint "界面已經" & 秒數 & "秒沒變了"

Else

TracePrint "界面變化了，說明腳本還在正常運行"

起始顏色1 = GetPixelColor(340, 1043)

起始顏色2 = GetPixelColor(657,778)

秒數 = 0

End If

Loop

End Sub

'*/*********線程控制*******

總結

以上是生活随笔為你收集整理的android 按钮控制线程,关于手机安卓-线程测试的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。