以下代码只能实现2个窗口按F1,另外两个窗口一直不动,请问是哪里出错了?感谢大佬解答啊!
Dimenv Hwnd1, Hwnd2, Hwnd3,Hwnd4
//声明变量Hwnd1、Hwnd2、Hwnd3可在线程中调用
HwndEx = Plugin.Window.Search("天涯明月刀")
Hwnd = Split(HwndEx, "|")
Hwnd1 = Clng(Hwnd(0))
Hwnd2 = Clng(Hwnd(1))
Hwnd3 = Clng(Hwnd(2))
Hwnd4 = Clng(Hwnd(3))
TracePrint " 第一个窗口句柄为:" & Hwnd1
TracePrint " 第二个窗口句柄为:" & Hwnd2
TracePrint " 第二个窗口句柄为:" & Hwnd3
TracePrint " 第二个窗口句柄为:" & Hwnd4
BeginThread A
BeginThread B
BeginThread C
BeginThread D
//启动线程A、B、C,启动需要一定的时间。
Sub A()
For 100000
Delay 10
Call Plugin.Bkgnd.KeyPress(Hwnd1, 112)
Next
End Sub
Sub B()
For 100000
Delay 10
Call Plugin.Bkgnd.KeyPress(Hwnd2, 112)
Next
End Sub
Sub C()
For 100000
Delay 10
Call Plugin.Bkgnd.KeyPress(Hwnd3, 112)
Next
End Sub
Sub D()
For 100000
Delay 10
Call Plugin.Bkgnd.KeyPress(Hwnd4, 112)
Next
End Sub
Dimenv Hwnd1, Hwnd2, Hwnd3,Hwnd4
//声明变量Hwnd1、Hwnd2、Hwnd3可在线程中调用
HwndEx = Plugin.Window.Search("天涯明月刀")
Hwnd = Split(HwndEx, "|")
Hwnd1 = Clng(Hwnd(0))
Hwnd2 = Clng(Hwnd(1))
Hwnd3 = Clng(Hwnd(2))
Hwnd4 = Clng(Hwnd(3))
TracePrint " 第一个窗口句柄为:" & Hwnd1
TracePrint " 第二个窗口句柄为:" & Hwnd2
TracePrint " 第二个窗口句柄为:" & Hwnd3
TracePrint " 第二个窗口句柄为:" & Hwnd4
BeginThread A
BeginThread B
BeginThread C
BeginThread D
//启动线程A、B、C,启动需要一定的时间。
Sub A()
For 100000
Delay 10
Call Plugin.Bkgnd.KeyPress(Hwnd1, 112)
Next
End Sub
Sub B()
For 100000
Delay 10
Call Plugin.Bkgnd.KeyPress(Hwnd2, 112)
Next
End Sub
Sub C()
For 100000
Delay 10
Call Plugin.Bkgnd.KeyPress(Hwnd3, 112)
Next
End Sub
Sub D()
For 100000
Delay 10
Call Plugin.Bkgnd.KeyPress(Hwnd4, 112)
Next
End Sub