迅雷如何去广告脚本 -电脑资料

　　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( "路径为：" 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=0tmp.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