//读取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
BeginThread Function1() BeginThread Function2() Sub Function1() While True //代码1 Wend End Sub Sub Function2() While True //代码2 Wend End Sub 这样,代码1和代码2都在无限循环。