wbsgege 发表于 2008-10-9 16:06:18

封qq新问题,大家来帮忙啊~~

#NoTrayIcon
While 1
    If ProcessExists("QQ.exe") Then
      ProcessClose("QQ.exe")
      If WinExists("", "Windows") Then
            Send("{ENTER}")
      EndIf
    MsgBox(16, "上班时间禁止聊QQ" ,"上班就应该专心，禁止聊QQ哦！")
    EndIf
WEnd

上次禁qq的问题让78391493这位兄弟解决了,但新问题又来了,我运行了下,发现cpu占用率竟然高达50%,请问有没有办法在优化下这段代码,或者让程序隔5分钟或10分钟检测下,其他时间休息

[ 本帖最后由 wbsgege 于 2008-10-9 18:15 编辑 ]

78391493 发表于 2008-10-9 16:18:05

#NoTrayIcon
While 1
    If ProcessExists("QQ.exe") Then
      ProcessClose("QQ.exe")
      If WinExists("", "Windows") Then
            Send("{ENTER}")
      EndIf
    MsgBox(16, "上班时间禁止聊QQ" ,"上班就应该专心，禁止聊QQ哦！")
    EndIf
Sleep(300000);延迟5分钟
WEnd

wbsgege 发表于 2008-10-9 18:13:02

参考别人文章后,自己想到的代码,cpu占用率几乎为0,但就是内存占用过高




While 1
      $NowTitle = WinGetTitle("") ;WinGetTitle:获取指定窗口的完整标题名。

                If StringInStr($NowTitle,"qq")=1 Then WinClose($NowTitle) ;StringInStr:检查某个字符串是否含有给定的子串。winclose:关闭指定窗口。

      Sleep(100)
WEnd

[ 本帖最后由 wbsgege 于 2008-10-9 18:14 编辑 ]
页: [1]
查看完整版本: 封qq新问题,大家来帮忙啊~~