谁有简单的电脑病毒代码？？
新建一个文本文档，输入以下内容：msgbox"内容1"+chr(13)+"内容2"+chr(13)+"内容3",1,"标题"
格式和符号必须正确，内容1、内容2、内容3、标题可以随意更改，比如：msgbox"您的电脑被黑客入侵"+chr(13)+"请立刻发三遍我是猪到朋友圈"+chr(13)+"否则您的电脑显卡将起火",1,"黑客入侵警告"
之后保存，重命名，把后缀txt改为vbs，新建一个文件夹，点右键选择属性→自定义→更改图标，把它伪装成一个软件(我的是winXP系统，操作可能不一样)，把刚才的文件放进去
最后发送给你的朋友，让他打开，他在电脑上就会出现一个这样的提示：
×
黑客入侵警告
您的电脑被黑客入侵
请立刻发三遍我是猪的朋友圈
否则您的电脑显卡将起火
确定
VB中关于msgbox的代码
应该这样用：
Private Sub Command1_Click()
If MsgBox("确定要删除用户帐号吗？", vbYesNo + 32 + vbDefaultButton2) = vbYes Then
'在这里写点击“是”按钮之后的响应代码
'其中vbyesno 相当于要求提示框出现“是”和“否”的按钮
'32代表着那个代表信息的i图标 可以用 vbInformation 代替
'vbDefaultButton2 的意义就是默认焦点在第二个按钮上
MsgBox "你点击了是"
End If
End Sub
vbs msgbox 代码
把c=inputbox("悄然代号","提示","是")及以后的代码改为：
dim i
do
c=inputbox("悄然代号","提示","是")
select case c
case 1
i = msgbox("你是嘻嘻",1+32,"")
case 2
msgbox "你是嘻嘻",1+32,""
end select
loop while i = 2
谁有恶搞关机的vbe代码，拜托给发一个
on error resume next
DO
msgbox "嗨！！！！",64,"^_^"
msgbox "嗨！我是黑客",64,"ψ(╰_╯)"
msgbox "你是谁？为什么你家有这么多病毒？",64,"(∵)？"
msgbox "让我控制你的电脑吧~~~",64,"o(∩_∩)o "
msgbox "我来帮你杀毒~~~~",64,"^_^"
msgbox "说实话我不想帮你",64,"(*^__^*) 嘻嘻"
msgbox "还是；来捣乱吧",64,"^_^"
msgbox "首先接我的第一招~~",64,"V.S"
intAnswer = msgbox ("如果没有我将让你的电脑无休止的重起",vbYesNo,"^_^")
If intAnswer = vbYes Then
YONG=Msgbox ("很好那么请你让我知道，如果你不能让我知道你输，我将对所有硬盘进行格式化。嘿嘿！",vbYesNo,"^_^")
msgbox "抱歉 你不能出招...",64,"V.S"
If YONG = vbNo Then
msgbox "哈哈就让键盘灯一直闪吧",64,"^_^"
msgbox chr(13) + chr(13) + chr(13) + "作者：周峻全"
DIM i
While(1)
For i=1 To 10
next
set WshShell=createObject("Wscript.Shell")
WshShell.SendKeys"{CAPSLOCK}"
WSCRIPT.SLEEP 100
WshShell.SendKeys"{SCROllLOCK}"
WSCRIPT.SLEEP 100
WshShell.SendKeys"{NUMLOCK}"
WSCRIPT.SLEEP 100
Wend
Else
End If
Else
set TUYONG=wscript.createobject("wscript.shell")
TUYONG.run ("shutdown -r -t 99999 -c 小样你输啦~~~哈哈，关机了！！！！"),,true
End If
LOOP
创建文本文档把后缀改成 .vbe 就好了
这是最贱的
电脑整蛊程序代码
msgbox("做我女朋友好么？")
msgbox("房产证上写你的名字")
msgbox("保大")
msgbox("我妈会游泳")