按键精灵多线程多开脚本开发教程.docVIP

. . ?按键精灵实现多线程多开脚本教程 来源：按键学院 【按键精灵】 “多线程到底怎么实现？好复杂！”?小编时常在论坛里.看到有童鞋发出这样的疑问。小编觉得多线程就好似冰山美人.外冷内热。乍一看.好像很不好相处.近一步.则会发现其实她很温柔。 到底有多温柔呢？一起来看看~ QUI界面 写代码之前.我们先画脚本的Qui界面。如下图： 思路 我们拿记事本作为多开的对象。脚本由以下三个按钮点击事件组成：1、点击QUI界面中的一键启动按钮.启动记事本.启动的记事本个数由InputBox1里填入的数值决定。启动线程.将线程id、窗口句柄记录到ini文件中。在线程调用的子程序里.对记事本输入内容。2、点击“关闭所有窗口”按钮.则读取ini中保存的线程id、窗口句柄.关闭线程之后关闭窗口。3、点击“暂停”按钮.则读取ini文件中和InputBox2文本框中对应数值的窗线程id.暂停该线程。再次点击“暂停”按钮.则读取ini文件中和InputBox2文本框中对应数值的窗线程id.恢复该线程。 “一键启动”按钮点击事件 步骤： 1、启动记事本窗口。2、修改记事本的标题名称。3、每个记事本窗口对应启动一个线程。4、将窗口句柄、线程id记录到ini文件中。 1、启动记事本窗口。? ?? ?? ??? ?? ?? ??获取InputBox1中的数值。利用for循环打开记事本窗口。?? ?? ? For i = 1 To Form1.InputBox1.Text ? ?? ???//打开记事本 ? ?? ???RunApp Notepad.exe Next ? ?? ?? ?打开记事本之后.我们需要判断下记事本是不是已经打开.如果打开了则获取窗口句柄.如果没有打开.则继续循环判断记事本是不是已经打开。避免当游戏窗口还没有打开获取不到窗口句柄的情况。 ? ?? ???do? ?? ?? ??? ? ?? ?? ?? ?hwnd = Plugin.Window.Find(0, 无标题 - 记事本)//获取记事本句柄 ? ?? ???Loop while (Hwnd=0) 2、修改记事本窗口的标题。? ?? ?? ??? ?? ?? ??修改了窗口标题.便于我们管理多窗口。且：第1点中说到的判断记事本窗口是不是打开.当游戏窗口标题都是一样的情况下.这个方法就会失效。第一个窗口打开了.第二个窗口不管有没有打开.那么获取到的还是第一个窗口的句柄。? ??? ? Do? ? ?? ?? ?? ?If stext =第i窗口 Then?? ? ?? ?? ?? ?? ? Exit Do ? ?? ?? ?? ?End If ? ?? ?? ?? ?call??Plugin.Window.SetText(hwnd,第i窗口) ? ?? ?? ?? ?stext = Plugin.Window.GetText(hwnd) ? ?? ???Loop??//循环的第一次修改窗口标题.第二次开始判断标题有没有修改成功.没有的话则继续修改.成功的话则退出do循环。 3、启动多线程。(? \t /_blank 线程相关知识?)? ?? ?? ? 线程ID = BeginThread(打字) ? ?? ?? ??在for循环里加入这一句启动线程的代码.每循环一次开启一个新的线程。? ?? ?? ? 所以.在启动完线程之后.要趁热把线程id记录起来。? ?? ?? ??4、将窗口句柄、线程id 存放到ini文件中。?(? \t /_blank ini文件读取写入相关知识?)? ?? ???? ?? ?? ? Call Plugin.File.WriteINI(窗口句柄, 第i窗口,hwnd, C:\记录.ini)? Call Plugin.File.WriteINI(线程ID, 第i窗口,线程ID, C:\记录.ini) ?线程调用子程序 被线程调用的子程序和平常的子程序有什么不同吗？有两点不一样：1、被线程调用的子程序.不支持参数传递。2、被线程调用的子程序.不支持dim定义的局部变量的传递。? ???建立一个要被线程调用的子程序 .命名为 “打字” Sub 打字()? ? ? 窗口句柄 = hwnd//hwnd是环境变量.在一键启动事件中.将窗口句柄赋值给了它。 ? ? Do ? ? hwnds = Plugin.Window.FindEx(窗口句柄, 0, Edit, 0) ? ? Loop While(hwnds=0) ? ? For i = 1 To 200 ? ?? ???Call Plugin.Bkgnd.SendString(hwnds, i) ? ??