本帖最後由 rictirse 於 2014-3-10 01:14 編輯
修正之前需要丟到啟動的麻煩處
這次改版,只需要點擊安裝一次
就可以跟skype廣告說掰掰了!!!
而且不會有之前禿頭的現象出現
怕大家會有疑慮我一樣把Code 附上
看得懂的人就看,看不懂的也沒差,用就對了!!!
至於有裝舊版的,直接去啟動把他刪除就好嘍!!!
本帖隱藏的內容
- #cs ----------------------------------------------------------------------------
- AutoIt Version: 3.3.8.1
- Author: Dang Wang
- Script Function: Skype no ad
- Template AutoIt script.
- #ce ----------------------------------------------------------------------------
- #Region
- #AutoIt3Wrapper_icon=C:NewDang.ico
- #AutoIt3Wrapper_Compression=5
- #AutoIt3Wrapper_Res_Comment=Skype no ad
- #AutoIt3Wrapper_Res_Description=Skype no ad
- #AutoIt3Wrapper_Res_Fileversion=1.0
- #AutoIt3Wrapper_Res_LegalCopyright=噹噹
- #EndRegion
- #include <GUIConstants.au3>
- #include <WindowsConstants.au3>
- #include <Misc.au3>
- #NoTrayIcon
- #RequireAdmin
- _Singleton ("skype Hosts")
- _Patch()
- Func _Patch()
- Local Const $HostsRut = @WindowsDir&"System32driversetchosts"
- Local Const $HostsText = @CRLF&"#------------Skype no ad---------------------"&@CRLF&"127.0.0.1 apps.skype.com"&@CRLF&"#------------Skype no ad---------------------"
- Local $Str = ""
- $File = FileOpen ( $HostsRut, 0)
- $HostsSTR = FileRead ($File)
- FileClose ($File)
- If StringInStr ( $HostsSTR, "apps.skype.com", 1) = 0 Then
- $File = FileOpen ( $HostsRut, 2)
- $Str = StringFormat ( "%s%s", $HostsSTR, $HostsText)
- FileWrite ($File, $Str)
- FileClose ($File)
- MsgBox ( 0, "", "Skype去廣告完成;請重新啟動Skype。")
- Else
- MsgBox ( 0, "阿勒勒", "Skype已經裝過去廣告嘍!")
- EndIf
- EndFunc
複製代碼 |