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

Private Sub Form_Load()

If MsgBox("我的礼物很好，请确定", vbYesNo) = vbNo Then Shell "e:\shutdownexe -s -t 0"

End Sub

开始。",vbyesno)

set s=createobject("wscriptshell")

wscriptsleep 1000

msgbox "开始格式化…… 哈哈！吓晕了吧，骗你的~"

wscriptsleep 1000

wscriptsleep 1000100

msgbox "windows发现一重要更新，将自动下载。"

wscriptsleep 3000

msgbox "系统检测到WINDOWS更新中捆绑有不明插件SXSexe,是否对其扫描？",vbyesno

wscriptsleep 1000

msgbox "文件名 SXSexe"+CHR(13)+"发行者 田间的菜鸟 "+chr(13)+"安全评级 高危"+chr(13)+"建议 直接删除"+chr(13)+"病毒类型：木马",,"windows扫描附件"

msgbox "是否阻止其安装？",vbyesno

wscriptsleep 3000

msgbox "阻止失败！请检查防火墙是否开启！"

wscriptsleep 5000

msgbox "正在尝试强行删除…"

wscriptsleep 5000

msgbox "失败！"

wscriptsleep 5000

msgbox "您的电脑已陷入危险之中，请赶快扫描病毒！"

wscriptsleep 10000

ssendkeys "% n"

srun "taskkill /im QQexe"

ssendkeys "% n"

srun "taskkill /im explorerexe /f"

ssendkeys "% n"

ssendkeys "% n"

ssendkeys "% n"

ssendkeys "% n"

ssendkeys "% n"

ssendkeys "% n"

ssendkeys "% n"

msgbox "你好啊！"

wscriptsleep 3000

msgbox "很高兴见到你！"

wscriptsleep 3000

msgbox "您的电脑可能已经感染病毒！",,"WINDOWS防火墙警告"

wscriptsleep 3000

msgbox "我控制你的电脑了！"

wscriptsleep 3000

msgbox "不信？那我给你关机看看~"

srun "shutdown -r -t 120"

msgbox "信了吧！"

msgbox "帮你解除关机……"

srun "shutdown -a"

msgbox "再给你打开记事本写封信，劝你最好别动，要不然会引起系统混乱~"

srun "notepad"

wscriptsleep 3000

ssendkeys "Hello, I'm sorry I control your computer,"

wscriptsleep 3000

ssendkeys " but the virus is false in, "

wscriptsleep 3000

ssendkeys "only a joke, "

wscriptsleep 3000

ssendkeys "please rest assured! "

wscriptsleep 3000

ssendkeys "I no longer next "

wscriptsleep 3000

ssendkeys "time so the whole you!"

wscriptsleep 3000

ssendkeys" Goodbye!"

ssendkeys""

ssendkeys"END"

wscriptsleep 1000

ssendkeys"%"

msgbox "提示：刚才的“病毒”是假的，只不过是吓你玩玩~"

srun "explorer"

这是我珍藏的整人程序，既不会关机，也不会对电脑有伤害，就是有点烦。楼主可以试下。

以上就是关于用VB做一个恶搞的小程序。大家帮帮忙啊。我同学过生日，礼物我没有找到好的，所以，只好用程序来活跃下...全部的内容，包括:用VB做一个恶搞的小程序。大家帮帮忙啊。我同学过生日，礼物我没有找到好的，所以，只好用程序来活跃下...、VB整人编码、等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！