自己编的屏蔽广告的小程序

52874597

希望大家一起来改进。

#include <Process.au3> 
HotKeySet("{ESC}", "esctuichu") ;按esc退出
$numi=0


While 1
TrayTip("", "程序运行中......", 5)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
$biaoti="PowerStrip小秘技"
$biaotineirong=""

if(WinExists($biaoti,$biaotineirong))Then
        ControlEnable($biaoti,"","TButton3")
        $tem=WinClose($biaoti)
        sleep("4500")
        if $tem=0 Then
                WinClose($biaoti)        
                TrayTip($biaoti, "屏蔽"&$biaotineirong, 5)
        EndIf
$numi=$numi+1
EndIf
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;



;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
$biaoti="安全模式"
$biaotineirong="PowerStrip 最后一次执行时没有正常关闭"
if(WinExists($biaoti,$biaotineirong))Then
        WinActive($biaoti,$biaotineirong)
        send("!y")
                TrayTip($biaoti, "屏蔽"&$biaotineirong, 5)
                sleep("500")
$numi=$numi+1
EndIf
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;



;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
$biaoti="QQ在线安装"
$biaotineirong="要想正常使用QQ宠物程序"

if(WinExists($biaoti,$biaotineirong))Then
        $tem=WinClose($biaoti)
        if $tem=0 Then
                WinClose($biaoti)        
                TrayTip($biaoti, "屏蔽"&$biaotineirong, 5)
                sleep("500")
        EndIf
$numi=$numi+1
EndIf
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
$biaoti="迅雷资讯"
$biaotineirong=""

if(WinExists($biaoti,$biaotineirong))Then
        $tem=WinClose($biaoti)
        if $tem=0 Then
                WinClose($biaoti)        
                TrayTip($biaoti, "屏蔽"&$biaotineirong, 5)
                sleep("500")
        EndIf
$numi=$numi+1
EndIf
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
$biaoti="飞信迷你首页"
$biaotineirong=""

if(WinExists($biaoti,$biaotineirong))Then
        $tem=WinClose($biaoti)
        if $tem=0 Then
                WinClose($biaoti)        
                TrayTip($biaoti, "屏蔽"&$biaotineirong, 5)
                sleep("500")
        EndIf
$numi=$numi+1
EndIf
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
$biaoti="SkinWnd"
$biaotineirong="SkinButton"

if(WinExists($biaoti,$biaotineirong))Then
        $tem=WinClose($biaoti)
        if $tem=0 Then
                WinClose($biaoti)        
                TrayTip($biaoti, "屏蔽"&$biaotineirong, 5)
                sleep("500")
        EndIf
        ControlClick($biaoti,"","AfxWnd421")
$numi=$numi+1
EndIf
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
$biaoti="跳舞吧-与美女一起劲歌热舞"
$biaotineirong=""
if(WinExists($biaoti,$biaotineirong))Then
        $tem=WinClose($biaoti)
        if $tem=0 Then
                WinClose($biaoti)        
                TrayTip($biaoti, "屏蔽"&$biaotineirong, 5)
                sleep("500")
        EndIf
        ControlClick($biaoti,"","AfxWnd421")
$numi=$numi+1
EndIf
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;send("#d")
;WinWaitActive("Program Manager");等待主窗口
;TrayTip("", "等待 Program Manager", 5)
;ControlClick("Program Manager","","Button1")
;ControlClick("瑞星杀毒软件","","Button1")

TrayTip("屏蔽广告专家 V9.6.15", "程序屏蔽了"&$numi&"个广告", 5)
Sleep("1000")
WEnd










Func Sendcn($Str)
For $i = 1 To StringLen($Str)
    Send('{ASC ' & StringToBinary(StringMid($Str, $i, 1) & ' ') & '}')
   Next
EndFunc   ;==>SendCN
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;退出
Func esctuichu()
        TrayTip("", "程序马上退出......", 5)
sleep(500)
    Exit 0
EndFunc
;v9.6.16   QQ:524558832  http://hi.baidu.com/tiger35

heavenm

完全看不懂怎么屏蔽的

redapple2008

可能是结束进程？

_ddqs.

对于不同窗口,使用不同的控制方法
看得出LZ是个有心人
:
你可把脚本写成固定的
然后,把标题和文本设置到.INI中
由脚本读到数组中做循环检测就可
:
不用以后需要增加屏蔽的窗口就得去编辑主程序