欢迎访问Qi9电脑知识网学习电脑知识,计算机基础知识,请您记住我们的网址www.Qi9.cn!!
内容频道当前位置:Qi9电脑知识网 > 程序设计教程

迅雷如何去广告脚本

日期:2017-07-23 04:00 来源:Qi9电脑知识网  【字体: 】   阅读:

Option Explicitset 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, delszBuf = InputBox( "请输入你的迅雷安装目录:", "输入", "D:\Thunder" )URL = Trim(szBuf)OverNum = "\Profiles\users\"fie ="\vipsettings.ini"If 0 = Len(URL) Then WScript.QuitIf 2 = MsgBox( "路径为:" & URL & vbCrLf & " 您确定吗?", 32 + 1, "请确认" ) Then WScript.QuitID = InputBox( "请输入您的迅雷ID, (没有ID则无法去除广告!)", "输入", "" )iDelay = URL+OverNum+ID+fiews.run "cmd.exe /c echo >tmp.ini",0ws.run "cmd.exe /c echo THUNDER_MINISITE=0 >>tmp.ini",0 ws.run "cmd.exe /c echo SKIN_TYPE=1 >>tmp.ini",0ws.run "cmd.exe /c echo SKIN_NAME=default >>tmp.ini",0ws.run "cmd.exe /c echo FIRST_LOGIN=0 >>tmp.ini",0ws.run "cmd.exe /c echo MAIN_AD=0 >>tmp.ini",0ws.run "cmd.exe /c echo NEW_TASK_PANEL_AD=0 >>tmp.ini",0ws.run "cmd.exe /c echo XUNLEI_TIP=0>>tmp.ini",0ws.run "cmd.exe /c echo WELCOME_PANEL=0 >>tmp.ini",0ws.run "cmd.exe /c echo VIP_CFG_SYNCHRO=0 >>tmp.ini",0wscript.sleep 2000ws.run "cmd.exe /c attrib tmp.ini +R",0wscript.sleep 2000fso.copyfile "tmp.ini",iDelaywscript.sleep 2000ws.run "cmd.exe /c attrib iDelay +R",0msgbox("恭喜你迅雷广告已经去除!!!")del.DeleteFile "tmp.ini", TrueSet del = Nothing 迅雷如何去广告脚本来自:奇9网

编辑:图客



热门推荐