迅雷如何去广告脚本

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



，迅雷如何去广告脚本

• › 迅雷如何去广告脚本
• 在百度中搜索相关文章：迅雷如何去广告脚本

tag: 暂无联系方式 电脑操作，电脑操作技巧,电脑操作学习，电脑教程大全 - 电脑操作