为什么我的按键精灵卡屏命令就运行一次啊？

淡淡雨 · 发表于 2020-10-13 16:58:40

按键精灵里面我的卡屏命令就运行一次，这个是为什么啊？我设置了卡屏的命令 Thread.Start (卡屏判断)  这个线程不是会一直运行在后台运行的啊，但是只是点开始运行中的第一次能执行，执行完了以后卡屏不动也不执行了，这个是为什么啊？应该是一个小细节吧，那位老师帮忙看看更改下  谢谢了。

Import "jsdvip.luae"

If jsdvip.StartServer() Then
TracePrint "恭喜你!!可以使用插件"
Else
TracePrint "很遗憾!!!您的设备不支持jsd节点相关功能"

End If

Import "ShanHai.lua"

Import "zm.luae" //导入插件,只需执行一次
zm.Init  //初始化插件,只需执行一次

Import "ShanHai.lua"

Thread.Start (卡屏判断)

Sub 卡屏判断()

//在5秒内判断屏幕100,100,200,200范围是否卡屏
Dim isDead = zm.IsDisplayDead(100,100,200,200,5000)
If isDead Then
TracePrint "出现卡屏了"
call 卡屏后读取()
Delay 2000
Else
TracePrint "没有卡屏"
End If

End Sub

Sub 卡屏后读取()

ShowMessage "卡屏命令66666666666666666666"
Delay 1000
ShowMessage "卡屏命令7777777777777777777"

Delay 1000

Import "jsdvip.luae"

If jsdvip.StartServer() Then
TracePrint "恭喜你!!可以使用插件"
Else
TracePrint "很遗憾!!!您的设备不支持jsd节点相关功能"

End If
Call 读取()
Delay 1000

End Sub

Call 读取()
Delay 1000

//Dim name = zm.RndName()
//TracePrint name

//Do
//
//Call 读取()
//
//Delay 1000
//
//Loop

Sub 读取()
Call 错误检测()
Delay 2000
Dim 文件读取,arr
文件读取 = File.ReadLines("/sdcard/Pictures/文件.txt")
For Each s In 文件读取

      arr = s
      TracePrint arr

      Delay 100
      Call 寻找点击()
      Delay 100
      InputText arr
      Delay 1000
      Call 搜索点击()
      Delay 1000
      Call 发送代码()
      //InputText arr

      Delay 1000
      //Call File.DeleteLine("/sdcard/Pictures/文件.txt", 1)

Next

End Sub

Sub 找到判断()
Dim intX,intY
FindPic 235,118,399,184,"Attachment:关注判断.png","000000",0,0.9,intX,intY
If intX > -1 And intY > -1 Then
      ShowMessage "成功啦"
      Delay 2000
      call 发送代码()

Else

      Call 搜索返回()

End If

End Sub

Sub 搜索返回()
Dim intX,intY
FindColor 10,28,36,66,"FFFFFF",0,0.9,intX,intY
If intX > -1 And intY > -1 Then
      Tap intX, intY
      Delay 1000
      Call File.DeleteLine("/sdcard/Pictures/文件.txt", 1)
      Delay 1000

      If jsdvip.Click("By.res('com.iqingyi.qingyi:id/search_ab_search')") Then
         TracePrint "点击成功"
         Import "jsdvip.luae"

         //只需执行一次

         TracePrint  jsdvip.ClearText("By.res('com.iqingyi.qingyi:id/search_ab_search')")

         Delay 1000

      Else
         TracePrint "点击失败"
      End If

      Delay 1000
      Call 读取()

End If

End Sub

//
//Sub 子程序()
//Delay 100
//Call 寻找点击()
//Delay 100
//InputText arr
//Delay 1000
//Call 发送代码()
//InputText arr
//子程序运行一次  删除文本第一行内容
//Delay 1000
//Call File.DeleteLine("/sdcard/Pictures/文件.txt", 1)
//End Sub

//Do
//
//Call 子程序()
//
//Delay 1000
//
//
//Loop
Sub 搜索点击()

If jsdvip.Click("By.res('com.iqingyi.qingyi:id/search_ab_doSearch')") Then
      TracePrint "点击成功"
      Delay 3000
      call 找到判断()

Else
      TracePrint "点击失败"
End If

End Sub

Sub 寻找点击()

If jsdvip.Click("By.res('com.iqingyi.qingyi:id/main_ab_search')") Then
      TracePrint "点击成功"
      Delay 3000

Else
      TracePrint "点击失败"
End If

Do

      If jsdvip.Click("By.res('com.iqingyi.qingyi:id/search_ab_search')") Then
         TracePrint "点击成功"
         Delay 3000
         TracePrint  jsdvip.ClearText("By.res('com.iqingyi.qingyi:id/search_ab_search')")
         Delay 100
         Exit Do
      Else
         TracePrint "点击失败"
      End If

Loop

End Sub

Sub 发送代码()

For 5

      If jsdvip.Click("By.res('com.iqingyi.qingyi:id/item_ssl_userImg')") Then
         TracePrint "点击成功"
         Delay 3000

      Else
         TracePrint "点击失败"
      End If

Next

For 5

      If jsdvip.Click("By.res('com.iqingyi.qingyi:id/fm_person_send_letter')") Then
         TracePrint "点击成功"
         Delay 1000

      Else
         TracePrint "点击失败"
      End If

Next
Delay 1000

Call 检测()

Delay 2000

Dim intX,intY
FindColor 81,559,311,584,"FFFFFF",0,0.9,intX,intY
If intX > -1 And intY > -1 Then
      tap intX,intY
      Delay 1000
End If

// InputText "pdd6666666666666666666666666666666666" & name

Delay 1000

FindColor 359,532,399,597,"5DA475",0,0.9,intX,intY
If intX > -1 And intY > -1 Then
      tap intX,intY
      Delay 1000
End If

Delay 23000

Call File.DeleteLine("/sdcard/Pictures/文件.txt", 1)
Delay 1000
Call 返回()

End Sub

Sub 返回()

Dim intX,intY
FindColor 8,25,41,69,"FFFFFF",0,0.9,intX,intY
If intX > -1 And intY > -1 Then
      Tap intX, intY
      Delay 2000
End If

FindColor 7,25,40,66,"FFFFFF",0,0.9,intX,intY
If intX > -1 And intY > -1 Then
      Tap intX, intY
      Delay 2000
End If

FindColor 10,28,40,67,"FFFFFF",0,0.9,intX,intY
If intX > -1 And intY > -1 Then
      Tap intX, intY
      Delay 2000
End If

Call 读取()

End Sub

//取随机逻辑值
//TracePrint shanhai.RndBool()

Sub 检测()

Dim intX,intY
FindPic 0,0,0,0,"Attachment:pdd.png","000000",0,0.9,intX,intY
If intX > -1 And intY > -1 Then
      Delay 1000
      Call 检测返回()

End If

End Sub

Sub 检测返回()

Do
      Dim intX,intY
      FindColor 10,29,37,65,"FFFFFF",0,0.9,intX,intY
      If intX > -1 And intY > -1 Then
         Tap intX, intY
         Delay 2000
         Exit Do
      End If
Loop

Do

      FindColor 10,29,37,65,"FFFFFF",0,0.9,intX,intY
      If intX > -1 And intY > -1 Then
         Tap intX, intY
         Delay 1000
         Exit Do
      End If

Loop

Call 读取()

End Sub

Sub 错误检测()

Dim intX,intY
FindPic 0,0,0,0,"Attachment:跳出.png|Attachment:跳出1.png","000000",0,0.9,intX,intY
If intX > -1 And intY > -1 Then
      Delay 1000
      ShowMessage "全自动跳转到主页发送"

      Delay 9000
      Call 读取()

End If

End Sub