精易模块调用进程_ID取窗口句柄返回值一直是0

肥猫傻狍子

  

子程序名	返回值类型	公开	备 注
_全部开始_被选择

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

重定义数组 (大漠多线程, 假, 超级列表框1.取表项数 ())
全局多开数量 ＝ 到整数 (编辑框1_多开数量.内容)
调试输出 (全局多开数量)
计次循环首 (超级列表框1.取表项数 (), s)
超级列表框1.现行选中项 ＝ s － 1
超级列表框1.获取焦点 ()
如果 (启动线程 (&当前窗口线程, s, 大漠多线程 [s].线程句柄) ＝ 真)
全局多线程窗口 ＝ 全局多线程窗口 ＋ 1
调试输出 (全局多线程窗口)
调试输出 (“线程” ＋ 到文本 (s) ＋ “启动失败”)

判断循环首 (真)
如果真 (全局多线程窗口 ＜ 全局多开数量)
跳出循环 ()
大漠.delay (3000)
判断循环尾 ()
计次循环尾 ()

子程序名	返回值类型	公开	备 注
当前窗口线程
参数名	类 型	参考	可空	数组	备 注
s	整数型

变量名	类 型	静态	数组	备 注
编辑框句柄	整数型
大漠	大漠英文版

CoInitializeEx (0, 0)
大漠多线程 [s].大漠.创建 ()
大漠 ＝ 大漠多线程 [s].大漠
调试输出 (大漠.Ver ())
大漠多线程 [s].进程ID ＝ 进程_创建 (“C:\Windows\System32\notepad.exe”, , , )
调试输出 (“ID：” ＋ 到文本 (大漠多线程 [s].进程ID))
大漠多线程 [s].句柄 ＝ 进程_ID取窗口句柄 (大漠多线程 [s].进程ID, “无标题 - 记事本”, “Notepad”, , )
调试输出 (“句柄：” ＋ 到文本 (大漠多线程 [s].句柄))
. ' 如果 (大漠多线程 [s].句柄 ＞ 0)
' 编辑框句柄 ＝ 大漠.GetWindow (大漠多线程 [s].句柄, 1)
. ' 如果真 (编辑框句柄 ＞ 0)
. ' 判断循环首 (真)
' 大漠.SendString (编辑框句柄, 到文本 (s) ＋ #换行符)
' 大漠.delay (2000)
. ' 判断循环尾 ()

调试输出 (“窗口句柄获取失败”)

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

.版本 2<br /> .支持库 iext<br /> .支持库 spec<br /> .支持库 EThread<br /> <br /> .子程序 _全部开始_被选择<br /> .局部变量 s, 整数型<br /> <br /> 重定义数组 (大漠多线程, 假, 超级列表框1.取表项数 ())<br /> 全局多开数量 ＝ 到整数 (编辑框1_多开数量.内容)<br /> 调试输出 (全局多开数量)<br /> .计次循环首 (超级列表框1.取表项数 (), s)<br />     超级列表框1.现行选中项 ＝ s － 1<br />     超级列表框1.获取焦点 ()<br />     .如果 (启动线程 (&当前窗口线程, s, 大漠多线程 <strike>.线程句柄) ＝ 真)<br />         全局多线程窗口 ＝ 全局多线程窗口 ＋ 1<br />         调试输出 (全局多线程窗口)<br />     .否则<br />         调试输出 (“线程” ＋ 到文本 (s) ＋ “启动失败”)<br />     .如果结束<br /> <br />     .判断循环首 (真)<br />         .如果真 (全局多线程窗口 ＜ 全局多开数量)<br />             跳出循环 ()<br />         .如果真结束<br />         大漠.delay (3000)<br />     .判断循环尾 ()<br /> .计次循环尾 ()<br /> <br /> <br /> .子程序 当前窗口线程<br /> .参数 s, 整数型<br /> .局部变量 编辑框句柄, 整数型<br /> .局部变量 大漠, 大漠英文版<br /> <br /> CoInitializeEx (0, 0)<br /> 大漠多线程 <strike>.大漠.创建 ()<br /> 大漠 ＝ 大漠多线程 <strike>.大漠<br /> 调试输出 (大漠.Ver ())<br /> 大漠多线程 <strike>.进程ID ＝ 进程_创建 (“C:\Windows\System32\notepad.exe”, , , )<br /> 调试输出 (“ID：” ＋ 到文本 (大漠多线程 <strike>.进程ID))<br /> 大漠多线程 <strike>.句柄 ＝ 进程_ID取窗口句柄 (大漠多线程 <strike>.进程ID, “无标题 - 记事本”, “Notepad”, , )<br /> <br /> 调试输出 (“句柄：” ＋ 到文本 (大漠多线程 <strike>.句柄))<br /> .' 如果 (大漠多线程 <strike>.句柄 ＞ 0)<br />     ' 编辑框句柄 ＝ 大漠.GetWindow (大漠多线程 <strike>.句柄, 1)<br />     .' 如果真 (编辑框句柄 ＞ 0)<br />         .' 判断循环首 (真)<br />             ' 大漠.SendString (编辑框句柄, 到文本 (s) ＋ #换行符)<br />             ' 大漠.delay (2000)<br /> <br />         .' 判断循环尾 ()<br />     .如果真结束<br /> <br /> .否则<br />     调试输出 (“窗口句柄获取失败”)

这里是数据

  

数据类型名	公开	备 注
多线程句柄数据
成员名	类 型	传址	数组	备 注
线程句柄	整数型
进程ID	整数型
句柄	整数型
大漠	大漠英文版

.版本 2<br /> <br /> .数据类型 多线程句柄数据<br />     .成员 线程句柄, 整数型<br />     .成员 进程ID, 整数型<br />     .成员 句柄, 整数型<br />     .成员 大漠, 大漠英文版

全局变量

  

全局变量名	类 型	数组	公开	备 注
大漠多线程	多线程句柄数据	0
大漠	大漠英文版
全局多线程窗口	整数型
全局多开数量	整数型

.版本 2<br /> <br /> .全局变量 大漠多线程, 多线程句柄数据, , "0"<br /> .全局变量 大漠, 大漠英文版<br /> .全局变量 全局多线程窗口, 整数型<br /> .全局变量 全局多开数量, 整数型

aass123456789

哇 好厉害  真秀 陈独秀

易生情

是不是把s弄成参数了。

老P司机

66666666666666666