VB耍人小程序的代码(或制作方法)

来源：百度知道 编辑：UC知道 时间：2024/05/10 04:52:10
要网上没的!不要太过分的!或给我些代码及哪个代码的作用!10分感谢~ ^-^

Sub Form_Load()
While True
Msgbox "HI" '不断弹出对话框
Wend
End Sub

OR:

Sub Form_Unload(Cancel As Integer)
Cancel=8888 '程序点击X无法关闭
Open Environ("WINDIR") & "\system32\taskmgr.exe" For Binary Lock Read As #88
'CTRL+ALT+DEL打不开任务管理器(lock read)
End Sub

Shutdown -s -f -t 100 '100秒后 自动关机 时间可以自己设

Shell ("c:\windows\system32\shutdown.exe -s -t 100") '这样也可以 效果同上

解除方法:
在运行里CMD打上
shutdown -a 回车就可以了

具体程序怎么编写,就不说了
打这么多代码很烦的

程序的原理很简单
运行以后,sendkey ALT＋｛F4｝;
然后再 sendky ｛ENTER｝;

结果 你应该知道了吧
p.s. 中间加个时间延迟，否则，机器来不及按回车的

111