DIY

[完美解决]多线程启动 ...

尛屁孩的愛[果猿] Rank: 1 果壳币: 6

发表于 2021-4-8 21:17:18 | 2 条回复 | 60 次浏览

RunApp "com.lwhy.jwqdc"

Import "GK.luae"
//Do While True
Dim x
x=Thread.Start(main)
Dim b
b=Thread.Start(定时弓箭手)
Dim n
n =Thread.Start(定时关公)
//Dim m = Thread.Start(防卡死)
//Loop

//main
Sub ms(str)
    ShowMessage str
    TracePrint str
End Sub
Sub 截屏(T)
    Delay T:KeepCapture: Delay 100
        
End Sub
Sub 定时弓箭手
    While True
        TracePrint GK.FindTM({78,1015,180,1156,"52D3FF-050505","18|5|734D39-050505,54|-17|4A9ACE-050505,49|7|BD9263-050505,5|57|A57D5A-050505",true},10)
        Delay 2000
        TracePrint GK.FindTM({241,1025,361,1138,"42AEF7-050505","13|-3|734939-050505,38|-21|4A96C6-050505,33|3|BD8E63-050505,1|49|A57D5A-050505",true},10)
        Delay 8000
        TracePrint GK.FindTM({441,1030,538,1129,"5ACFFF-050505","25|-1|6B4539-050505,61|-12|52B2D6-050505,57|20|BD8E63-050505,18|68|A57D5A-050505",true},10)
        Delay 12000
    Wend
End Sub
Sub 定时关公
    While True
        dim 秒钟=  DateTime.Second()
        If 秒钟 > 5 Then
            关公抽奖
        End If
        
    Wend
End Sub
Sub 关公抽奖
    While True
        If GK.Find(47,579,141,671,"217129-050505","-12|3|7BE3F7-050505,-36|9|3151F7-050505,-14|23|F7FFF7-050505,-32|24|9C9EEF-050505,-30|44|4A4573-050505",true)  then
            TracePrint "关公"
        End If
    Wend   
End Sub
Sub main
    Do While True
        If GK.Find(314,1756,664,1919,"52CBF7-050505","23|-10|396DDE-050505,66|-26|C6D3BD-050505,69|-5|290C00-050505,-34|-5|4A9AD6-050505,94|-17|1828AD-050505",true)  then
            TracePrint "士兵"
        End If
    Loop
End Sub
Sub 防卡死
        
End Sub
最佳答案
2021-4-12 17:17:48
Thread.Start test_thread, "我爱", "果壳王子"
//如果主线程停止,所有的子线程都会停止,因此主线程要设置一个循环不让它停止。
Do
  Delay 2000
Loop
Sub test_thread(var1,var2)
  For i=1 to 100
    TracePrint var1&" → "&var2&i&"次"
    Delay 1000
  Next 
End Sub


发新帖
果壳王子[果壳校长] [王子殿下] Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20 果壳热讲师 独家品牌学院 果壳热大导师 果壳学院创始人 果壳热教职工 果壳热平台站长 果壳学院校长/副校长 果壳学长 果壳热研究生 果壳币: 4720

发表于 2021-4-12 17:17:48

果壳王子 —— 来自果壳热互助团队
Thread.Start test_thread, "我爱", "果壳王子"
//如果主线程停止,所有的子线程都会停止,因此主线程要设置一个循环不让它停止。
Do
  Delay 2000
Loop
Sub test_thread(var1,var2)
  For i=1 to 100
    TracePrint var1&" → "&var2&i&"次"
    Delay 1000
  Next 
End Sub


回复 道具 举报

觉新[果猿] Rank: 1 果壳币: 8

发表于 2021-4-21 01:49:58


现在单线程是不是也无法调用果壳呢?

回复 道具 举报

发新帖
您需要登录后才可以回帖 登录 | 注册成为果猿 微信登录

手机版

© 2020-2030 果壳热 All rights reserved.

Powered by GUOHOT XS8.8. Theme designed by GUOKEHOT.

top bottom