VBS脚本定时强制修改易游网娱平台主页

风一样的男孩

1. Dim iSetmenu:iSetmenu=1
2. Dim fsobject,Setmenu,Baidurl,Setting,Globaldir
3. WScript.Sleep(6000*10)
4. '//=================================
5. '//易游专用修改主页脚本
6. Globaldir = "D:\UserData$\Globalconfig\" '//Globalconfig更新目录后面要保留"\"
7. Setmenu = "SetMenu.dat" '//保留双引号，填写SetMenu.dat文件
8. Baidurl = "http://www.baidu.com/index.php?tn=ganhui0818_pg" '//保留双引号，百度广告的完全URL。
9. Setting = "http://www.2345.com/?9252" '//保留双引号，你要设置主页的URL。
10. Set oShell = CreateObject("WScript.Shell")
11. Set fsobject = CreateObject("Scripting.FileSystemObject")
12.    SetMenuaddREGoShellObject = oShell.REGWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\Setmenu"_
13. ,fsobject.GetFile(Wscript.ScriptFullName).ParentFolder.Path _
14. & "\" & _
15. WScript.ScriptName)        
16. Do While iSetmenu > 0  
17.   TempbackupSetmenu = fsobject.Copyfile (Globaldir&Setmenu,Globaldir&"Setmenu.bak",true)  
18.   Set ReadSetmenuString = fsobject.OpenTextFile(Globaldir&Setmenu)
19.    GetSetmenuString = ReadSetmenuString.Readall
20.    ReadSetmenuString.Close
21.    TempSetMenuString = Replace(GetSetmenuString,Baidurl,Setting)
22.   Set ResSetmenuString = fsobject.Createtextfile(Globaldir&Setmenu)
23.    ResSetmenuString.Write TempSetMenuString
24.    ResSetmenuString.Close
25. iCounter = iSetmenu + 1
26. IF iCounter < 0 Then WScript.Quit
27. WScript.Sleep(1000*60)
28. Loop
29. Set fsobject = Nothing
31. WScript.Quit

复制代码

将上面的脚 本保存为XX.vbs就行了。

z254771

怎么用啊,能不能写详细点?谢谢!