迅雷如何去广告脚本
迅雷如何去广告脚本
12-20 17:16:05 浏览次数:997次 栏目:电脑操作
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
,迅雷如何去广告脚本
- ·上一篇:Mac ?璃假蚾迵迠婥源楊
- ·下一篇:Potplayer推出,暴风影音该退休了
电脑操作 推荐
- · 双绞线 568B 标准的接线方法
- · 怎样设置计算机的“标识”?
- · 菜鸟维修初级招数
- · WIN386.SWP文件有什么用?
- · 如何知道本机的IP地址?
- · Windows下如何清除“文档”菜单中的内容?
- · 何谓“白猫”,何谓“黑猫”?
- · 看不到状态栏里的小喇叭了,怎么办?
- · Netscape Navigator 可以显示 ActiveX 控件
- · ASCII表对应字符查询
- · 只有程序员才能使用 ActiveX 控件吗?
- · 计算机常见缩略词
- · 终极比拼八款主流翻译软件横向对比评测
- · 不用图像处理软件改用金山文字来绘制篮球
- · 巧妙设置加快WinRAR的解压速度
- · 就是与众不同——压缩快手QuickZip软件教学
- · 用WinRAR合并音频文件
- · 揭穿骗局WinRAR将775MB压缩成13.4MB
- · 发掘WinRAR的“自解压安装”功能
- · 浓缩世界WinRAR3.40正式版火热评测