初学原创【禁止本机上QQ】《KILLQQ》VER1.0

ms2008 · 发表于 2012-8-23 23:09:57

本帖最后由 ms2008 于 2012-8-23 23:34 编辑

真的是第一次真正意义上接触编程，也是第一次用编程语言写程序，真的好激动！！好兴奋！！
　　曾几何时，提到编程感到望尘末及！当读了AU3实操中文教程的第5页一时，体会到了编程语言易学好懂，可以应用到实际当中，感慨万千。于是我用读了5页的知识编了个小程序，与大家分享个人从事编程中的思路想法与实践！！！与大家共同学习切磋！
运行图:

源码如下（附注解）：
#NoTrayIcon             注：隐藏任务栏图标
While 1                      注：循环语句，1(条件)代表一直循环
Sleep (9000)             注：延时 9000毫秒
ProcessClose ( "qq.exe") 注：结束任务管理器程序(qq.exe)
wend                         注：结束循环

源码：
#NoTrayIcon
While 1
Sleep (9000)
ProcessClose ( "qq.exe")
wend

附件：　

　　我的一个思路，就是想为自己电脑提供一个阻止孩子或其它人上网聊QQ的一个程序(当然它不是病毒)，自己用时又可以调出QQ，又不想过于复杂，以实用为主。
这样，上述的编程思路就是：后台运行，一般不太懂电脑的人不会操作，重新下载QQ或安装QQ都不能用，因为运行的快捷方式为QQ.EXE文件，所以当《KILLQQ》运行后，直接以每9秒结束一次QQ.exe文件操作。这样一般情况下是无法运行QQ的，实测金山毒霸不会报错，360会提示结束QQ任务操作。当然，自己想运行QQ时，只要把QQ.EXE文件改名运行即可。

个人总结，编程序是为用户提供方便快捷的应用，而不是展示自己个性为主的作品，就像WINDOWS一样改变的是人们的易用性、实用性、易操作性并且美观！了解用户需要什么，我想这一点很重要。

鄙人不才，希望高手指点进步，多提宝贵意见，不吝赐教！[/code][/code]

yunnl · 发表于 2012-8-23 23:18:40

一起学习~
LZ的程序没报毒么？我随便写点东西编译后在虚拟机测试数字都报毒了。。。

ms2008 · 发表于 2012-8-23 23:33:10

没有，试了，运行后没什么提示，我用的是金山毒霸，如果要加到启动项就会有提示！！

ms2008 · 发表于 2012-8-23 23:34:00

下载附件怎么能把金钱去掉呢！！！

lin12458 · 发表于 2012-8-23 23:56:58

不过现在的小孩,都会结束进程了,我给朋
友做了一个限制使用时间的,都要加进程保护...

wsfda · 发表于 2012-8-24 08:55:36

楼主加油，继续改进

xlj310 · 发表于 2012-8-24 16:09:26

回复 7# weeks1

又有灌水的嫌疑呀！

半芯竹 · 发表于 2012-8-24 21:40:14

呵呵，初学者，相互学习。。加个判断吧。不要动不动就ProcessClose 先IF 检查进程是否存在……

meteorln · 发表于 2012-8-26 21:35:43

呵呵，记得以前也弄了个类似的．可以同时监控几十个进程

annybaby · 发表于 2012-8-30 11:44:57

本帖最后由 annybaby 于 2012-8-30 11:47 编辑

回复 1# ms2008

首先,非常感谢分享经验~~
其次,提点小建议:
1.程序放置的位置最好是自己新建个目录,直接放在Userinclude里面感觉不太好,容易把原来的一些文件和自己的混淆了,久而久之,可能会成垃圾堆了~~
2.在关闭qq.exe前,可以先检测下进程是否存在,这是一个解决问题的习惯,考虑得周全点,当然,只是个建议,不判断也不会有大问题~~
3.sleep()不用太久,100ms~1000ms就可以了,这样可以加快检测频率,显得更有效,放心,它并不会增加CPU占用率~~
4.你的程序后台运行且没有退出条件,感觉不太好,可以考虑通过hotkeyset()增加个热键退出功能~~
5.你的源码注解不必分开:代码后面的,可以用分号; 注解,单行可用(;~)--小键盘的"-"号,大段的用#cs---#ce
6.论坛代码是放在你帖子最后两个"[ c o d e][/ c o d e]"中间的,

我是代码

,如果要高亮显示,将"code"改成"au3"

#NoTrayIcon
While 1
Sleep (9000)
ProcessClose ( "qq.exe") 
wend

annybaby · 发表于 2012-8-30 11:50:19

回复 4# ms2008

论坛已经设定好的,各个版区下载附件需要的金钱值不同,用户自己无法更改,但你觉得你的帖子可以卖钱的话,可以让人付费浏览或者付费下载附件~~祝你在论坛混得愉快~~

绿色风 · 发表于 2012-8-30 18:45:50

对面用 TM.exe WAPQQ 的怎么办呢。

ms2008 · 发表于 2012-8-30 22:09:30

看见这么多同仁指点小弟非常感谢。
这几天出门，今天太累了明天继续学习au3 一步一个脚印的前进。

ms2008 · 发表于 2012-8-30 22:12:11

原来加快检测不会占用cpu 明白了

aimer1124 · 发表于 2012-8-30 23:31:18

While 1
        Sleep(2000)
        ;获取QQ进程ID
        Local $Pid = ProcessExists("QQ.exe") 
        If $Pid > 0 Then
                MsgBox(0,"","QQ正在运行中,PID=" & $pid)
                ;QQ正在行动中
                Exit
        EndIf
WEnd

修改了下，有QQ启动的时候才会关闭

		自动登录	找回密码
密码			加入

[原创] 初学原创【禁止本机上QQ】《KILLQQ》VER1.0

本帖子中包含更多资源