产品的广告脚本范文

产品的广告脚本范文

Option Explicit
set fso=(“”)
set wshshell=(“”)
Set ws = CreateObject(“”)
Set del = CreateObject(“”)
Dim ID, szBuf, URL, iDelay, fso, OverNum, fie, wshshell, ws, del
szBuf = InputBox( “请输入你的迅雷安装目录：”, “输入”, “D:\Thunder” )
URL = Trim(szBuf)
OverNum = “\Profiles\users\”
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
 ” /c attrib  +R“,0
 2000
 ”“,iDelay
 2000
 ” /c attrib iDelay +R“,0
msgbox(”恭喜你迅雷广告已经去除！！！“)
 ”“, True
Set del = Nothing2024-01-13