想写一个定时关闭指定标题窗口的软件

柳叶飞

传不了附件，给你贴源码，完全符合你的要求，你的代码看不懂

1. 
   

复制代码

1. .版本 2
   
2. 
   
3. .程序集 窗口程序集1
   
4. 
   
5. .子程序 检测时间, 逻辑型
   
6. .局部变量 窗口信息, 精易_窗口信息, , "0"
   
7. .局部变量 当前_时间, 整数型
   
8. .局部变量 小时, 整数型
   
9. .局部变量 分钟, 整数型
   
10. .局部变量 秒, 整数型
    
11. .局部变量 关闭时间, 整数型
    
12. .局部变量 当前时间, 整数型
    
13. .局部变量 检测结果, 整数型
    
14. 
    
15. ' 计算时间
    
16. 小时 ＝ 取时间部分 (取现行时间 (), #小时)
    
17. 分钟 ＝ 取时间部分 (取现行时间 (), #分钟)
    
18. 秒 ＝ 取时间部分 (取现行时间 (), #秒)
    
19. 关闭时间 ＝ 到整数 (编辑框_小时.内容) × 60 × 60 ＋ 到整数 (编辑框_分钟.内容) × 60 ＋ 到整数 (编辑框_秒.内容)
    
20. 当前时间 ＝ 小时 × 60 × 60 ＋ 分钟 × 60 ＋ 秒
    
21. 检测结果 ＝ 当前时间 － 关闭时间
    
22. .如果 (检测结果 ≥ 0)
    
23. 返回 (真)
    
24. .否则
    
25. 返回 (假)
    
26. .如果结束
    
27. 
    
28. 
    
29. .子程序 关闭进程
    
30. .局部变量 窗口信息, 精易_窗口信息, , "0"
    
31. .局部变量 i, 整数型
    
32. 
    
33. 信息框 (“时间到了，开始关闭进程”, 0, )
    
34. 按钮1.标题 ＝ “开始检测”
    
35. 窗口_枚举 (窗口信息)
    
36. .计次循环首 (取数组成员数 (窗口信息), i)
    
37. .如果真 (窗口信息 [i].窗口标题 ＝ 编辑框1.内容)
    
38. 进程_结束 (窗口信息 [i].进程ID)
    
39. .如果真结束
    
40. 
    
41. .计次循环尾 ()
    
42. 
    
43. 
    
44. .子程序 _按钮1_被单击
    
45. 
    
46. .如果 (按钮1.标题 ＝ “开始检测”)
    
47. 时钟1.时钟周期 ＝ 1000
    
48. 按钮1.标题 ＝ “暂停检测”
    
49. .否则
    
50. 时钟1.时钟周期 ＝ 0
    
51. 按钮1.标题 ＝ “开始检测”
    
52. .如果结束
    
53. 
    
54. 
    
55. .子程序 _时钟1_周期事件
    
56. .局部变量 是否可关闭, 逻辑型
    
57. 
    
58. 是否可关闭 ＝ 检测时间 ()
    
59. .如果真 (是否可关闭 ＝ 真)
    
60. 时钟1.时钟周期 ＝ 0
    
61. 关闭进程 ()
    
62. .如果真结束
    
63. 输出调试文本 (是否可关闭)
    

复制代码

weilai911

没遍历窗口当然只能对最后一个有效

ヾ猫ジ╮

谢谢各位了

ヾ猫ジ╮

Sulen 发表于 2011-10-25 20:50
按照标题 这个例程已经符合你说的.

我是没看懂你写的代码

你好,你这个代码把所有关于"进程名"的程序都关了

Sulen

ヾ猫ジ╮ 发表于 2011-10-25 21:50
你好,你这个代码把所有关于"进程名"的程序都关了

你是没看懂 ?  
我写的是

可以一直检测  编辑框内的进程 如果发现就关闭.
把要关闭的进程名字写在编辑框里. 比如第一个填QQ.exe  第二个 1.exe 第三个 2.exe

ヾ猫ジ╮

Sulen 发表于 2011-10-25 22:00
你是没看懂 ?  
我写的是

嗯,我想要的是同一个程序开多个窗口(窗口的标题是不一样的) 只关闭指定标题窗口的软件起到监控作用

Sulen

ヾ猫ジ╮ 发表于 2011-10-25 22:35
嗯,我想要的是同一个程序开多个窗口(窗口的标题是不一样的) 只关闭指定标题窗口的软件起到监控作用

你这样说 我理解了那代码了.  

ヾ猫ジ╮

Sulen 发表于 2011-10-25 22:42
你这样说 我理解了那代码了.

有没有好一些的办法帮我解决呢

柳叶飞

修改子程序_关闭进程如下的代码

使用时：编辑框1设为多行，不同的标题分行写即可

1. .版本 2
   
2. 
   
3. .子程序 关闭进程
   
4. .局部变量 窗口信息, 精易_窗口信息, , "0"
   
5. .局部变量 i, 整数型
   
6. .局部变量 需关闭的窗口, 文本型, , "0"
   
7. .局部变量 k, 整数型
   
8. 
   
9. 信息框 (“时间到了，开始关闭进程”, 0, )
   
10. 按钮1.标题 ＝ “开始检测”
    
11. 窗口_枚举 (窗口信息)
    
12. .计次循环首 (取数组成员数 (窗口信息), i)
    
13.     需关闭的窗口 ＝ 分割文本 (编辑框1.内容, #换行符, )
    
14.     .计次循环首 (取数组成员数 (需关闭的窗口), k)
    
15.         .如果真 (窗口信息 [i].窗口标题 ＝ 需关闭的窗口 [k])
    
16.             进程_结束 (窗口信息 [i].进程ID)
    
17.             跳出循环 ()
    
18.         .如果真结束
    
19. 
    
20.     .计次循环尾 ()
    
21.     输出调试文本 (到文本 (i))
    
22. .计次循环尾 ()
    

复制代码

定时关闭指定标题.rar (77.7 KB, 下载次数: 22)

2011-10-25 23:22 上传

点击文件名下载附件

北方小混混

啊哈哈啊哈哈....