手把手教你做一个vbs病毒

Him-MC-2009:
源码：X=msgbox("出现一个未知问题。你要修复它吗？",3+16,"此电脑") X=msgbox("修复问题失败",3+64,"此电脑") X=msgbox("你想扫描此电脑吗？",4+32,"Windows Defender") X=msgbox("扫描中...",2+64,"Windows Defender") X=msgbox("发现病毒，是否清除？",4+48,"Windows Defender") X=msgbox("无法清除此病毒",1+16,"Windows Defender") X=msgbox("无法中止病毒进程",0+48,"System") X=msgbox("正在上传你的硬盘内容与密码至云端",2+64,"Virus") X=msgbox("无法中止此操作",0+16,"Virus") X=msgbox("正在删除系统文件...",1+16,"Virus") X=msgbox("无法取消此操作",0+16,"Virus") set WSHshell=wscript.createobject("wscript.shell") WSHshell.run"cmd /c""cd C:/&&cd Windows&&cd system32&&dir",4,ture X=msgbox("删除系统文件成功！",0+48,"Virus") X=msgbox("你的电脑隐私已泄露，保存失败",0+64,"Virus") set wmp=createobject("wmplayer.ocx") set cd=wmp.cdromcollection.item(0) cd.eject X=msgbox("哈哈，吓你玩的！这都是一些提示窗口，不是病毒！你的隐私安然无恙",0+64,"Virus")

【回复】只有X=msgbox("出现一个未知问题。你要修复它吗？",3+16,"此电脑") X=msgbox("修复问题失败",3+64,"此电脑") X=msgbox("你想扫描此电脑吗？",4+32,"Windows Defender") X=msgbox("扫描中...",2+64,"Windows Defender") X=msgbox("发现病毒，是否清除？",4+48,"Windows Defender") X=msgbox("无法清除此病毒",1+16,"Windows Defender") X=msgbox("无法中止病毒进程",0+48,"System") X=msgbox("正在上传你的硬盘内容与密码至云端",2+64,"Virus") X=msgbox("无法中止此操作",0+16,"Virus") X=msgbox("正在删除系统文件...",1+16,"Virus") X=msgbox("无法取消此操作",0+16,"Virus") set WSHshell=wscript.createobject("wscript.shell") WSHshell.run"cmd /c""cd C:/&&cd Windows&&cd system32&&dir",4,ture X=msgbox("删除系统文件成功！",0+48,"Virus")这几行代码可以，其他都不得
【回复】Windows10没有用诶[大哭][大哭]
【回复】回复 @嘿姆嘿姆怪物桑 :编码改成ASNI就可以了
Habit01:
1：先下载一个录屏软件，Ev录屏和班迪录屏都可以 2：把文件的扩展名给调出来，不会的话百度一下，在计算机里面 3：背诵一下常用的快捷键，真的能提高你的效率 4：少几步没用的操作，新建一个记事本，Ctrl C复制代码，Ctrl V粘贴代码到新建的文本文档，Ctrl S保存后关闭文件，右击或F2重命名，把扩展名改成vbs，

【回复】录屏我选qq自带的[脱单doge]
Him-MC-2009:
首先声明一下，这个vbs病毒是假的，大家慎着点用

【回复】回复 @寂笙殇 :%0丨%0[doge]
【回复】回复 @专注于RS的学霸 :这个代码我试过，直接蓝屏[doge]
【回复】假的[滑稽]那不好玩[脱单doge][滑稽][滑稽][滑稽]
刃下狼血:
不需要X=msgbox这样调用msgbox函数，直接msgbox就可以了，因为你不需要读取msgbox的返回值

【回复】回复 @hdn很会弄坏电脑的 : [吃瓜]
我一个f8r:
问一个问题（Windows10）： Windows Script Host 脚本: F:\Users\HelloWorld!\Desktop\新建文本文档.vbs 行: 17 字符: 1 错误: 无效的过程调用或参数 代码: 800A0005 源: Microsoft VBScript 运行时错误^这个问题怎么解决？？？？？？？？？

【回复】这串代码的作用是弹出光盘，因为你的电脑没有插光盘的地方，所以电脑不支持这个功能，才会报错，我的电脑也是。
【回复】回复 @勇敢的骁骁 : win10、win11要用记事本另存为，有个下拉窗，默认是UTF-8，改成ASNI
清朝晚年:
自取！！！！！！！！！ 1. a=msgbox("An unknown problem has occurred. Are you going to fix it?",3+16,"my computer") a=msgbox("Failed to fix the issue",3+64,"my computer") a=msgbox("Do you want to scan this computer?",4+32,"Windows Defender") a=msgbox("Scanning...",2+64,"Windows Defender") a=msgbox("Virus found, cleared?",4+48,"Windows Defender") a=msgbox("This virus cannot be cleaned",1+16,"Windows Defender") a=msgbox("The virus process cannot be aborted",0+48,"System") a=msgbox("Uploading your hard drive contents and password to the cloud",2+64,"Virus") a=msgbox("This operation cannot be aborted",0+16,"Virus") a=msgbox("Deleting system files...",17,"Virus")

原来说酱:
刑啊！可拷的教程，举报了举报了[doge][doge][doge]

牢师到处肘击:
他（系统）是这么说的： 脚本：D:/ApowerREC/新建文本文档.vbs 行:1 字符:50 错误：未结束的字符串常量 代码:800A0409 源：Microsoft VBScript便译器错误 怎么办，求大神指导！！！

【回复】回复 @川島あ : 打开文本文档，点击另存为，编码改成ANSL就OK了
斬風千雪:
用变量的方法调用MsgBox函数不如直接用MsgBox子程序

PaperDr0:
我做了一个对话框生成器，需要的去我主页看看[藏狐]

鸣渊行路:
刚刚作死只把弹出黑色窗口的代码复制，然后再在最前面和最后面加上do和loop(知道会发生什么吧)[滑稽][滑稽][滑稽][滑稽][滑稽]

日月潭的呼唤他:
励志当最强课代表的我来给大家总结总结??? 手把手教你做一个vbs病毒 总结: 一、软件应用的问题? 二、软件应用的看法? 三、软件应用的结论...

小多多556:
系统是这样说的： Windows Script Host 脚本： C:\Users北湖项目部\Desktop\吓人病毒1-副本.vbs 行： 1 字符： 50 未结束的字符串常量 错误： 代码： 800A0409 源： Microsoft VBScript 编译舒错误 确定