VBS脚本定时强制修改易游网娱平台主页
Dim iSetmenu:iSetmenu=1Dim fsobject,Setmenu,Baidurl,Setting,Globaldir
WScript.Sleep(6000*10)
'//=================================
'//易游专用修改主页脚本
Globaldir = "D:\UserData$\Globalconfig\" '//Globalconfig更新目录后面要保留"\"
Setmenu = "SetMenu.dat" '//保留双引号，填写SetMenu.dat文件
Baidurl = "http://www.baidu.com/index.php?tn=ganhui0818_pg" '//保留双引号，百度广告的完全URL。
Setting = "http://www.2345.com/?9252" '//保留双引号，你要设置主页的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)
Do While iSetmenu > 0
TempbackupSetmenu = fsobject.Copyfile (Globaldir&Setmenu,Globaldir&"Setmenu.bak",true)
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*60)
Loop
Set fsobject = Nothing
WScript.Quit将上面的脚 本保存为XX.vbs就行了。 怎么用啊,能不能写详细点?谢谢!
页:
[1]