按键精灵 怎么在Function c() 停止sub a() 让里面的函数不在继续执行

2024年11月22日 15:26
有2个网友回答
网友(1):

//读取txt word = Plugin.File.ReadFileEx("C:\1.txt") //分割为行 Dim hang hang = split(hang, "|") //循环打出每一行 For i = 0 To UBound(hang) SayString hang(i) Delay 900 KeyPress "Tab", 1 Delay 500 //暂停,任意键继续 WaitKey Next

网友(2):

BeginThread Function1() BeginThread Function2() Sub Function1() While True //代码1 Wend End Sub Sub Function2() While True //代码2 Wend End Sub 这样,代码1和代码2都在无限循环。