新春第一個程式.. skype去廣告

rictirse

今年新春第一個程式獻給Skype的白目廣告了= =

Skype去廣告正夯歡迎下載，感謝安迪神的神威
http://www.fileswap.com/dl/TPT1bgfg6X/



打開按下去廣告就消失了qq
重開機要再按一次喔!!
不然就把這個程式丟到「shell:startup」 裡面去 就不用每次開機都點去廣告了
不知道shell:startup 是什麼你就用 開始>>執行>>輸入「shell:startup」就知道了



補充
目前發現第一版現有的BUG 而且無從修改

我發現一開起來的時候不會有廣告 過一會兒 才會有，這時候後來跳的廣告不會被remove，這時候再隨便開一個聊天室窗 那個廣告才會被移除XD

所以直接丟第二版出來

理論上第二版會比較吃資源


但現在CPU速度都很快其實可以不計這個問題= =

補上載點
http://www.fileswap.com/dl/ueF8odHM5/



原始碼很簡單AU CODE

1. #include <Array.au3>
   
2. #include <Misc.au3>
   
   
3. #NoTrayIcon
   
4. #RequireAdmin
   
5. 
   
6. #Region
   
7. #AutoIt3Wrapper_icon=C:NewDang.ico
   
8. #AutoIt3Wrapper_Compression=5
   
9. #AutoIt3Wrapper_Res_Comment=SkypeNoad
   
10. #AutoIt3Wrapper_Res_Description=SkypeNoad
    
11. #AutoIt3Wrapper_Res_Fileversion=1.0.0.0
    
12. #AutoIt3Wrapper_Res_LegalCopyright=噹噹
    
13. #EndRegion
    
14. 
    
15. Dim $List, $Cnt, $tmpCnt
    
16. 
    
17. _Singleton ("SkypeNOad")
    
18. 
    
19. $tmpCnt = 0
    
20. $Cnt = 0
    
21. 
    
22. While True
    
23.         $list = WinList ("[CLASS:TConversationForm]")
    
24.         $cnt = $list[0][0]
    
25. 
    
26.         If $cnt <> $tmpCnt Then
    
27.                 $tmpCnt = $cnt
    
28.                 For $i = 1 To $tmpCnt
    
29.                         ControlHide ( $list[$i][0], "", "Internet Explorer_Server1")
    
30.                         ControlHide ( $list[$i][0], "", "Shell DocObject View1")
    
31.                 Next
    
32.         EndIf
    
33.         Sleep (500)
    
34. WEnd

複製代碼

諸葛惠@FB

惱人的SK廣告
終於可以讓他消失了
每次都看到他在那邊飄阿飄的
心中就有莫名的火XD

cwquan

這個新春的禮物
讓我從此以後使用skype
就不會看到廣告在那跳動
看到廣告就煩

rictirse

keith 發表於 2014-1-31 11:58
SKYPE這廣告真令人煩躁....
本來就不喜用SKYPE....不是因為MSN合併也不會用....
前幾天SKYPE這廣告出來後就 ...

如果用 hosts的話應該是禁這幾個ip其中一個吧

開啟對話視窗前


開啟對話視窗後




但要一個一個測xd



而且有可能會封不到一樣走80port 或是 443port 就拿他沒皮條了

rictirse

rodge 發表於 2014-1-31 19:57
請問這個程式是將廣告遮蔽起來嗎？還是將廣告給移除呢？看了示意圖好像是把廣告遮蔽，感謝分享。 ...

算是子控hide吧，但兩者有啥差別呢?


不就是不想看到廣告嗎?

rictirse

女僕烏鴉@G 發表於 2014-2-22 21:46
第二版解壓之後會出現4個程式

是連同第二版+AU3副檔名的那個一起丟進Startup嗎??? ...

只要丟exe 檔就可以了，au是 他的code