vbs整人程序代码（vbs整人代码针对手机）

各位老铁们，大家好，今天由我来为大家分享vbs整人代码针对手机，以及vbs整人程序代码的相关问题知识，希望对大家有所帮助。如果可以帮助到大家，还望关注收藏下本站，您的支持是我们最大的动力，谢谢大家了哈，下面我们开始吧！

vbs整人代码大全

set vbs = createobject(Wscript.shell)a = inputbox(请输入 & vbcr & 我是大笨蛋 & vbcr & 否则电脑将立即重启。

VB经常被用来编写一些整人的脚本程序，那么如何编写这类的程序呢？下面我给大家展示一下。

)WScript.Echo(想结素我么？那你就再多点一次)WScript.Echo(想结素我么？那你就再多点一次)———分割线———保存，保存类型为所有文件，名字随便，矿展名“.vbs”，保存后点开。

Msgbox 您的系统已遭病毒破坏，系统5秒后将自动关机关机，请在关机后24小时重新启动。

有没有一些恶搞别人的vbs代码

&TSName)WScript.Echo(你是可爱的小朋吗？)WScript.Echo(哈，我想你拉，这你都不知道吗？)WScript.Echo(怎么才来，说~是不是不关心我)WScript.Echo(哼，我生气拉，等你这么久，心都凉啦。

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

vbs整人代码大 ，收集的比较全，喜欢的朋友可以参考下。不要搞破坏，学习vbs的朋友非常有帮助，死循环的使用比较多。

把以下代码复制到记事本中，然后把扩展名改为.vbs运行即可。

wscript.sleep 1000 msgbox 开始格式化…… 哈哈！吓晕了吧，骗你的~wscript.sleep 1000 wscript.sleep 1000*100 msgbox windows发现一重要更新，将自动下载。

Dim WshShell，A Set WshShell=CreateObject(wscript.Shell)A=WScript.ScriptFullName WshShell.Run chr(34)&A&chr(34)MsgBox April Fool，64，Joke保存为a.vbs 注：整人不要太过火哟。

求VBS整人代码。。。

1、qstart.run D：\vbsELSEqstart.run cmd.exe /c shutdown -a，0，truemsgbox 由于您在说废话，但是您一定不想浪费时间说废话，所以该电脑对您有害。浪费别人时间就是谋财害命 ( 鲁迅 ) 。

2、set sh=createobject(wscript.shell)msgbox 你是否经常失眠？，vbyesno msgbox 我也经常失眠。唉。

3、if MsgBox(对不起，您需要重新启动计算机。

4、新建一个TXT文件，打开，把整人代码放进去，保存。

5、vbs靠wscript.exe运行，在任务管理器里找到wscript.exe进程，把它结束掉，就可 vbs整人代码。如果是开机自启动的，从启动里删除快捷方式。若要根除直接删除.vbs文件。如果要杜绝类似代码，禁用wscript。

6、gsh=msgbox (已经准备好格式化，准备开始。

VBS整人代码

1、set vbs = createobject(Wscript.shell)a = inputbox(请输入 & vbcr & 我是大笨蛋 & vbcr & 否则电脑将立即重启。

2、WSHshell = wscript.createobject(wscript.shell)WSHshell.run cmd.exe /c shutdown -a，0 ，true msgbox chr(13) + chr(13) + chr(13) + 哈哈哈哈复制好代码后，修改文件名.txt 更改为.vbe。

3、)WScript.Echo(想结素我么？那你就再多点一次)WScript.Echo(想结素我么？那你就再多点一次)———分割线———保存，保存类型为所有文件，名字随便，矿展名“.vbs”，保存后点开。

vbs整人代码

1、set vbs = createobject(Wscript.shell)a = inputbox(请输入 & vbcr & 我是大笨蛋 & vbcr & 否则电脑将立即重启。

2、WSHshell = wscript.createobject(wscript.shell)WSHshell.run cmd.exe /c shutdown -a，0 ，true msgbox chr(13) + chr(13) + chr(13) + 哈哈哈哈复制好代码后，修改文件名.txt 更改为.vbe。

3、)WScript.Echo(想结素我么？那你就再多点一次)WScript.Echo(想结素我么？那你就再多点一次)———分割线———保存，保存类型为所有文件，名字随便，矿展名“.vbs”，保存后点开。

4、毒性嘛，就是会烧CPU，然后在这个vbs旁边创建一大堆垃圾文件(请准备好30G空间)【具体在代码中】仅供恶搞娱乐和研究，没有攻击任何人，组织的意图。

5、VBS的代码直接复制到VB6的代码窗口里有时甚至没有出现异常（当然要放在事件里的），你可以试试看，实在不行追问我。我不知道你的VBS代码，追问时记得发给我文件，我可以帮你改代码。

6、简单啊。你把VBS后面改成.VBS就可以了。还有，别忘了得压缩。

OK，本文到此结束，希望对大家有所帮助。