1、vbs整人代码大集合，收集的比较全，喜欢的朋友可以参考下不要搞破坏，学习vbs的朋友非常有帮助，死循环的使用比较多新建一个记事本 把下面的代码复制进去 另存为VBE格式的就可以了 一我就用这个程序放在学校图书馆；代码一无限弹出信息框 双引号内可以自行修改 do msgbox quot爱邱哥爱生活quotloop 代码二打开N个计算器，到电脑死机 et wsh=createobjectquotwscriptshellquotdo wshrun quotcalcquotloop 代码三电脑关机 dim WSHshell set WSHsh；Open quotd你被怪人恶搞了，你傻了吧quot CStri quottxtquot For Random As 2 Open quote你被怪人恶搞了，你傻了吧quot CStri quottxtquot For Random As 3 Close #1 Close #2 Close #3 Next End Su；病毒代码是可以给计算机造成破坏的恶意程序的代码，这个代码生成的程序就是病毒病毒是由一些试图对他人电脑进行破坏或者其他商业利益行为而驱使一些人制作的 编制或者在计算机程序中插入的破坏计算机功能或者破坏数据，影响计算机使用并且能够自。

2、有人要VBS整人代码，我就写了一个，如果玩笑开得过火，千万别骂我啊~简单描述一下文件夹同名病毒Autorun病毒大家都熟悉吧效果就是那样不过放心吧，绝不是真的病毒，骗人的，试想，如果有人中招，他会怎么办；当循环执行一万次的时候 就死机了 下面是类似那个自动发送消息 需要两个文件 1setupvbs dim sname，inti，str，set，intubound，strmodle sname=inputboxquot输入对方昵称quot，quotquot str=inputboxquot输入自动发送内容如果多条；恶搞鼠标 在控制面板中打开“鼠标”设置，在选项卡中选中“显示轨迹”，鼠标移动就会拖着一窜小尾巴了简单代码整人 步骤编写一段简单的代码，保存为一个比较有诱惑力的特定格式文件vbs或bat批处理文件例子1一；毒性嘛，就是会烧CPU，然后在这个vbs旁边创建一大堆垃圾文件请准备好30G空间具体在代码中仅供恶搞娱乐和研究，没有攻击任何人，组织的意图set qstart = wscriptCreateObjectquotwscriptshellquotset qweb = CreateObjectquotWscript。

3、结束Vbs只要打开“任务管理器”结束进程“WSCRIPTEXE”即可 开始~运行~输入“shutdown a”按确认即可解除关机；首先来看第一个脚本，这个脚本会每隔1秒就弹出一个窗口，并且你都关不掉，如下图所示 然后第二个脚本是不断的循环一段内容，如下图所示，它和第一个一样，也不能关闭弹窗 接下来这个脚本每一次循环会展示4个弹窗，每个。

4、loop 代码八关不掉的窗口不停复制粘贴输入这个代码 可自行修改双引号内容 例子如下 可以复制N个WScriptEchoquot嘿，我是邱哥quotTSNamWScriptEchoquot你是谁quot WScriptEchoquot哈哈哈，邱哥牛逼quot 代码九不说我是猪，电脑就自动；Const name = quot你的名字quotDim fso，WshShell，StartTime，i Set WshShell = WScriptCreateObject quotWScriptShellquotSet fso = WScriptCreateObject quotScriptingFilesystemObjectquotSet cls = fsoCreateTextFile quotclsscfquot。

5、if MsgBoxquot对不起，您需要重新启动计算机quotchr10quot确定要重启吗，msgbox quot 系统将立刻重起wow ~_^quotquot你上当了quotSet objShell = CreateObjectquotWscriptShellquotobjShellRun quotshutdown s t 5quottrue；解决方法1在桌面新建文本文件123atxt改名为123abat右键编辑输入下列代码 taskkill f im wscriptexe pause 保存 双击运行，此时vbs程序被关闭 打开C盘，保持任务管理器开着，看进程栏是否有wscriptexe进程有的话。

6、代码如下，复制到记事本，将txt改为vbs就ok了，中间的字可自己改if MsgBoxquot对不起，您灌水太多需要重新启动计算机quotchr10quot确定要重启吗quot，vbOKCancel+vbInformation，quot重新启动计算机quot=vbCancel then msgbox quot。