查看: 149158|回复: 450	[技术交流] 【院刊】-【201412期】多线程多开脚本如何实现？ [复制链接]

发送短消息 UID 2220985 帖子 396 精华 0 鲜花 532 朵 铜币 2506 个 银币 334 个 性别 在线时间 480 注册时间 2013-10-27 最后登录 2020-05-22 1743185898 查看公共资料 搜索主题 搜索帖子 果兒 果兒 组别初中三年级 UID2220985 帖子396 精华0 鲜花532 朵 铜币2506 个 银币334 个 在线时间480 注册时间2013-10-27 按键精灵开发者6级 可通过提升认证等级来升级勋章：rz.anjian.com 论坛MM 按键论坛女性用户勋章 按键学院 按键学院专属勋章，按键学院学员或文章被院刊收入可领取	1# 字体大小: t T 发表于 2014-11-29 14:20 | |只看楼主 多线程多开脚本如何实现？ 您所在的用户组无法下载或查看附件 本文由按键学院提供技术支持 “多线程到底怎么实现？好复杂！” 小编时常在论坛里，看到有童鞋发出这样的疑问。 小编觉得多线程就好似冰山美人，外冷内热。乍一看，好像很不好相处，近一步，则会发现其实她很温柔。 到底有多温柔呢？一起来看看~ 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、启动多线程。( 线程相关知识 ) 线程ID = BeginThread(打字) 复制代码 在for循环里加入这一句启动线程的代码，每循环一次开启一个新的线程。 所以，在启动完线程之后，要趁热把线程id记录起来。 4、将窗口句柄、线程id 存放到ini文件中。 ( 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) Call Plugin.Bkgnd.KeyPress(Hwnds, 13) Next End Sub 复制代码 注意：为什么在子程序的开头 ，要拿一个新的变量 窗口句柄 去获取 hwnd 的值呢？ 本例中，我们循环多开窗口的时候，每循环一次，hwnd的值就变化一次。 循环第一次，hwnd的值为：328202，启动线程之后， 调用 sub 打字() 子程序，获取记事本的子窗口句柄。 循环第二次，hwnd的值为：197298，启动线程之后， 调用 sub 打字() 子程序，获取记事本的子窗口句柄。 如果顺利循环下去没有问题，但是，如果第一个窗口开启的时候卡住了呢？第二个窗口开启的速度比第一个快，hwnd中存放的数据变成了第二个窗口的句柄，这个时候第一个窗口缓过来了，它调用到的hwnd里已经不是自己的窗口句柄，而是第二个窗口的。 所以， 当第一个窗口启动线程，调用 sub 打字() 子程序，在子程序的开头位置，第一个窗口的窗口句柄hwnd用新的变量存起来。 新的变量没有定义，默认是dim局部变量，局部变量是不能在线程间传递的，所以它只在当前线程有效，不影响其它线程。 “暂停”按钮点击事件 步骤： 1、当按钮的标题名称为“暂停”的时候： 暂停InputBox2文本框中数值对应的线程。并且将按钮的标题修改为"继续"。 2、当按钮的标题名称为“继续”的时候： 恢复InputBox2文本框中数值对应的线程。并且将按钮的标题修改为"暂停"。 If Form1.暂停.Caption = "暂停" Then 暂停线程id = Plugin.File.readINI("线程ID", "第" &cint(Form1.InputBox2.Text) & "窗口", "C:\记录.ini") PauseThread 暂停线程id Form1.暂停.Caption = "继续" else 继续线程id = Plugin.File.readINI("线程ID", "第" &cint(Form1.InputBox2.Text) & "窗口", "C:\记录.ini") ContinueThread 继续线程id Form1.暂停.Caption = "暂停" End If 复制代码 “关闭所有窗口”按钮点击事件 步骤： 1、 获取ini文件中记录的线程id，关闭所有线程。 2、 获取ini文件中记录的窗口句柄，关闭所有记事本窗口。 For i = 1 To cint(Form1.InputBox1.Text) 关闭线程id = Plugin.File.readINI("线程ID", "第" & i & "窗口", "C:\记录.ini") StopThread 关闭线程id //关闭线程 Call Plugin.Window.Close(Plugin.File.readINI("窗口句柄", "第" & i & "窗口", "C:\记录.ini")) //关闭窗口 Next 复制代码 整体代码： Dimenv hwnd Event Form1.一键启动.Click For i = 1 To Form1.InputBox1.Text //打开记事本 RunApp "Notepad.exe" //判断记事本是否打开 do hwnd = Plugin.Window.Find(0, "无标题 - 记事本")//获取记事本句柄 Loop while (Hwnd=0) Call Plugin.Window.Move(hwnd,i*50+100,200) //设置记事本出现在屏幕上的位置，横坐标递增，然后窗口可以依次排列开，方便查看运行效果 //////////////修改窗口标题//////////////// Do If stext ="第"&i&"窗口" Then Exit Do End If call Plugin.Window.SetText(hwnd,"第"&i&"窗口") stext = Plugin.Window.GetText(hwnd) Loop ////启动线程每使用BeginThread启动一次打字子程序，都是生成一条新的线程 线程ID = BeginThread(打字) //将窗口句柄、线程id记录到ini文件中，便于之后调用 Call Plugin.File.WriteINI("窗口句柄", "第"&i&"窗口",hwnd, "C:\记录.ini") Call Plugin.File.WriteINI("线程ID", "第"&i&"窗口",线程ID, "C:\记录.ini") Next Form1.一键启动.Enabled=False End Event //////////////////关闭线程(StopThread)//////////////////////////// Event Form1.关闭所有窗口.Click Form1.一键启动.Enabled = true For i = 1 To cint(Form1.InputBox1.Text) 关闭线程id = Plugin.File.readINI("线程ID", "第" & i & "窗口", "C:\记录.ini") StopThread 关闭线程id //关闭线程 Call Plugin.Window.Close(Plugin.File.readINI("窗口句柄", "第" & i & "窗口", "C:\记录.ini")) //关闭窗口 Next End Event ////////////////线程暂停(PauseThread)、线程恢复(ContinueThread)/// Event Form1.暂停.Click If Form1.暂停.Caption = "暂停" Then 暂停线程id = Plugin.File.readINI("线程ID", "第" &cint(Form1.InputBox2.Text) & "窗口", "C:\记录.ini") PauseThread 暂停线程id Form1.暂停.Caption = "继续" else 继续线程id = Plugin.File.readINI("线程ID", "第" &cint(Form1.InputBox2.Text) & "窗口", "C:\记录.ini") ContinueThread 继续线程id Form1.暂停.Caption = "暂停" End If End Event ////////////////打字线程///////////////////////// Sub 打字() 窗口句柄 = hwnd Do hwnds = Plugin.Window.FindEx(窗口句柄, 0, "Edit", 0) Loop While(hwnds=0) For i = 1 To 200 Call Plugin.Bkgnd.SendString(hwnds, i) Call Plugin.Bkgnd.KeyPress(Hwnds, 13) Next End Sub 复制代码 Q文件下载： 您所在的用户组无法下载或查看附件 本文由按键学院提供技术支持 ━═━═━━═━═━━═━═━◥◤━═━═━━═━═━━═━═━ 有钱，就是任性！按键学院的导师就是土豪！ 按键学院实战班 已有3评分我要评分查看所有评分
	本主题由 超级版主 瑞祥幽冥狼 于 2023/10/5 17:59:27 执行 审核帖子 操作 点赞 按键学院免费交流群：376122403 按键学院招生计划 按键学院系统教程
	回顶部

发送短消息 UID 4089528 帖子 43 精华 0 鲜花 1 朵 铜币 234 个 银币 3 个 性别 在线时间 700 注册时间 2016-08-26 最后登录 2018-01-24 查看公共资料 搜索主题 搜索帖子 y414913641 组别小学二年级 UID4089528 帖子43 精华0 鲜花1 朵 铜币234 个 银币3 个 在线时间700 注册时间2016-08-26	2# 字体大小: t T 发表于 2016-08-26 14:25 | |只看该用户 学无止境
	回顶部

发送短消息 UID 4082676 帖子 179 精华 0 鲜花 -3 朵 铜币 862 个 银币 162 个 性别 在线时间 6880 注册时间 2016-08-22 最后登录 2022-09-23 728263 查看公共资料 搜索主题 搜索帖子 w286718114 临风接单728263 组别初中一年级 UID4082676 帖子179 精华0 鲜花-3 朵 铜币862 个 银币162 个 在线时间6880 注册时间2016-08-22 按键精灵开发者4级 可通过提升认证等级来升级勋章：rz.anjian.com	3# 字体大小: t T 发表于 2016-09-23 18:11 | |只看该用户 收益非浅，好贴
	接单 728263
	回顶部

发送短消息 UID 3476184 帖子 252 精华 0 鲜花 4 朵 铜币 768 个 银币 0 个 性别 在线时间 5120 注册时间 2015-09-19 最后登录 2018-10-15 查看公共资料 搜索主题 搜索帖子 a328854348 a328854348 组别初中二年级 UID3476184 帖子252 精华0 鲜花4 朵 铜币768 个 银币0 个 在线时间5120 注册时间2015-09-19	4# 字体大小: t T 发表于 2016-10-20 22:08 | |只看该用户 看看是什么
	回顶部

发送短消息 UID 3749983 帖子 52 精华 0 鲜花 0 朵 铜币 107 个 银币 1 个 性别 在线时间 1780 注册时间 2016-02-09 最后登录 2024-03-17 1175057271 查看公共资料 搜索主题 搜索帖子 寻梦像扑火 寻梦像扑火 组别小学三年级 UID3749983 帖子52 精华0 鲜花0 朵 铜币107 个 银币1 个 在线时间1780 注册时间2016-02-09	5# 字体大小: t T 发表于 2016-10-21 09:46 | |只看该用户 不错不错。
	回顶部

发送短消息 UID 3883457 帖子 92 精华 0 鲜花 0 朵 铜币 246 个 银币 0 个 性别 在线时间 1900 注册时间 2016-04-24 最后登录 2016-11-04 查看公共资料 搜索主题 搜索帖子 战神198908 组别小学五年级 UID3883457 帖子92 精华0 鲜花0 朵 铜币246 个 银币0 个 在线时间1900 注册时间2016-04-24	6# 字体大小: t T 发表于 2016-10-21 20:30 | |只看该用户 111111
	回顶部

发送短消息 UID 2331752 帖子 405 精华 0 鲜花 23 朵 铜币 1381 个 银币 170 个 性别 在线时间 14280 注册时间 2014-01-09 最后登录 2023-05-12 896825328 查看公共资料 搜索主题 搜索帖子 zx896825328 zx896825328 组别初中三年级 UID2331752 帖子405 精华0 鲜花23 朵 铜币1381 个 银币170 个 在线时间14280 注册时间2014-01-09 按键精灵开发者4级 可通过提升认证等级来升级勋章：rz.anjian.com	7# 字体大小: t T 发表于 2016-10-21 23:17 | |只看该用户 看看吧
	回顶部

发送短消息 UID 4172386 帖子 19 精华 0 鲜花 -1 朵 铜币 47 个 银币 -1 个 性别 在线时间 540 注册时间 2016-10-20 最后登录 2016-11-13 查看公共资料 搜索主题 搜索帖子 Stanley_Rei 组别小学一年级 UID4172386 帖子19 精华0 鲜花-1 朵 铜币47 个 银币-1 个 在线时间540 注册时间2016-10-20	8# 字体大小: t T 发表于 2016-10-23 23:22 | |只看该用户
	回顶部

发送短消息 UID 3885973 帖子 130 精华 0 鲜花 5 朵 铜币 210 个 银币 12 个 性别 在线时间 1960 注册时间 2016-04-25 最后登录 2024-04-10 845228782 查看公共资料 搜索主题 搜索帖子 zhl275306471 zhl275306471 组别小学六年级 UID3885973 帖子130 精华0 鲜花5 朵 铜币210 个 银币12 个 在线时间1960 注册时间2016-04-25	9# 字体大小: t T 发表于 2016-10-24 19:36 | |只看该用户 的撒个肺好
	回顶部

发送短消息 UID 2462037 帖子 612 精华 0 鲜花 11 朵 铜币 1372 个 银币 -10 个 性别 在线时间 1120 注册时间 2014-04-11 最后登录 2016-12-18 2739369781 查看公共资料 搜索主题 搜索帖子 t75106 t75106 组别高中二年级 UID2462037 帖子612 精华0 鲜花11 朵 铜币1372 个 银币-10 个 在线时间1120 注册时间2014-04-11 按键14周年庆纪念勋章 按键14周年庆纪念勋章 学有所成 学有所成勋章，新手步入按键学堂的第一枚勋章 按键精灵开发者1级 可通过提升认证等级来升级勋章：rz.anjian.com	10# 字体大小: t T 发表于 2016-10-26 12:01 | |只看该用户 看一下！！！！！！！！！！
	按键精灵14周年庆典火热进行中！点击领奖
	回顶部

发送短消息 UID 1963507 帖子 6 精华 0 鲜花 0 朵 铜币 25 个 银币 0 个 性别 在线时间 80 注册时间 2013-06-30 最后登录 2018-03-27 12345 查看公共资料 搜索主题 搜索帖子 luo871124 luo871124 组别幼儿园 UID1963507 帖子6 精华0 鲜花0 朵 铜币25 个 银币0 个 在线时间80 注册时间2013-06-30	11# 字体大小: t T 发表于 2016-10-26 13:51 | |只看该用户 将窗口句柄、线程id 存放到ini文件中。
	回顶部

发送短消息 UID 3964999 帖子 81 精华 0 鲜花 0 朵 铜币 494 个 银币 160 个 性别 在线时间 4220 注册时间 2016-06-11 最后登录 2017-10-26 查看公共资料 搜索主题 搜索帖子 1336606010 组别小学四年级 UID3964999 帖子81 精华0 鲜花0 朵 铜币494 个 银币160 个 在线时间4220 注册时间2016-06-11 按键精灵开发者5级 可通过提升认证等级来升级勋章：rz.anjian.com	12# 字体大小: t T 发表于 2016-10-30 20:16 | |只看该用户 1121231321321
	回顶部

发送短消息 UID 3846039 帖子 244 精华 0 鲜花 -2 朵 铜币 789 个 银币 155 个 性别 在线时间 4320 注册时间 2016-04-02 最后登录 2017-04-06 查看公共资料 搜索主题 搜索帖子 快乐就好112 组别初中一年级 UID3846039 帖子244 精华0 鲜花-2 朵 铜币789 个 银币155 个 在线时间4320 注册时间2016-04-02 按键精灵开发者4级 可通过提升认证等级来升级勋章：rz.anjian.com	13# 字体大小: t T 发表于 2016-10-31 08:49 | |只看该用户 泛光灯个
	回顶部

发送短消息 UID 4185870 帖子 478 精华 0 鲜花 -2 朵 铜币 883 个 银币 -2 个 性别 在线时间 11320 注册时间 2016-10-29 最后登录 2017-04-10 376003598 查看公共资料 搜索主题 搜索帖子 zh2151011 zh2151011 组别高中一年级 UID4185870 帖子478 精华0 鲜花-2 朵 铜币883 个 银币-2 个 在线时间11320 注册时间2016-10-29	14# 字体大小: t T 发表于 2016-11-01 03:28 | |只看该用户 挺方便
	回顶部

发送短消息 UID 4072072 帖子 11 精华 0 鲜花 0 朵 铜币 37 个 银币 0 个 性别 在线时间 1140 注册时间 2016-08-16 最后登录 2017-08-15 查看公共资料 搜索主题 搜索帖子 fengjianye21 组别幼儿园 UID4072072 帖子11 精华0 鲜花0 朵 铜币37 个 银币0 个 在线时间1140 注册时间2016-08-16	15# 字体大小: t T 发表于 2016-11-01 15:12 | |只看该用户 111111111111111
	回顶部

发送短消息 UID 3915433 帖子 26 精华 0 鲜花 0 朵 铜币 52 个 银币 0 个 性别 在线时间 580 注册时间 2016-05-13 最后登录 2016-11-08 查看公共资料 搜索主题 搜索帖子 c4742629 组别幼儿园 UID3915433 帖子26 精华0 鲜花0 朵 铜币52 个 银币0 个 在线时间580 注册时间2016-05-13	16# 字体大小: t T 发表于 2016-11-04 15:31 | |只看该用户 感谢楼主，谢谢楼主
	回顶部

发送短消息 UID 4195461 帖子 9 精华 0 鲜花 0 朵 铜币 19 个 银币 0 个 性别 在线时间 60 注册时间 2016-11-05 最后登录 2016-11-05 查看公共资料 搜索主题 搜索帖子 fengtianlong131 fengtianlong1314 组别幼儿园 UID4195461 帖子9 精华0 鲜花0 朵 铜币19 个 银币0 个 在线时间60 注册时间2016-11-05	17# 字体大小: t T 发表于 2016-11-05 01:54 | |只看该用户 asdasdadsa
	回顶部

发送短消息 UID 4173109 帖子 84 精华 0 鲜花 1 朵 铜币 443 个 银币 -2 个 性别 在线时间 1780 注册时间 2016-10-21 最后登录 2019-04-03 357533332 查看公共资料 搜索主题 搜索帖子 lc85926142 lc85926142 组别小学四年级 UID4173109 帖子84 精华0 鲜花1 朵 铜币443 个 银币-2 个 在线时间1780 注册时间2016-10-21 按键精灵开发者1级 可通过提升认证等级来升级勋章：rz.anjian.com	18# 字体大小: t T 发表于 2016-11-05 15:45 | |只看该用户 我也来看看
	回顶部

发送短消息 UID 4148418 帖子 29 精华 0 鲜花 0 朵 铜币 44 个 银币 0 个 性别 在线时间 1180 注册时间 2016-10-05 最后登录 2016-11-29 查看公共资料 搜索主题 搜索帖子 zwxz123 组别幼儿园 UID4148418 帖子29 精华0 鲜花0 朵 铜币44 个 银币0 个 在线时间1180 注册时间2016-10-05	19# 字体大小: t T 发表于 2016-11-05 22:27 | |只看该用户
	回顶部

发送短消息 UID 1107332 帖子 34 精华 0 鲜花 0 朵 铜币 118 个 银币 0 个 性别 在线时间 1660 注册时间 2012-04-25 最后登录 2017-10-22 394811511 查看公共资料 搜索主题 搜索帖子 sailzheng sailzheng 组别小学二年级 UID1107332 帖子34 精华0 鲜花0 朵 铜币118 个 银币0 个 在线时间1660 注册时间2012-04-25	20# 字体大小: t T 发表于 2016-11-06 00:16 | |只看该用户 想看一看的冲动 想看一看的冲动 想看一看的冲动
	回顶部