程序_禁止重复运行 和 窗口_禁止重复运行 功能可合并

小爬虫

如题,这2个命令的功能虽有差异,但效果差不多,完全可以合并成一个子程序

必兮相语

66666666666666666666

小磊

实现原理天差地别，不可能合并

liu307921917

程序_禁止重复运行_浏览器()和窗口_禁止重复运行（）是不是一样的啊

  

子程序名	返回值类型	公开	备 注
程序_禁止重复运行_浏览器
参数名	类 型	参考	可空	数组	备 注
标识文本	文本型				尽量输复杂一点的文本

变量名	类 型	静态	数组	备 注
窗口句柄	整数型
局_命令行参数数组	文本型		0

如果真 (标识文本 ＝ “”)
标识文本 ＝ 标识文本 ＋ “精易论坛 bbs.125.la”
如果真 (OpenEventA (2031619, 假, 标识文本) ≠ 0)  ' "myappname"可以是任何文本，但是最好要长一点以保证和系统中已有其他事件对象的名称不相冲突。
取命令行 (局_命令行参数数组)
如果真 (取数组成员数 (局_命令行参数数组) ＝ 1)
进程通信_发送端_发送数据 (窗口句柄, 标识文本, 到字节集 (局_命令行参数数组 [1]))
' 窗口句柄 ＝ 窗口_取句柄_模糊 (程序窗口标题, 程序窗口类名)
如果真 (窗口句柄 ≤ 0)
窗口句柄 ＝ 进程_名取句柄 (取执行文件名 ())
如果真 (窗口_是否可见 (窗口句柄) ＝ 假)
窗口_显示隐藏 (窗口句柄, 真)
如果真 (窗口_是否最小化 (窗口句柄))
窗口_置状态 (窗口句柄, 9)
窗口_置焦点 (窗口句柄)
结束 ()
CreateEventA (0, 假, 假, 标识文本)

.版本 2<br /> <br /> .子程序 程序_禁止重复运行_浏览器<br /> .参数 标识文本, 文本型, 可空, 尽量输复杂一点的文本<br /> .局部变量 窗口句柄, 整数型<br /> .局部变量 局_命令行参数数组, 文本型, , "0"<br /> <br /> .如果真 (标识文本 ＝ “”)<br />     标识文本 ＝ 标识文本 ＋ “精易论坛 bbs.125.la”<br /> .如果真结束<br /> .如果真 (OpenEventA (2031619, 假, 标识文本) ≠ 0)  ' "myappname"可以是任何文本，但是最好要长一点以保证和系统中已有其他事件对象的名称不相冲突。<br />     取命令行 (局_命令行参数数组)<br />     .如果真 (取数组成员数 (局_命令行参数数组) ＝ 1)<br />         进程通信_发送端_发送数据 (窗口句柄, 标识文本, 到字节集 (局_命令行参数数组 [1]))<br />         ' 窗口句柄 ＝ 窗口_取句柄_模糊 (程序窗口标题, 程序窗口类名)<br />         .如果真 (窗口句柄 ≤ 0)<br />             窗口句柄 ＝ 进程_名取句柄 (取执行文件名 ())<br />         .如果真结束<br />         .如果真 (窗口_是否可见 (窗口句柄) ＝ 假)<br />             窗口_显示隐藏 (窗口句柄, 真)<br />         .如果真结束<br />         .如果真 (窗口_是否最小化 (窗口句柄))<br />             窗口_置状态 (窗口句柄, 9)<br />         .如果真结束<br />         窗口_置焦点 (窗口句柄)<br />     .如果真结束<br />     结束 ()<br /> .如果真结束<br /> CreateEventA (0, 假, 假, 标识文本)