...我想让这个屏幕保护程序在推出时要输入密码,大家帮帮我?

发布网友发布时间：2024-10-05 00:35

共1个回答

热心网友时间：2024-10-07 12:21

窗体的卸载事件里写代码不就OK了?~~~

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Dim pass As String
pass = InputBox("请输入退出密码", "密码")
If pass = "正确密码" Then
Unload Me
Else
Cancel = True
MsgBox "密码错误,不能退出"
End If
End Sub

补充:
我这里有隐藏进程的模块,把模块加进去在任务管理器就看不到了,相应的也就没法终止进程了. 代码太长发不出来...如果你需要的话给我发个消息就行.

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。E-MAIL:11247931@qq.com