按键精灵双开窗口脚本 怎么让两个窗口同时运行

单线程脚本怎么写也不会同时操作两个窗口，改成了多线程，变量i删了，循环改成了do...loop，两个窗口的脚本以子程序的方式调用，可以测试一下

HwndEx = Plugin.Window.Search("魔兽世界")
dim MyArray
MyArray = Split(HwndEx, "|")
Delay 10000'延时时间

Dimenv 窗口二

Call 窗口一_sub
窗口二=BeginThread(窗口二_sub)



Sub 窗口一_sub
    Do
        Call Plugin.Bkgnd.KeyPress(Myarray(0), 70)
        Delay 3500'延时时间
        Call Plugin.Bkgnd.KeyPress(Myarray(0), 70)
        Delay 3250'延时时间
        Call Plugin.Bkgnd.KeyPress(Myarray(0), 49)
        Delay 2310'延时时间
        Call Plugin.Bkgnd.KeyPress(Myarray(0), 52)
        Delay 1280'延时时间
    Loop
End Sub
Sub 窗口二_sub
    Do
        Call Plugin.Bkgnd.KeyPress(Myarray(1), 50)
        Delay 3650'
        Call Plugin.Bkgnd.KeyPress(Myarray(1), 70)
        Delay 3120'
        Call Plugin.Bkgnd.KeyPress(Myarray(1), 69)
        Delay 3030'
        Call Plugin.Bkgnd.KeyPress(Myarray(1), 82)
        Delay 4890'
        Call Plugin.Bkgnd.KeyPress(Myarray(1), 32)
        Delay 4100'
        Call Plugin.Bkgnd.KeyPress(Myarray(1), 49)
        Delay 3120'
        Call Plugin.Bkgnd.KeyPress(Myarray(1), 69)
        Delay 3820'
        Call Plugin.Bkgnd.KeyPress(Myarray(1), 81)
        Delay 1830'
        Call Plugin.Bkgnd.KeyPress(Myarray(1), 50)
        Delay 3580'
        Call Plugin.Bkgnd.KeyPress(Myarray(1), 70)
        Delay 3210'
        Call Plugin.Bkgnd.KeyPress(Myarray(1), 69)
        Delay 3150'
        Call Plugin.Bkgnd.KeyPress(Myarray(1), 49)
        Delay 2205'
        Call Plugin.Bkgnd.KeyPress(Myarray(1), 69)
        Delay 11000'
    Loop
End Sub

追问

这个也不能同时对两个窗口同时操作，也是第一个窗口循环结束后循环第二个窗口

追答

第八行和第九行换一下就行了，先用线程调用子程序，主线程就会继续运行了
我本机没测试，抱歉

温馨提示：答案为网友推荐，仅供参考

当前网址：https://verywind.cn/ee/fyr27jyj2vjy23erey.html