命令行 窗口多开

笨来无一悟

问答区看见的小问题 感觉蛮有趣 写个小例子

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
路径	文本型

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕			窗口类名:我要打十个

变量名	类 型	静态	数组	备 注
命令行	文本型		0
重复	逻辑型

_启动窗口.窗口类名 ＝ “我要打十个”
路径 ＝ 取运行目录 () ＋ “\” ＋ 取执行文件名 ()
取命令行 (命令行)
判断 (取数组成员数 (命令行) ＝ 1)
_启动窗口.标题 ＝ “恭喜施主 第” ＋ 命令行 [1] ＋ “个才被老衲揍趴 【我要打十个】”
我要打十个 ()  ' 调试时不生效 编译后再运行

子程序名	返回值类型	公开	备 注
我要打十个

变量名	类 型	静态	数组	备 注
下一位	整数型
揍趴	整数型

下一位 ＝ 检测 () ＋ 1
如果真 (下一位 ＞ 10)
结束 ()  ' 限制十开
变量循环首 (下一位, 10, 1, 揍趴)
执行 (4, 路径, 到文本 (揍趴), , )
变量循环尾 ()

子程序名	返回值类型	公开	备 注
检测	整数型

变量名	类 型	静态	数组	备 注
句柄	整数型
揍趴	整数型

句柄 ＝ GetWindow (GetDesktopWindow (), 5)
判断循环首 (句柄 ≠ 0)
如果真 (窗口_取类名 (句柄) ＝ “我要打十个” 且 窗口_句柄取进程路径 (句柄) ＝ 路径)
揍趴 ＝ 揍趴 ＋ 1
窗口_置标题 (句柄, “恭喜施主 第” ＋ 到文本 (揍趴) ＋ “个才被老衲揍趴 【我要打十个】”)
句柄 ＝ GetWindow (句柄, 2)
判断循环尾 ()
返回 (揍趴)

子程序名	返回值类型	公开	备 注
_退出_被单击

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

句柄 ＝ GetWindow (GetDesktopWindow (), 5)
判断循环首 (句柄 ≠ 0)
如果真 (窗口_取类名 (句柄) ＝ “我要打十个” 且 窗口_句柄取进程路径 (句柄) ＝ 路径)
如果真 (句柄 ≠ _启动窗口.取窗口句柄 ())
窗口_关闭 (句柄)
' 排除自身↑
句柄 ＝ GetWindow (句柄, 2)
判断循环尾 ()
结束 ()  ' 杀完别人 罪孽深重 然后自杀

i支持库列表	支持库注释
shell	操作系统界面功能支持库

.版本 2<br /> .支持库 shell<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 路径, 文本型<br /> <br /> .子程序 __启动窗口_创建完毕, , , 窗口类名:我要打十个<br /> .局部变量 命令行, 文本型, , "0"<br /> .局部变量 重复, 逻辑型<br /> <br /> _启动窗口.窗口类名 ＝ “我要打十个”<br /> 路径 ＝ 取运行目录 () ＋ “\” ＋ 取执行文件名 ()<br /> 取命令行 (命令行)<br /> .判断开始 (取数组成员数 (命令行) ＝ 1)<br />     _启动窗口.标题 ＝ “恭喜施主 第” ＋ 命令行 [1] ＋ “个才被老衲揍趴 【我要打十个】”<br /> .默认<br />     我要打十个 ()  ' 调试时不生效 编译后再运行<br /> .判断结束<br /> <br /> .子程序 我要打十个<br /> .局部变量 下一位, 整数型<br /> .局部变量 揍趴, 整数型<br /> <br /> 下一位 ＝ 检测 () ＋ 1<br /> .如果真 (下一位 ＞ 10)<br />     结束 ()  ' 限制十开<br /> .如果真结束<br /> .变量循环首 (下一位, 10, 1, 揍趴)<br />     执行 (4, 路径, 到文本 (揍趴), , )<br /> .变量循环尾 ()<br /> <br /> .子程序 检测, 整数型<br /> .局部变量 句柄, 整数型<br /> .局部变量 揍趴, 整数型<br /> <br /> 句柄 ＝ GetWindow (GetDesktopWindow (), 5)<br /> .判断循环首 (句柄 ≠ 0)<br />     .如果真 (窗口_取类名 (句柄) ＝ “我要打十个” 且 窗口_句柄取进程路径 (句柄) ＝ 路径)<br />         揍趴 ＝ 揍趴 ＋ 1<br />         窗口_置标题 (句柄, “恭喜施主 第” ＋ 到文本 (揍趴) ＋ “个才被老衲揍趴 【我要打十个】”)<br />     .如果真结束<br />     句柄 ＝ GetWindow (句柄, 2)<br /> .判断循环尾 ()<br /> 返回 (揍趴)<br /> <br /> .子程序 _退出_被单击<br /> .局部变量 句柄, 整数型<br /> <br /> 句柄 ＝ GetWindow (GetDesktopWindow (), 5)<br /> .判断循环首 (句柄 ≠ 0)<br />     .如果真 (窗口_取类名 (句柄) ＝ “我要打十个” 且 窗口_句柄取进程路径 (句柄) ＝ 路径)<br />         .如果真 (句柄 ≠ _启动窗口.取窗口句柄 ())<br />             窗口_关闭 (句柄)<br />         .如果真结束<br />         ' 排除自身↑<br />     .如果真结束<br />     句柄 ＝ GetWindow (句柄, 2)<br /> .判断循环尾 ()<br /> 结束 ()  ' 杀完别人 罪孽深重 然后自杀

lankang1990

感谢分享，很给力！

lankang1990

感谢分享

taodile

感谢分享，很给力！~

一棍淫天下

谢分享， 超级给力

AliGod

感谢分享，很给力！~

97134784

感谢分享，很给力！~

652904730

谢分享， 超级给力

l790504

6666666666666

lmwdz

感谢分享！大力支持！！