2023年12月11日发(作者：)

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

Option Explicit

set fso=object("stemobject")

set wshshell=object("")

Set ws = CreateObject("")

Set del = CreateObject("stemObject")

Dim ID, szBuf, URL, iDelay, fso, OverNum, fie, wshshell, ws, del

szBuf = InputBox( "请输入你的迅雷安装目录：", "输入", "D:Thunder" )

URL = Trim(szBuf)

OverNum = "Profilesusers"

fie =""

If 0 = Len(URL) Then

If 2 = MsgBox( "路径为：" ",0

" /c echo THUNDER_MINISITE=0 ",0

" /c echo SKIN_TYPE=1 ",0

" /c echo SKIN_NAME=default ",0

" /c echo FIRST_LOGIN=0 ",0

" /c echo MAIN_AD=0 ",0

" /c echo NEW_TASK_PANEL_AD=0 ",0

" /c echo XUNLEI_TIP=",0

" /c echo WELCOME_PANEL=0 ",0

" /c echo VIP_CFG_SYNCHRO=0 ",0

2000

" /c attrib +R",0

2000

le "",iDelay

2000

" /c attrib iDelay +R",0

msgbox("恭喜你迅雷广告已经去除") File "", True

Set del = Nothing