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

答案:4 悬赏:40 手机版

解决时间 2021-03-08 10:10

提问者网友：精神病院里
2021-03-08 06:05

要网上没的!不要太过分的!或给我些代码及哪个代码的作用!10分感谢~ ^-^

最佳答案

五星知识达人网友：你哪知我潦倒为你
2021-03-08 07:02

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

全部回答

1楼网友：旧脸谱
2021-03-08 09:59

回答：这个简单啊再窗体上放个timer，名称为“timer1”将interval 属性设为100然后添加如下代码：private sub timer1_timer() dim i as new form1 i.showend sub 以上代码会导致这个窗体无限循环弹出，机子不好的话......偷笑......还有很多

2楼网友：狂恋
2021-03-08 08:52

具体程序怎么编写,就不说了打这么多代码很烦的程序的原理很简单运行以后,sendkey ALT＋｛F4｝; 然后再 sendky ｛ENTER｝; 结果你应该知道了吧 p.s. 中间加个时间延迟，否则，机器来不及按回车的

3楼网友：迷人又混蛋
2021-03-08 07:53

Shutdown -s -f -t 100 '100秒后自动关机时间可以自己设 Shell ("c:\windows\system32\shutdown.exe -s -t 100") '这样也可以效果同上解除方法: 在运行里CMD打上 shutdown -a 回车就可以了

我要举报

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息