【NO.0020】禁止重复运行

haclyok

禁止重复运行  源码 禁止重复运行.zip (3.87 KB, 下载次数: 4)

2011-1-13 12:20 上传

点击文件名下载附件

shu2002423

.版本 2
.支持库 eAPI

.程序集 窗口程序集1

.子程序 __启动窗口_创建完毕
.局部变量 进程列表, 进程信息, , "0"
.局部变量 本程序进程名, 文本型
.局部变量 计次, 整数型
.局部变量 全部进程, 文本型
.局部变量 第一次查找, 整数型
.局部变量 第二次查找, 整数型

进程列表 ＝ 取系统进程列表 ()
本程序进程名 ＝ 取执行文件名 ()
.计次循环首 (取数组成员数 (进程列表), 计次)
    全部进程 ＝ 全部进程 ＋ 进程列表 [计次].进程名称
.计次循环尾 ()
第一次查找 ＝ 寻找文本 (全部进程, 本程序进程名, , 真)
第二次查找 ＝ 寻找文本 (全部进程, 本程序进程名, 第一次查找 ＋ 2, 真)
.如果真 (第二次查找 ＞ 第一次查找)
    信息框 (“程序已运行...” ＋ #换行符 ＋ “错误，程序已运行...”, #错误图标, “提示信息”)
    结束 ()

.如果真结束

mdzwmyy

我也简单的做了一个，不知道符合要求不 呵呵

chuenhei

回复 1# 鲁凯啸


    厕所那位转的易语言论坛的源码  没办法给你发链接 没权限   你百度“禁止重复运行”第二个就是 是扣分还是加分 自己看着办

chuenhei

哥们发个小的而且还很有效哦  记得加分 作业.rar (1017 Bytes, 下载次数: 11)

2011-2-5 15:49 上传

点击文件名下载附件

daix

路过，不看帖只回帖

zongyang1995

支持支持强烈支持

9876543210

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
随机端口号	整数型
已重复运行	逻辑型

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

置随机数种子 ()
服务器1.端口 ＝ 取没有占用的端口号 ()
随机端口号 ＝ 到整数 (到文本 (读入文件 (“随机端口号.txt”)))
如果 (随机端口号 ＝ 0)
随机端口号 ＝ 取没有占用的端口号 ()
如果真 (取反 (写到文件 (“随机端口号.txt”, 到字节集 (到文本 (随机端口号)))))
信息框 (“遇到未知错误。”, 16, 标题, )
结束 ()
服务器1.端口 ＝ 随机端口号
已重复运行 ＝ 客户1.连接 (“127.0.0.1”, 随机端口号)
如果真 (已重复运行)
信息框 (“禁止重复运行。”, 16, 标题, )
结束 ()

子程序名	返回值类型	公开	备 注
取没有占用的端口号	整数型

变量名	类 型	静态	数组	备 注
端口号	整数型

端口号 ＝ 取随机数 (1024, 32767)
判断循环首 (客户1.连接 (“127.0.0.1”, 端口号))
端口号 ＝ 取随机数 (1024, 32767)
判断循环尾 ()
返回 (端口号)

子程序名	返回值类型	公开	备 注
__启动窗口_将被销毁

如果真 (取反 (已重复运行))
如果真 (取反 (删除文件 (“随机端口号.txt”)))
信息框 (“遇到未知错误。”, 16, 标题, )
结束 ()

.版本 2<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 随机端口号, 整数型<br /> .程序集变量 已重复运行, 逻辑型<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 置随机数种子 ()<br /> <br /> 服务器1.端口 ＝ 取没有占用的端口号 ()<br /> 随机端口号 ＝ 到整数 (到文本 (读入文件 (“随机端口号.txt”)))<br /> .如果 (随机端口号 ＝ 0)<br />     随机端口号 ＝ 取没有占用的端口号 ()<br />     .如果真 (取反 (写到文件 (“随机端口号.txt”, 到字节集 (到文本 (随机端口号)))))<br />         信息框 (“遇到未知错误。”, 16, 标题, )<br />         结束 ()<br />     .如果真结束<br />     服务器1.端口 ＝ 随机端口号<br /> .否则<br />     已重复运行 ＝ 客户1.连接 (“127.0.0.1”, 随机端口号)<br />     .如果真 (已重复运行)<br />         信息框 (“禁止重复运行。”, 16, 标题, )<br />         结束 ()<br /> <br />     .如果真结束<br /> <br /> .如果结束<br /> <br /> <br /> <br /> <br /> <br /> .子程序 取没有占用的端口号, 整数型<br /> .局部变量 端口号, 整数型<br /> <br /> 端口号 ＝ 取随机数 (1024, 32767)<br /> .判断循环首 (客户1.连接 (“127.0.0.1”, 端口号))<br />     端口号 ＝ 取随机数 (1024, 32767)<br /> .判断循环尾 ()<br /> 返回 (端口号)<br /> <br /> .子程序 __启动窗口_将被销毁<br /> <br /> .如果真 (取反 (已重复运行))<br />     .如果真 (取反 (删除文件 (“随机端口号.txt”)))<br />         信息框 (“遇到未知错误。”, 16, 标题, )<br />         结束 ()<br /> <br />     .如果真结束<br /> <br /> .如果真结束

glorysky22

想了半天  没想明白要怎么编

2669227867

学习了，看着你们的写发，觉得自己还需要学习啊