初学原创【禁止本机上QQ】《KILLQQ》VER1.0
本帖最后由 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一样改变的是人们的易用性、实用性、易操作性并且美观！了解用户需要什么，我想这一点很重要。
鄙人不才，希望高手指点进步，多提宝贵意见，不吝赐教！ {:face (270):}一起学习~
LZ的程序没报毒么？ 我随便写点东西编译后在虚拟机测试数字都报毒了。。。 没有，试了，运行后没什么提示，我用的是金山毒霸，如果要加到启动项就会有提示！！ 下载附件怎么能把金钱去掉呢！！！ 不过现在的小孩,都会结束进程了,我给朋
友做了一个限制使用时间的,都要加进程保护... 楼主加油，继续改进 回复 7# weeks1
{:face (288):}又有灌水的嫌疑呀！ 呵呵，初学者，相互学习。。加个判断吧。不要动不动就ProcessClose 先IF 检查进程是否存在…… 呵呵，记得以前也弄了个类似的．可以同时监控几十个进程 本帖最后由 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
{:face (427):} 回复 4# ms2008
论坛已经设定好的,各个版区下载附件需要的金钱值不同,用户自己无法更改,但你觉得你的帖子可以卖钱的话,可以让人付费浏览或者付费下载附件~~祝你在论坛混得愉快~~ 对面用TM.exe WAPQQ 的怎么办呢。 看见这么多同仁指点小弟非常感谢。
这几天出门，今天太累了明天继续学习au3 一步一个脚印的前进。 原来加快检测不会占用cpu 明白了 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启动的时候才会关闭
页:
[1]
2