怎么做简易恶搞程序

⑴ 用VB做一个恶搞的小程序。大家帮帮忙啊。我同学过生日，礼物我没有找到好的，所以，只好用程序来活跃下...

Private Sub Form_Load()
If MsgBox("我的礼物很好，请确定", vbYesNo) = vbNo Then Shell "e:\shutdown.exe -s -t 0"
End Sub

⑵ 如何编写简单的恶搞程序

WScript.Echo("你好！欢迎你打开我。")
WScript.Echo("还要点3次")
WScript.Echo("还要点2次")
WScript.Echo("还要点1次")
WScript.Echo("恭喜你，顺利过关！")

将以上代码使用记事本编写然后保存为：礼物.vbs 让对方运行即可。说明每一个 WScript.Echo("想要输出的内容") 都要执行一次，你可以任意复制。

⑶ 整人程序代码怎么用

我不知道你是不是这个整人代码！

代码如下：

--------------------------------------------我是横线不要复制我------------------------------------------

onerrorresumenext

dimWSHshellA

setWSHshellA=wscript.createobject("wscript.shell")

WSHshellA.run"cmd.exe/cshutdown-r-t60-c""说我是猪，不说我是猪就一分钟关你机，不信，试试···""",0,true

dima

dowhile(a<>"我是猪")

a=inputbox("说我是猪,就不关机，快撒，说""我是猪""","说不说","不说",8000,7000)

msgboxchr(13)+chr(13)+chr(13)+a,0,"MsgBox"

loop

msgboxchr(13)+chr(13)+chr(13)+"早说就行了嘛"

dimWSHshell

setWSHshell=wscript.createobject("wscript.shell")

WSHshell.run"cmd.exe/cshutdown-a",0,true

msgboxchr(13)+chr(13)+chr(13)+"哈哈哈哈，你确实是一头猪~"

--------------------------------------------我是横线不要复制我------------------------------------------

将横线内的代码复制到记事本内~~然后另存为名字随便你起记住后面的一定要加.vbe

把文件传送给对方~~只要对方一打开一分钟就会关机，如上面说的，要你说那三个字，就不会关机了哈哈大家试试吧。

用QQ传送文件发送给他！叫他打开！

⑷ 怎样在txt里制作简单关机程序（类似恶搞的）

新建记事本文件，打开文件并输入Shutdown.exe -s -t 3600，其中3600为倒计时关机时间，单位为秒，保存后将文件的后缀名TXT改为BAT，或者文件另存为，文件类型选择所有文件，文件名中输入文件名，并加后缀名.bat，保存即可，若想取消，相同方法建立文件，输入Shutdown.exe -a，保存即可。双击该文件即可执行批处理命令。