本帖最後由 rictirse 於 2014-1-31 00:21 編輯
今年新春第一個程式獻給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
- #include <Array.au3>
- #include <Misc.au3>
- #NoTrayIcon
- #RequireAdmin
- #Region
- #AutoIt3Wrapper_icon=C:NewDang.ico
- #AutoIt3Wrapper_Compression=5
- #AutoIt3Wrapper_Res_Comment=SkypeNoad
- #AutoIt3Wrapper_Res_Description=SkypeNoad
- #AutoIt3Wrapper_Res_Fileversion=1.0.0.0
- #AutoIt3Wrapper_Res_LegalCopyright=噹噹
- #EndRegion
- Dim $List, $Cnt, $tmpCnt
- _Singleton ("SkypeNOad")
- $tmpCnt = 0
- $Cnt = 0
- While True
- $list = WinList ("[CLASS:TConversationForm]")
- $cnt = $list[0][0]
- If $cnt <> $tmpCnt Then
- $tmpCnt = $cnt
- For $i = 1 To $tmpCnt
- ControlHide ( $list[$i][0], "", "Internet Explorer_Server1")
- ControlHide ( $list[$i][0], "", "Shell DocObject View1")
- Next
- EndIf
- Sleep (500)
- WEnd
複製代碼
|