多线程同步操作多个窗口

多线程同步操作多个窗口

RunApp "notepad.exe"

RunApp "notepad.exe"

RunApp "notepad.exe"

Delay 2000

Dimenv temp_Hwnd

temp_Hwnd = 0

Dim str, arr, i

str = Plugin.Window.Search("无标题- 记事本")

arr = Split(str, "|")

For i = 0 To UBound(arr) - 1

temp_Hwnd = Plugin.Window.FindEx(arr(i), 0, "Edit", 0)

BeginThread WriteString

While temp_Hwnd <> 0'判断多线程已经启动完毕，继续循环下一个。

Delay 500

Wend

Next

EndScript

Function WriteString()

Dim str, Hwnd

Hwnd = temp_Hwnd

temp_Hwnd = 0

Do

str = WaitKey

If Hwnd <> Plugin.Window.GetKeyFocusWnd Then

Call Plugin.Bkgnd.KeyPress(Hwnd, str)

End If

Loop

End Function

多线程多开窗口同步执行与子线程间的数值如何传递：

1.Dimenv IsThread, i

2.Dim arr_Thread()

3.For i = 0 To 2

4. IsThread = False'未启动线程

5. Redim Preserve arr_Thread(i)

6. arr_Thread(i) = BeginThread(EnterThread)

7. While IsThread = False'未启动成功，等待中

8. Delay 500

9. Wend

10. '跳出循环说明 IsThread = True，已经执行到了，循环继续启动下一个

11.Next

12.EndScript'结束主线，但子线程还会继续运行

13.'函数调用//////////////////////////////////////////

14.Function EnterThread()

15. Dim n

16. n = i

17. IsThread = True

18. Do

19. TracePrint "运行线程：" & n

20. Delay 500

21. Loop

22.End Function

多线程运行中单独停止某个子线程演示：

1.'环境变量声明

2.Dimenv Hwnd, IsThread

3.IsThread = False

4.Do

5. Hwnd = Plugin.Window.Find("Notepad", "无标题 - 记事本")

6. If Hwnd = 0 Then

7. RunApp "notepad.exe" : Delay 2000

8. TracePrint "运行记事本"

9. End If

10.Loop While Hwnd = 0

11.'获得记事本中输入子窗口句柄，以便按键输入内容

12.Hwnd = Plugin.Window.FindEx(Hwnd, 0, "Edit", 0)

13.'全局变量声明

14.Dim IdThread

15.'主循环↓

16.Do

17. If WaitKey() = 81 Then

18. If IsThread = False Then

19. IdThread = BeginThread(WriteString)

20. Do

21. TracePrint "等待线程启动！"

22. Delay 500

23. Loop While IsThread = False

24. TracePrint "线程启动成功！"

25. Else

26. TracePrint "线程停止操作！"

27. StopThread IdThread

28. IsThread = False

29. End If

30. End If

31.Loop

32.'以下是函数区域↓

33.Function WriteString()

34. IsThread = True

35. Do

36. Call Plugin.Bkgnd.KeyPress(Hwnd, 65)

37. Delay 500

38. Loop

39.End Function

主线程逐个开启子线程五开操作演示：

1.'五开操作

2.Dim str_Hwnd

3.str_Hwnd = vbNullString'记录都有哪些窗口句柄在运行

4.DimEnv IsHwnd

5.IsHwnd = 0

6.For i_win = 0 To 4

7. Do

8. RunApp "notepad.exe"

9. str = Plugin.Window.Search("无标题 - 记事本")

10. arr = Split(str, "|")

11. If str <> vbNullString Then

12. For i = 0 To UBound(arr) - 1

13. If InStr(str_Hwnd, arr(i)) = 0 Then

14. IsHwnd = arr(i)

15. str_Hwnd = str_Hwnd & arr(i) & "|"

16. Exit For

17. End If

18. Next

19. Else

20. IsHwnd = arr(0)

21. End If

22. Loop While IsHwnd = 0

23. Call Plugin.Window.SetClientSize(IsHwnd, 300, 300)

24. Call Plugin.Window.Move(IsHwnd, 300 * i_win, 0)

25. BeginThread 后台喊话

26. Do

27. Delay 1000

28. Loop Until Hwnd = 0

29.Next

30.EndScript

31.Function 后台喊话()

32. Dim Hwnd

33. Hwnd = Plugin.Window.FindEx(IsHwnd, 0, "Edit", 0)

34. IsHwnd = 0

35. Do

36. Call Plugin.Bkgnd.SendString(Hwnd, "文字测试")

37. Call Plugin.Bkgnd.KeyPress(Hwnd, 13)

38. Delay 500

39. Loop

40. End Function

一、多线程是什么，可以干什么

一般来说，我们编写的脚本都是一条道走到黑，最多加点循环、判断和跳转，程序始终是按部就班的执行指定的命令，只能同时干一件工作，让它取色就取色，让它单击就单击，不能同时完成两项以上的工作。多线程的出现，是让脚本可以同时开展几项工作，在单击时，可以通过环境变量传过来取色子程序获得的坐标，而无需在每次单击命令前执行调用取色子程序。当然这只是一个很简单的例子，像这样简单的情况，是没必要弄个多线程的，如果非要弄出多线程处理，反而要考虑到同步的问题：这边要单击了，

那边取色命令传过来的坐标值，是多长时间以前的？或者直接取色命令还没执行完，这边到底单击哪里呢？

有人说按键精灵的多线程是伪多线程，其实不管是真假多线程，对于电脑的CPU来说，同时只会做一件事情，只是说把各个线程传过来需要处理的东西按照时间先后和优先级的关系，排个队列挨个执行而已。就像你去食堂打饭，很多人排队打，但是打饭的师傅只有一个，关系好的可能能插个队。多核CPU大概是食堂有好几个窗口，这样的话，倒是有可能同时有几个同学在打饭。那么，我们假设要做的工作是让一个寝室的同学聚餐，可以派一个人去打饭（单线程），或者派几个人去打饭（多线程）。假设班长下达了命令：甲负责打菜，乙负责打饭，丙负责买汽水，其余的负责准备场地，那么什么时候开饭，应该要等到甲乙丙任务都完成了才行。可以约定时间，也可以让每个人报告。如果有一辆自行车可以用，那么甲乙丙三个人都可以骑，同时骑，也就相当与出现了三辆，谁的骑坏了都与别人的没关系。为了更好更快的完成人物，甲乙丙三人都可以同时拉剩下的人帮忙，比如丁，也会变成三个人，每个丁分身都与其他分身无关。好吧，不闲扯了，代码也不多贴，把我总结的规律直接写出来吧。

（一）首先要弄明白变量的作用域这个问题：

在按键里，有这些规律：

1.在主体代码最前面（最好这么干，你非要在中间写一句dim，我也没办法）用dim定义的变量（统称外部变量），作用范围为全脚本，但是如果在子程序里面出现用dim显式定义的同名变量或者在子程序参数列表里的同名变量，那么在该子程序体内所用到的该变量，是内部变量，与外部变量无关；

2.子程序中可以用dim关键字定义内部变量，如果未定义的变量直接使用，默认为外部变量。

3.外部变量如果出现在子程序中，并且子程序中没有定义过同名的内部变量，在正常的调用中，按外部变量处理，但是如果在多线程中调用这个子程序，那么该变量会自动变成内部变量初始化掉，具体情况如下：

1.Dim a //此处是否定义对多线程内部的变量a无影响

2.BeginThread cd

3.Sub cd

4. Dim a

5. //此处如果定义了，变量a为子程序cd的内部变量，

6. //否则如果此处为定义，且子程序cs中未定义，则变量a为整个多线程的外部变量

7. a = 23

8. Call cs(a)

9. TracePrint a

10. Call cs(a)

11. TracePrint a

12.End Sub

13.Sub cs(b)

14. Dim a

15. //此处如果定义了，变量a在子程序cs内部永远都是内部变量

16. //或者把b改成a，也是隐式的定义了一个内部变量a

17. a=a+b

18.End Sub

复制代码

4.在主题代码最前面用Global定义的是全局变量，作用范围多说同DimEnv环境变量，我猜这两个有一个可以在脚本之间交换数据。如果只是用于单脚本的多线程，可以看成一样的。这两个关键字都不能出现在子程序包括多线程的子程序中；

5.还有个大家关心的大漠等插件的绑定问题，规律如下：

1.Set dm = CreateObject("dm.dmsoft")

2.//此处绑定之后，程序主体中调用的子程序都可以使用大漠插件

3.call cs

4.BeginThread cd

5.Sub cd

6. Set dm = CreateObject("dm.dmsoft")

7. //此处绑定之后，此线程调用的任何子程序都可以使用大漠插件

8. Call cs

9.End Sub

10.Sub cs

11. hwnd = dm.GetForegroundWindow()

12. TracePrint hwnd

13.End Sub

复制代码

通过上面的归纳，更可以明确多线程基本等同与新建一个内部脚本，可以调用主脚本内的任何子程序资源，调用方式为创建一个该子程序的副本，独立与主程序体之外。如果要在某个多线程内定义一个可以在子程序间传递数据的变量，办法是直接给变量赋值，不要在它调用到的任何子程序中显式或者隐式的定义该变量。如果要实现在程序主体和多线程之间传递数据，需要在程序主体的最前面用DimEnv关键字定义环境变量。具体使用见后面的例子。

（二）多线程命令解释：

1.BeginThread 同时运行过程：可以理解为开辟一块新的内存空间来运行一个任务，在该多线程子程序中所调用的资源，统统纳入这个内存空间，如果需要与外界交换数据，必须通过DimEnv定义的环境变量来实现。为了便于控制每一个线程，调用时可以指定一个变量来保存线程ID，一般把这个变量定义为环境变量，这样可以在主体和线程以及线程之间实现互相控制。

2.PauseThread 暂停线程运行、ContinueThread 继续线程运行、StopThread 停止线程运行：通过线程ID来暂停、继续和停止一个线程，在论坛上看到一位高手用环境变量来实现了这个功能：

1.Dimenv 控制

2.……

3. BeginThread 过程1

4.……

5.控制 = "暂停"

6.……

7.控制 = "继续"

8.……

9.控制 = "停止"

10.……

11. EndScript

12. Sub 过程1

13.……

14. While 控制 = "暂停"

15. Delay 50

16. Wend

17. If 控制="停止" Then exit Sub

18. End Sub

复制代码

当然需要把这个控制代码插入到多线程子程序的循环体中来执行，也有缺点是必须运行到此处才能实现功能。这是题外话了，灵活的用好暂停、继续功能可以让脚本变得更灵活。比如在控制人物左右行走的子程序中，需要判断障碍物，如果X轴无变化就向上或者向下走，如果X，Y轴都没有变化就判断为卡住，执行卡住处置程序。可以把卡住判断和处置的代码放到一个多线程中，在左右行走子程序开始时打开卡住处置多线程并暂停，在x轴卡住时继续运行卡住处置多线程，实现上下移动并判断y轴值是否变化，如果没有变化就向相反方向走。左右移动的子程序中设置一个按左右行走键并判断x轴无变化就等待的循环，在退出循环时暂停卡住处置多线程。在左右行走的子程序结束的时候关掉卡住处置多线程。这样通过暂停、继续的运用，可以减少频繁的打开关闭多线程。代码如下：

1.Dimenv x, y，线程ID

2.……

3.Sub 左右移动

4.线程ID=BeginThread(障碍物判断)

5. PauseThread 线程ID

6. While 是否到底目的地=否

7.按左右键行走

8.调用取得人物坐标子程序

9. if x轴无变化 then

10. ContinueThread 线程ID

11. End if

12. while x轴无变化

13.按下左右键

14.等待一段时间

15.松开左右键

16.调用取得人物坐标子程序

17. Wend

18. PauseThread 线程ID

19. Wend

20. StopThread 线程ID

21.End Sub

22.Sub 障碍物判断

23. while True

24.按上下键行走

25.调用取得人物坐标子程序

26. if y轴无变化 then

27.把控制上下的键更换方向

28. End if

29. wend

30.End Sub

复制代码

3.GetThreadID 得到当前线程ID：这个从按键自带的例子来看，是在退出线程事件中，用来返回退出的线程ID，从而根据这个ID来确定是哪一个线程退出了，给该线程上绑定的例如大漠、361等插件松绑。这个命令只有在线程结束事件或者线程内部才能返回值，如果忘记在调用时保存线程ID，可以在线程内部使用这个命令获取自身的线程ID。

二、多线程什么情况下应该使用？

多线程使用的时机，大概有两种：一种是单脚本内需要控制开展多项工作，比如上面的例子，在左右行走卡住时开启上下行走和卡住判断；另一种是通过多线程的使用，实现一个脚本对多个游戏窗口的控制，也就是多开，下面就这两种情况说说我的看法。

（一）单脚本单开的多线程

这个是否使用多线程得看具体的情况来定，很多时候并不一定需要多线程才能解决问题，可以通过在循环内部插入某些判断代码来确定是否调用别的功能。例如上面的左右行走子程序，可以改成这样：

1.Sub 左右移动

2. While 是否到底目的地=否

3.按左右键行走

4.调用取得人物坐标子程序

5. while x轴无变化

6.按下左右键和上下键

7.等待一段时间

8.松开左右键和上下键

9.调用取得人物坐标子程序

10. If y轴无变化 Then

11.把控制上下的键更换方向

12. End If

13. Wend

14. Wend

15.End Sub

复制代码

如此通过对控制行走代码的修改，来实现绕过障碍物和卡住判断，无需调用多线程来解决问题。这样无需考虑两个线程之间的按键同步问题和互相干扰的问题，也不要定义多个环境变量来实现数据的交换。像一些比较复杂的脚本，需要同时开展的工作之间没有频繁的数据传递，且确实需要做到实时监控，那么就必须使用多线程了。比如在挂机打怪的时候需要监控草药或者矿产是否出现，一定出现就暂停打怪去采集（假设打怪时间可以暂停），采集完成后继续打怪，可以写出如下代码：

1.dimenv 打怪ID,采集ID

2.打怪ID=BeginThread(打怪)

3.采集ID=BeginThread(采集)

4.While true

5.

6.Wend

7.EndScript

8.Sub 打怪

9. While true

10.打怪

11. Wend

12.End Sub

13.Sub 采集

14. While true

15.判断草药是否出现

16. if 草药出现 then

17. PauseThread 打怪ID

18.采集草药

19. ContinueThread 打怪ID

20. end If

21. Wend

22.End Sub

复制代码

当然，在使用多线程时一定要考虑到各种情况的出现，避免在打怪的过程中暂停了打怪线程，导致采集时被怪物攻击的情况，或者采集时草药会集中出现，可以暂缓继续打怪程序，采集完成后继续找草药，

确实采集完成再继续打怪，以避免频繁的继续和暂停打怪程序。

（二）单脚本多开的多线程

这个需要考虑的问题就更多了，不提倡新手使用多线程，除了多线程不稳定的原因外，对变量作用域不明确、对程序流程的掌握不熟练也是一个原因。单脚本多开，要能够实现对任意线程的完美控制。我曾经想过用一个脚本实现单线程的各个游戏窗口之间的循环控制，这个思路可以用在对多线程的控制上：

1.枚举符合要求的窗口句柄；

2.把获得的窗口句柄保存在数组h中；

3.对需要做的每一个后台操作，在指定句柄时，循环到数组h中的每一个成员；

1.dim h

2.HwndEx = Plugin.Window.Search("记事本")

3.h = split(HwndEx, "|")

4.……

5.//假设有一个后台单击命令

6.For i=0 to UBound (h)

7.Call Plugin.Bkgnd.LeftClick(H(i), x, y)

8.Next i

复制代码

在控制多线程时，需要用到用户自定义界面，把线程ID保存在用户自定义界面的控件上，然后通过按键来实现对各个线程的完美控制。

三、如何实现多线程的灵活控制？

参考：https://www.360docs.net/doc/0b15334186.html,/thread-349064-1-1.html

这个帖子只是说明了多线程控制的思路，具体实现可以这样(还是要抱怨一句：按键的自定义界面不支持控件数组、不能动态添加list列表项，让这件事情变得很难办了)：

先按照上图在自定义界面上弄5个文本框（用于手动写入线程标识，可以用角色名等区分，面对自己都搞不清哪个是哪个了）、5个单选按钮（用于保存线程ID和选定线程，如果想同时控制多个线程可以改成用复选框）、3个按钮（名称分别为ButtonPause、ButtonContinue、ButtonStop，用于操作选定线程），然后编写如下脚本：

1.DimEnv 线程ID

2.Dim i

3.i=1

4.While key <> 123

5. key=GetLastKey

6. If key=119 //自己设定的启动键

7.线程ID = BeginThread(能实现完整脚本功能的线程)

8. Select Case i

9. Case 1

10. form1.OptionBox1.Caption = 线程ID

11. Case 2

12. form1.OptionBox2.Caption = 线程ID

13.……

14. End Select

15. i=i+1

16. end if

17.Wend

18.//暂停

19.Event Form1.ButtonPause.Click

20. If form1.OptionBox1.Value=1 Then PauseThread form1.OptionBox1.Caption

21. If form1.OptionBox2.Value=1 Then PauseThread form1.OptionBox2.Caption

22.……

23.End Event

24.//继续

25.Event Form1.ButtonContinue.Click

26. If form1.OptionBox1.Value=1 Then ContinueThread form1.OptionBox1.Caption

27. If form1.OptionBox2.Value=1 Then ContinueThread form1.OptionBox2.Caption

28.……

29.End Event

30.//停止

31.Event Form1.ButtonStop.Click

32. If form1.OptionBox1.Value=1 Then StopThread form1.OptionBox1.Caption

33. If form1.OptionBox2.Value=1 Then StopThread form1.OptionBox2.Caption

34.……

35.End Event

复制代码

这个脚本实在是难看，没办法，要是按键能够支持数组控件就好了，还要有动态添加cmbbox或者listbox列表项的功能，就更简单了。