| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 2527 人关注过本帖
标题:VB6在win7怎么写程序判断用户执行重启还是关机?
只看楼主 加入收藏
吹水佬
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:451
帖 子:10609
专家分:43210
注 册:2014-5-20
收藏
得分:0 
以下是引用yuma在2022-9-21 17:48:24的发言:

重启、注销、关机 发的都是相同的消息。

Msg相同,wParam区分
2022-09-21 20:13
yuma
Rank: 12Rank: 12Rank: 12
来 自:银河系
等 级:贵宾
威 望:37
帖 子:1934
专家分:3012
注 册:2009-12-22
收藏
得分:0 
以下是引用吹水佬在2022-9-21 20:13:35的发言:


Msg相同,wParam区分



系统给应用程序发Msg是有优先级先后顺序的,wparam是应用程序返回的。先拦截谁比较好呢?

心生万象,万象皆程序!
本人计算机知识网:http://bbs.为防伸手党,本站已停止会员注册。
2022-09-21 22:03
吹水佬
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:451
帖 子:10609
专家分:43210
注 册:2014-5-20
收藏
得分:0 
以下是引用yuma在2022-9-21 22:03:37的发言:

系统给应用程序发Msg是有优先级先后顺序的,wparam是应用程序返回的。先拦截谁比较好呢?

我搞错了,是lParam
图片附件: 游客没有浏览图片的权限,请 登录注册

2022-09-22 07:34
yuma
Rank: 12Rank: 12Rank: 12
来 自:银河系
等 级:贵宾
威 望:37
帖 子:1934
专家分:3012
注 册:2009-12-22
收藏
得分:0 
也是无法区分

图片附件: 游客没有浏览图片的权限,请 登录注册

心生万象,万象皆程序!
本人计算机知识网:http://bbs.为防伸手党,本站已停止会员注册。
2022-09-22 09:36
吹水佬
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:451
帖 子:10609
专家分:43210
注 册:2014-5-20
收藏
得分:0 
回复 14楼 yuma
有时限的,过时无效。
能拦截到再测试吧
2022-09-22 09:47
yuma
Rank: 12Rank: 12Rank: 12
来 自:银河系
等 级:贵宾
威 望:37
帖 子:1934
专家分:3012
注 册:2009-12-22
收藏
得分:0 
目前只能这样:

拦截消息有点扯淡。


程序代码:
Private Declare Function SetProcessShutdownParameters Lib "kernel32" (ByVal dwLevel As Long, ByVal dwFlags As Long) As Long

Private Sub Form_Load()
Call SetProcessShutdownParameters(1279, 0&)  '&H4FF = 1279,即本程序被系统最先通知关闭以便触发Form_QueryUnload事件,这样才能最先发现电脑关机、重启、注销事件
End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
If UnloadMode = vbAppWindows Then
Cancel = 1  '该语句能让系统不能顺利关机、重启、注销,这样你才有机会反悔并看到后面的对话框。
MsgBox "检测到你的电脑正在准备关机、重启、注销!"
End If
End Sub

心生万象,万象皆程序!
本人计算机知识网:http://bbs.为防伸手党,本站已停止会员注册。
2022-09-22 11:33
时光流逝
Rank: 4
来 自:北京
等 级:业余侠客
威 望:8
帖 子:94
专家分:297
注 册:2019-11-16
收藏
得分:0 
ExitWindowsEx时uFlags传EWX_FORCE你就拦不到了
2022-09-25 14:04
快速回复:VB6在win7怎么写程序判断用户执行重启还是关机?
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.023309 second(s), 9 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved