08
2013
03

易游专用修改主页脚本

 

可恶的易游强行修改主页做广告. 在我的地盘我是绝对不允许这样做的. 以下是脚本源码经过一个多月的测试. 未发现有任何问题. 声明:本脚本不会在服务器及易游服务端软件任何内部结构. 为了方便运行脚本后会在注册表项添加开机自动运行本脚本. 使用本脚本可以自

可恶的易游强行修改主页做广告. 在我的地盘我是绝对不允许这样做的. 以下是脚本源码经过一个多月的测试. 未发现有任何问题. 声明:本脚本不会在服务器及易游服务端软件任何内部结构. 为了方便运行脚本后会在注册表项添加开机自动运行本脚本. 使用本脚本可以自由配置易游服务端进行配置.不会受到任何配置限制. 因为本脚本以免费形式共享出来给大家使用, 如你修改了脚本导致任何的损失本人将不负任何责任, 本人因时间有限,无特别问题,恕本人不接受技术询问. 以下是脚本源码部分. 

Dim iSetmenu:iSetmenu=1
Dim fsobject,Setmenu,Baidurl,Setting,Globaldir
'//=================================
'//易游专用修改主页脚本
'//版权所有:Samway's Blog
Globaldir = "E:\UserData$\Globalconfig\" '//Globalconfig更新目录后面要保留"\"
Setmenu = "SetMenu.dat" '//保留双引号,填写SetMenu.dat文件
Baidurl = http://www.baidu.com/ '//保留双引号,百度广告的完全URL。
Setting = "#" '//保留双引号,你要设置主页的URL。
Set oShell = CreateObject("WScript.Shell")
Set fsobject = CreateObject("Scripting.FileSystemObject")
   SetMenuaddREGoShellObject = oShell.REGWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\Setmenu"_
,fsobject.GetFile(Wscript.ScriptFullName).ParentFolder.Path _
& "\" & _
WScript.ScriptName)
    IF Not fsobject.FileExists(Globaldir&"Setmenu.bak") Then
     TempbackupSetmenu = fsobject.Copyfile (Globaldir&Setmenu,Globaldir&"Setmenu.bak",true)
    End IF
Do While iSetmenu > 0  
  Set ReadSetmenuString = fsobject.OpenTextFile(Globaldir&Setmenu) 
   GetSetmenuString = ReadSetmenuString.Readall 
   ReadSetmenuString.Close 
   TempSetMenuString = Replace(GetSetmenuString,Baidurl,Setting) 
  Set ResSetmenuString = fsobject.Createtextfile(Globaldir&Setmenu) 
   ResSetmenuString.Write TempSetMenuString
   ResSetmenuString.Close 
iCounter = iSetmenu + 1
IF iCounter < 0 Then WScript.Quit
WScript.Sleep(1000*10*6*10)
Loop 
Set fsobject = Nothing
WScript.Quit

作者QQ:14779023

 

« 上一篇下一篇 »

相关文章:

评论列表: