如題，我測(cè)試時(shí)，只執(zhí)行了一次，第二次卡住時(shí)間到后，沒有調(diào)用超時(shí)判斷，特請(qǐng)教一下，代碼如下：

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

Dim 檢測(cè)線程

Thread.SetShareVar "是否卡主", false

檢測(cè)線程 = Thread.Start(test_thread)

call 超時(shí)判斷()

Do

'其它點(diǎn)擊，手動(dòng)點(diǎn)擊控制畫面變動(dòng)，主要測(cè)試此線程

Delay 3000

Loop

Sub 超時(shí)判斷()

Do

Delay 500

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

TracePrint "卡著超過10秒,結(jié)束線程"

Delay 5000

Thread.Stop (檢測(cè)線程)

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

Delay 5000

Call 超時(shí)處理()

Delay 15000

檢測(cè)線程 = Thread.Start(test_thread)

TracePrint "線程已重新啟動(dòng)"

Exit Do

End If

Loop

End Sub

Sub 超時(shí)處理()

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 秒數(shù) = 0

Do

Delay 1000

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

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

If 起始顏色1 = 結(jié)束顏色1 And 起始顏色2 = 結(jié)束顏色2 Then ' And 起始顏色2 = 結(jié)束顏色2

秒數(shù) = 秒數(shù) + 1

If 秒數(shù) > 15 Then

Thread.SetShareVar "是否卡主", true

Delay 2000

Exit Do

End If

TracePrint "界面已經(jīng)" & 秒數(shù) & "秒沒變了"

Else

TracePrint "界面變化了，說明腳本還在正常運(yùn)行"

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

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

秒數(shù) = 0

End If

Loop

End Sub

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

總結(jié)

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

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯(cuò)，歡迎將生活随笔推薦給好友。