多线程操作 帮忙添加几个功能

新手中的菜鸟

多开例程.rar (1.24 MB, 下载次数: 4)

2015-8-15 22:35 上传

点击文件名下载附件
源码
下载积分: 精币 -2 枚

源码我是在本论坛找到的。    会的帮忙添加几个功能。。

1，找空余线程   软件运行后  。在打开 记事本 的话  软件不会显示 其他记事本。
2，有启动线程。 没有 停止线程,
3，还有就是 启动线程后，一直 循环下去。。   在测试软件的时候太麻烦。

帮忙添加下  【停止线程操作】 和 【找空余线程】和【循环一次操作】   

  

窗口程序集名	保 留	保 留	备 注
窗口程序集1
变量名	类 型	数组	备 注
线程	数据类型1	5
全局插件	大漠多线程类

子程序名	返回值类型	公开	备 注
_窗口1_创建完毕

变量名	类 型	静态	数组	备 注
ID	整数型		0
I	整数型
hd	整数型
bx	整数型

调试输出 (全局插件.初始化 (“3.1233.dll”, 0))  ' 注明：0.无痕注册(推荐) 1.大漠官方提供(只支持3.1235之后的收费版插件)  2.regsvr32注册（通用,会写入注册表）。
' 无论你多开多是窗口 都必须要在主程序下 创建一个大漠对象，按我个人的说法叫做全局插件
' 如果是大漠收费版, 只需要在主程序下调用reg注册一次插件即可, 在多线程多开绑定多窗口的时候不需要重复注册插件
全局插件.Reg (“注册码”, “这里不可以是中文，也不可以带特殊符号，一般都是数字英文 长度不超过20”)  ' 假如你注册插件的时候出现注册失败返回错误文本是0的时候基本上就是reg接口第二个参数引起的错误。仔细检查 或者在群里问我
' 长这么大头一会做教程，，，，不会啊，！！！！
' 以下拿记事本示例 先启动5个记事本 ’C:\Windows\notepad.exe
进程_取ID数组 (“notepad.exe”, ID)
计次循环首 (取数组成员数 (ID), I)  ' 把记事本窗口显示到超级列表框
hd ＝ 进程_ID取窗口句柄 (ID [I])
hd ＝ 窗口_控件ID取句柄 (hd, 15)
如果真 (超级列表框1.查找表项数值 (hd, ) ＝ -1)  ' 防止重复窗口
bx ＝ 超级列表框1.插入表项 (, , , , , )
超级列表框1.置标题 (bx, 0, “记事本”)
超级列表框1.置标题 (bx, 1, “未启动”)
超级列表框1.置表项数值 (bx, hd)

计次循环尾 ()

子程序名	返回值类型	公开	备 注
找空余线程	整数型		找出空闲的线程来绑定其他窗口

变量名	类 型	静态	数组	备 注
I	整数型

变量循环首 (1, 取数组成员数 (线程), 1, I)
如果真 (线程 [I].线程句柄 ＝ 0)
返回 (I)

变量循环尾 ()
返回 (0)

子程序名	返回值类型	公开	备 注
_按钮1_被单击

变量名	类 型	静态	数组	备 注
I	整数型
ID	整数型
表项	整数型

按钮1.禁止 ＝ 真
计次循环首 (超级列表框1.取表项数 (), I)
ID ＝ 找空余线程 ()
如果真 (ID ＝ 0)  ' 没有空闲的线程
跳出循环 ()
表项 ＝ 超级列表框1.查找表项 (“未启动”, , , 1)
如果真 (表项 ＝ -1)  ' 找不到未启动的状态，表示全部都已启动了
跳出循环 ()
' //到这里就可以开始插件大漠对象了。
线程 [ID].窗口句柄 ＝ 超级列表框1.取表项数值 (表项)  ' 把窗口句柄赋值进去方便线程中如果需要用窗口句柄不必再重新获取
线程 [ID].dm.初始化 (“3.1233.dll”, 0)  ' 创建大漠对象
线程 [ID].dm.SetPath (取运行目录 ())  ' 设置插件全局路径
' 线程[ID].dm.SETDICT(取运行目录()+"\字库.txt")'设置插件字库
线程 [ID].dm.BindWindow (线程 [ID].窗口句柄, “normal”, “windows3”, “windows”, 0)  ' '差点忘记绑定窗口了。 这里我不做判断成功与否，实际上编写脚本的时候一定要严格判断这些有可能出现失败的代码，不然如果是写的工程较大的时候出现一点小问题，你得找半天也找不到哪里出错了
超级列表框1.置标题 (表项, 1, “已启动”)  ' windows 键盘模式不支持穿透
启动线程 (&线程功能, ID, 线程 [ID].线程句柄)
程序_延时 (2000)
计次循环尾 ()
按钮1.禁止 ＝ 假

子程序名	返回值类型	公开	备 注
线程功能
参数名	类 型	参考	可空	数组	备 注
ID	整数型

变量名	类 型	静态	数组	备 注
插件	大漠多线程类
窗口句柄	整数型
次	整数型

线程_初始化COM库 ()  ' 这命令的 有时候发现线程执行过程中经常出现无辜停止了 就可以尝试使用这条命令
插件 ＝ 线程 [ID].dm
窗口句柄 ＝ 线程 [ID].窗口句柄
判断循环首 (窗口_句柄是否有效 (窗口句柄))
延时 (1000)
调试输出 (插件.MoveTo (271, 94))
插件.LeftClick ()  ' 多看帮助文档吧。。我基本都要是看看，避免出错
计次循环首 (取文本长度 (“123456789”), 次)
插件.KeyPress (取代码 (“123456789aaaaa”, 次))
延时 (500)
计次循环尾 ()
判断循环尾 ()
线程_取消COM库 ()  ' 没办法 如果碰到这种情况就必须要取出最底层的窗口句柄。这是大漠免费版本  如果是收费版插件就不需要这样了。

i支持库列表	支持库注释
spec	特殊功能支持库
iext	扩展界面支持库一
EThread	多线程支持库

.版本 2<br /> .支持库 spec<br /> .支持库 iext<br /> .支持库 EThread<br /> <br /> .程序集 窗口程序集1<br /> .程序集变量 线程, 数据类型1, , "5"<br /> .程序集变量 全局插件, 大漠多线程类<br /> <br /> .子程序 _窗口1_创建完毕<br /> .局部变量 ID, 整数型, , "0"<br /> .局部变量 I, 整数型<br /> .局部变量 hd, 整数型<br /> .局部变量 bx, 整数型<br /> <br /> 调试输出 (全局插件.初始化 (“3.1233.dll”, 0))  ' 注明：0.无痕注册(推荐) 1.大漠官方提供(只支持3.1235之后的收费版插件)  2.regsvr32注册（通用,会写入注册表）。<br /> ' 无论你多开多是窗口 都必须要在主程序下 创建一个大漠对象，按我个人的说法叫做全局插件<br /> ' 如果是大漠收费版, 只需要在主程序下调用reg注册一次插件即可, 在多线程多开绑定多窗口的时候不需要重复注册插件<br /> 全局插件.Reg (“注册码”, “这里不可以是中文，也不可以带特殊符号，一般都是数字英文 长度不超过20”)  ' 假如你注册插件的时候出现注册失败返回错误文本是0的时候基本上就是reg接口第二个参数引起的错误。仔细检查 或者在群里问我<br /> ' 长这么大头一会做教程，，，，不会啊，！！！！<br /> ' 以下拿记事本示例 先启动5个记事本 ’C:\Windows\notepad.exe<br /> 进程_取ID数组 (“notepad.exe”, ID)<br /> .计次循环首 (取数组成员数 (ID), I)  ' 把记事本窗口显示到超级列表框<br />     hd ＝ 进程_ID取窗口句柄 (ID [I])<br />     hd ＝ 窗口_控件ID取句柄 (hd, 15)<br />     .如果真 (超级列表框1.查找表项数值 (hd, ) ＝ -1)  ' 防止重复窗口<br />         bx ＝ 超级列表框1.插入表项 (, , , , , )<br />         超级列表框1.置标题 (bx, 0, “记事本”)<br />         超级列表框1.置标题 (bx, 1, “未启动”)<br />         超级列表框1.置表项数值 (bx, hd)<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> <br /> .子程序 找空余线程, 整数型, , 找出空闲的线程来绑定其他窗口<br /> .局部变量 I, 整数型<br /> <br /> .变量循环首 (1, 取数组成员数 (线程), 1, I)<br />     .如果真 (线程 [I].线程句柄 ＝ 0)<br />         返回 (I)<br />     .如果真结束<br /> <br /> .变量循环尾 ()<br /> 返回 (0)<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 I, 整数型<br /> .局部变量 ID, 整数型<br /> .局部变量 表项, 整数型<br /> <br /> 按钮1.禁止 ＝ 真<br /> .计次循环首 (超级列表框1.取表项数 (), I)<br />     ID ＝ 找空余线程 ()<br />     .如果真 (ID ＝ 0)  ' 没有空闲的线程<br />         跳出循环 ()<br />     .如果真结束<br />     表项 ＝ 超级列表框1.查找表项 (“未启动”, , , 1)<br />     .如果真 (表项 ＝ -1)  ' 找不到未启动的状态，表示全部都已启动了<br />         跳出循环 ()<br />     .如果真结束<br />     ' //到这里就可以开始插件大漠对象了。<br />     线程 [ID].窗口句柄 ＝ 超级列表框1.取表项数值 (表项)  ' 把窗口句柄赋值进去方便线程中如果需要用窗口句柄不必再重新获取<br />     线程 [ID].dm.初始化 (“3.1233.dll”, 0)  ' 创建大漠对象<br />     线程 [ID].dm.SetPath (取运行目录 ())  ' 设置插件全局路径<br />     ' 线程[ID].dm.SETDICT(取运行目录()+"\字库.txt")'设置插件字库<br />     线程 [ID].dm.BindWindow (线程 [ID].窗口句柄, “normal”, “windows3”, “windows”, 0)  ' '差点忘记绑定窗口了。 这里我不做判断成功与否，实际上编写脚本的时候一定要严格判断这些有可能出现失败的代码，不然如果是写的工程较大的时候出现一点小问题，你得找半天也找不到哪里出错了<br />     超级列表框1.置标题 (表项, 1, “已启动”)  ' windows 键盘模式不支持穿透<br />     启动线程 (&线程功能, ID, 线程 [ID].线程句柄)<br />     程序_延时 (2000)<br /> .计次循环尾 ()<br /> 按钮1.禁止 ＝ 假<br /> <br /> .子程序 线程功能<br /> .参数 ID, 整数型<br /> .局部变量 插件, 大漠多线程类<br /> .局部变量 窗口句柄, 整数型<br /> .局部变量 次, 整数型<br /> <br /> 线程_初始化COM库 ()  ' 这命令的 有时候发现线程执行过程中经常出现无辜停止了 就可以尝试使用这条命令<br /> 插件 ＝ 线程 [ID].dm<br /> 窗口句柄 ＝ 线程 [ID].窗口句柄<br /> .判断循环首 (窗口_句柄是否有效 (窗口句柄))<br />     延时 (1000)<br />     调试输出 (插件.MoveTo (271, 94))<br />     插件.LeftClick ()  ' 多看帮助文档吧。。我基本都要是看看，避免出错<br />     .计次循环首 (取文本长度 (“123456789”), 次)<br />         插件.KeyPress (取代码 (“123456789aaaaa”, 次))<br />         延时 (500)<br />     .计次循环尾 ()<br /> <br /> .判断循环尾 ()<br /> 线程_取消COM库 ()  ' 没办法 如果碰到这种情况就必须要取出最底层的窗口句柄。这是大漠免费版本  如果是收费版插件就不需要这样了。