迅雷去廣告腳本『羅斌原創』

Option Explicit set fso=wscript.createobject("scripting.filesystemobject") set wshshell=wscript.createobject("wscript.shell") Set ws = CreateObject("Wscript.Shell") Set del = CreateObject("Scripting.FileSystemObject") Dim ID, szBuf, URL, iDelay, fso, OverNum, fie, wshshell, ws, del szBuf = InputBox( "請輸入你的迅雷安裝目錄：", "輸入", "D:\Thunder" ) URL = Trim(szBuf) OverNum = "\Profiles\users\" fie ="\vipsettings.ini" If 0 = Len(URL) Then WScript.Quit If 2 = MsgBox( "路徑爲：" & URL & vbCrLf & " 您肯定嗎？", 32 + 1, "請確認" ) Then WScript.Quit ID = InputBox( "請輸入您的迅雷ID， (沒有ID則沒法去除廣告！)", "輸入", "" ) iDelay = URL+OverNum+ID+fie ws.run "cmd.exe /c echo   >tmp.ini",0 ws.run  "cmd.exe /c echo THUNDER_MINISITE=0 >>tmp.ini",0 ws.run  "cmd.exe /c echo SKIN_TYPE=1 >>tmp.ini",0 ws.run  "cmd.exe /c echo SKIN_NAME=default >>tmp.ini",0 ws.run  "cmd.exe /c echo FIRST_LOGIN=0 >>tmp.ini",0 ws.run  "cmd.exe /c echo MAIN_AD=0 >>tmp.ini",0 ws.run  "cmd.exe /c echo NEW_TASK_PANEL_AD=0 >>tmp.ini",0 ws.run  "cmd.exe /c echo XUNLEI_TIP=0>>tmp.ini",0 ws.run  "cmd.exe /c echo WELCOME_PANEL=0 >>tmp.ini",0 ws.run  "cmd.exe /c echo VIP_CFG_SYNCHRO=0 >>tmp.ini",0 wscript.sleep 2000 ws.run  "cmd.exe /c attrib tmp.ini +R",0 wscript.sleep 2000 fso.copyfile  "tmp.ini",iDelay wscript.sleep 2000 ws.run  "cmd.exe /c attrib iDelay +R",0 msgbox("恭喜你迅雷廣告已經去除！！！") del.DeleteFile "tmp.ini", True Set del = Nothing 轉載文章請標明：該文章轉自 羅斌原創技術文章：http://luobin44.51.com 〖羅斌原創〗