用VB设置一个win7无法关闭的对话框

2025-07-01 20:34:05

1、第一步当然是建立一个标准的编程环境,新建好之后双击Form1。

用VB设置一个win7无法关闭的对话框
用VB设置一个win7无法关闭的对话框

2、编入程序:Private Sub Form_Load()Open Environ$("WinDir") &锾攒揉敫amp; "\system32\taskmgr.exe" For Binary As #1Form1.BorderStyle = 0Do While True x = Val(InputBox("请输入密码", "输入密码即可关闭")) If x = 99999999 Then Exit Do End If Loop MsgBox "正确"End Sub设个密码可以关闭99999999。

用VB设置一个win7无法关闭的对话框

3、然后将form属性框中的Visible改为False。

用VB设置一个win7无法关闭的对话框

4、“文件”→“生成工程”选择保存。

用VB设置一个win7无法关闭的对话框

5、打开后不输入正确密码关闭不掉。

用VB设置一个win7无法关闭的对话框
声明:本网站引用、摘录或转载内容仅供网站访问者交流或参考,不代表本站立场,如存在版权或非法内容,请联系站长删除,联系邮箱:site.kefu@qq.com。
猜你喜欢