【NO.0020】禁止重复运行

带头哥哥

回复 1# 鲁凯啸


    下载之前必回复，不然没得下。哈哈·······

xiaoyu1986

我也凑凑热闹！程序，模块，源码一并奉上！！！点击进入下载－禁止重复运行.rar

ndayo

软件.禁止重复运行（）

天涯流星

作业又来了，最新思路，哈哈

cx006

这样行吗
限制程序启动次数.rar (1.3 KB, 下载次数: 0)

2010-11-6 13:42 上传

点击文件名下载附件

cx006

1. .版本 2
   
2. .支持库 eAPI
   
3. 
   
4. .子程序 禁止程序多次启动, , 公开
   
5. .参数 最多允许打开的次数, 整数型, 可空, 最多允许启动的次数,默认为1
   
6. .局部变量 进程, 进程信息, , "0"
   
7. .局部变量 出现次数, 整数型
   
8. .局部变量 计次, 整数型
   
9. .局部变量 限制次数, 整数型
   
10. 
    
11. 进程 ＝ 取系统进程列表 ()
    
12. 出现次数 ＝ 0
    
13. 限制次数 ＝ 最多允许打开的次数
    
14. .如果真 (限制次数 ＝ 0)
    
15.     限制次数 ＝ 1
    
16. .如果真结束
    
17. 限制次数 ＝ 限制次数 ＋ 1
    
18. .计次循环首 (取数组成员数 (进程), 计次)
    
19.     .如果真 (进程 [计次].进程名称 ＝ 取执行文件名 ())
    
20.         出现次数 ＝ 出现次数 ＋ 1
    
21.         .如果真 (出现次数 ＝ 限制次数)
    
22.             信息框 (“程序已运行” ＋ 到文本 (限制次数 － 1) ＋ “次,不能再运行”, 0, )
    
23.             结束 ()
    
24.         .如果真结束
    
25. 
    
26.     .如果真结束
    
27. 
    
28. .计次循环尾 ()
    

复制代码

暗夜孤神

1. .版本 2
   
2. 
   
3. .程序集 窗口程序集1
   
4. .程序集变量 a, 文本型
   
5. 
   
6. .子程序 __启动窗口_创建完毕
   
7. 
   
8. 时钟1.时钟周期 ＝ 50
   
9. .如果真 (文件是否存在 (读环境变量 (“windir”) ＋ “\system\1.txt”))
   
10. a ＝ 到文本 (读入文件 (读环境变量 (“windir”) ＋ “\system\1.txt”))
    
11. .如果真 (a ＝ “真”)
    
12. 信息框 (“本软件不能同时运行多次”, 0, )
    
13. 销毁 ()
    
14. .如果真结束
    
15. 
    
16. .如果真结束
    
17. 
    
18. 
    
19. .子程序 _时钟1_周期事件
    
20. 
    
21. 写到文件 (读环境变量 (“windir”) ＋ “\system\1.txt”, 到字节集 (“真”))
    
22. 
    
23. 
    
24. .子程序 __启动窗口_将被销毁
    
25. 
    
26. 写到文件 (读环境变量 (“windir”) ＋ “\system\1.txt”, 到字节集 (“假”))
    
27. 
    

复制代码

123.7z (1.11 KB, 下载次数: 1)

2010-11-7 01:17 上传

点击文件名下载附件

我这个方法不知道行不行的通

a1230303

好累，一下午只做了2个作业
1双开被禁止了，
2把标题修改也会自动关闭，
从而达到改标题也会关闭程序的效果
附加一个改标题的程序
只能用于修改窗口标题为“登陆”的程序
因为作业的窗口标题就是“登陆”

禁止双开.rar (300.74 KB, 下载次数: 3)

2010-12-3 21:49 上传

点击文件名下载附件


改标题.rar (298.01 KB, 下载次数: 1)

2010-12-3 21:49 上传

点击文件名下载附件

chxgzs

不懂啊。。学习

562867448

现在应该过去了  新手看看