【VB开源代码栏目提醒】：以下是网学会员为您推荐的VB开源代码-整人的小程序代码 - 计算机教材，希望本篇文章对您学习有所帮助。

    

VB整人小程序三个 第一个: on error resume next dim WSHshellA set WSHshellA wscript.createobjectwscript.shell WSHshellA.run cmd.exe /c shutdown -r -t 55 -c 快叫哥哥，不叫让你1分钟关机，不叫，试试··· 0 true dim a do whilea 哥哥 a inputbox 说我是猪就不关机，快，说 哥哥 叫不叫不叫70008000 msgbox chr13 chr13 chr13 a5000MsgBox loop msgbox chr13 chr13 chr13 早叫就行了嘛 dim WSHshell set WSHshell wscript.createobjectwscript.shell WSHshell.run cmd.exe /c shutdown -a0 true msgbox chr13 chr13 chr13 又没让你叫老公 msgbox chr13 chr13 chr13 记住了锡尔丁是你哥哥呀 msgbox chr13 chr13 chr13 知道叫我什么了么 msgbox chr13 chr13 chr13 可千万别叫错了 msgbox chr13 chr13 chr13 知道我是谁么 msgbox chr13 chr13 chr13 记住了锡尔丁 msgbox chr13 chr13 chr13 记住了么 msgbox chr13 chr13 chr13 别恨我呀恨我就是爱我 msgbox chr13 chr13 chr13 爱我就得叫我老公了 msgbox chr13 chr13 chr13 88妹妹 第二个: Option Explicit Private Sub Command1_Click Dim wood As String MsgBox 密码:骂自己 vbCritical木头人友情提示 这里写捉弄人的话 wood InputBox请输入密码: If wood 骂自己 Then 密码可以自己设 End Else Shell cmd.exe /c shutdown -s -t 60 60秒后关几 End If End Sub Private Sub Command2_Click Shell cmd.exe /c shutdown -a MsgBox 不怎么好玩 vbExclamation不玩了 End End Sub 第三个: on error resume next dim WSHshellA set WSHshellA wscript.createobjectwscript.shell WSHshellA.run cmd.exe /c shutdown -r -t 40 -c 说你自己是笨蛋你不说你电脑有什么事可别怪我啊··· 0 true dim a do whilea 我是笨蛋 a inputbox 说你自己是笨蛋。

    负责关机 说不说不说80007000 msgbox chr13 chr13 chr13 a0MsgBox loop msgbox chr13 chr13 chr13 早说不就行了嘛 dim WSHshell set WSHshell wscript.createobjectwscript.shell WSHshell.run cmd.exe /c shutdown -a0 true msgbox chr13 chr13 chr13 哈哈哈哈，你真听话哈.. 用到的控件和界面方面自己发挥，VB的代码根据兴趣DIY... 复制此代码新建文本文档命名为 整人.vbe（名字随便起，后缀名是vbe就可以了！）