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 〖羅斌原創〗
迅雷去廣告腳本『羅斌原創』
發表評論
所有評論
還沒有人評論,想成為第一個評論的人麼? 請在上方評論欄輸入並且點擊發布.
相關文章
Linux基本操作命令
wbzjacky
2019-02-24 13:12:38
真實的模擬***綜合實驗
wbzjacky
2019-02-24 13:12:37
三層交換機的HSRP、vlan、端口聚合
wbzjacky
2019-02-24 13:12:37
HSRP和二層交換機的端口聚合、vlan
wbzjacky
2019-02-24 13:12:37
服務器雙機熱備解決方案
wbzjacky
2019-02-24 13:12:37
各種光模塊的傳輸距離
realzfd
2019-02-24 13:10:25
ESX4 通過VMware vSphere CLI 開啓snmp
realzfd
2019-02-24 13:09:43
SOLARWINDS服務器更改計算機名導致的一次奇怪故障
realzfd
2019-02-24 13:09:42
Dlink交換機常用命令
千年小道
2019-02-24 13:06:21
Sametime的安裝細節問題
god9394
2019-02-24 13:04:19
電信禁止路由器上網的破解方法
god9394
2019-02-24 13:03:51
24小時熱門文章
-
釘釘打卡速度慢
-
使用neovim打造go ide(支持代碼跳轉, 代碼補全, 實時語法檢查)
-
Nginx R31 doc 官方文檔-01-nginx 如何安裝
-
Python 潮流週刊#51:用 Python 繪製美觀的圖表
-
Qt/C++音視頻開發74-合併標籤圖形/生成yolo運算結果圖形/文字和圖形合併成一個/水印濾鏡
-
挑戰程序設計競賽 2.2章習題 POJ - 3617 Best Cow Line 貪心
-
字節面試:MySQL什麼時候 鎖表?如何防止鎖表?
-
.NET8連接SQL SERVER 2008 R2 報:證書鏈是由不受信任的頒發機構頒發的
-
golang開發環境搭建(win10)
-
python計算機視覺學習筆記——PIL庫的用法