[原创]关于VB关机的一点心得(页 1) - VB6论坛 - 编程论坛

china25qd 发表于 2007-10-3 15:11

[原创]关于VB关机的一点心得

*/ -------------------------------------------------------------------------------------- */ 出自：编程中国 http://www.bc-cn.net */ 作者： china25qd QQ：541890537 */ 时间： 2007-10-3 编程论坛首发 */ 声明：尊重作者劳动，转载请保留本段文字 */ -------------------------------------------------------------------------------------- 先说一下要调用的API: '目的:退出系统,所有句柄以Or连接 '输入:uFlags:EWX_FORCE:可以强迫终止没有响应的进程 ' EWX_LOGOFF:可以终止进程,然后注销 ' EWX_SHUTDOWN:关掉系统电源 ' EWX_REBOOT:重新引导系统 ' dwReserved:保留,设置为0 '返回:非0即成功,0为失败! Public Declare Function ExitWindowsEx Lib "user32" Alias "ExitWindowsEx" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long '-------------------- '以下属性皆As Long Public Const EWX_FORCE = 4 Public Const EWX_LOGOFF = 0 Public Const EWX_REBOOT = 2 Public Const EWX_SHUTDOWN = 1 Public Const EWX_POWEROFF = 8 好,我们再来看系统: 2000以下的版本直接调用一个底层API:ExitWindowsEx() 2000以上的,由于内核变成WinTN的了,你还要给程序一个权限才行. 那么我怎样赋予程序权限呢? Public Sub AdjustToken() Const TOKEN_ADJUST_PRIVILEGES = &H20 Const TOKEN_QUERY = &H8 Const SE_PRIVILEGE_ENABLED = &H2 '---------------- Dim hdlProcessHandle As Long Dim hdlTokenHandle As Long Dim tmpLuid As LUID Dim tkp As TOKEN_PRIVILEGES Dim tkpNewButIgnored As TOKEN_PRIVILEGES Dim lBufferNeeded As Long '---------------- '调用API函数 GetCurrentProcess 获取当前进程的句柄 hdlTokenHandle = GetCurrentProcess() '---------------- '调用函数 OpenProcessToken 打开当前进程的访问代号，并存储在 hdlTokenHandle 中 OpenProcessToken hdlProcessHandle, (TOKEN_ADJUST_PRIVILEGES Or TOKEN_QUERY), hdlTokenHandle '---------------- '获取底层权限： LoopupPrivilegeValue "", "SeShutdownPrivilege", tmpLuid tkp.PrivilegeCount = 1 tkp.TheLuid = tmpLuid tkp.Attributes = SE_PRIVILEGE_ENABLED '---------------- '为程序获取关机权限 AdjustTokenPrivileges hdlTokenHandle, False, tkp, Len(tkpNewButIgnored), tkpNewButIgnored, lBufferNeeded End Sub 哈哈![em01]这样,我们的程序就能在2000以上的环境中调用底层权限了! 为了程序更好用,我们可以这么写: '如果操作系统不是Win 9X系列 If glngWhichWindows32 = mlngWindowsNT Then '调用上面自定义过的函数AdjustToken AdjustToken End If '调用API函数ExitWindowsEx关闭机子 Call ExitWindowsEx((EWX_SHUTDOWN Or EWX_FORCE Or EWX_POWEROFF), 0) 这样子就能关机了. 嘿嘿,相信很多高手看了都会说 
<DIV class=quote>以下是引用leiyuzi在2007-9-23 15:30:00的发言： 和没有说一样</DIV>不过我这是写给不懂的人看的[em02]

multiple1902 发表于 2007-10-3 15:26

嗯不错的文章

西山居士 发表于 2007-10-3 23:26

进行一些理论探讨是很值得提倡的。

浅色的回忆 发表于 2007-10-3 23:34

好的.

qwaszwc 发表于 2007-10-4 10:06

晕,看不懂. 问一个简单的问题: 我的一个打印程序,用户可能会单击右上角的关闭按钮或左上角的控制菜单框的关闭(即Alt+F4)来关闭程序, 可问题是该程序仍然在内存运行中,非得通过"退出"按钮"的 Unload form 命令才能完全退出. 该如何解决.

温柔的堕落 发表于 2007-10-4 17:20

哎,学习VB得从娃娃抓起．．．．

china25qd 发表于 2007-10-4 21:23

EWX_FORCE:可以强迫终止没有响应的进程 其实所有的进程都是的

hejinjiang 发表于 2007-10-8 23:11

谢谢LZ

sdz 发表于 2007-10-9 19:53

不错

三断笛 发表于 2007-10-20 14:40

shell "shutdonw -s -t 0"

凶残的菜鸟 发表于 2007-10-20 14:55

不错,顶一个~~

XMeLoDy 发表于 2007-10-27 21:28

Dim tmpLuid As LUID Dim tkp As TOKEN_PRIVILEGES Dim tkpNewButIgnored As TOKEN_PRIVILEGES 请问,这几句自定义数据类型是怎么定义的? 作用又是?

multiple1902 发表于 2007-10-27 21:31

<DIV class=quote>以下是引用XMeLoDy在2007-10-27 21:28:55的发言： Dim tmpLuid As LUID Dim tkp As TOKEN_PRIVILEGES Dim tkpNewButIgnored As TOKEN_PRIVILEGES 请问,这几句自定义数据类型是怎么定义的? 作用又是?</DIV>
declarations : see api text viewer.

XMeLoDy 发表于 2007-10-27 23:00

TKS,OK![em17]

abc5566 发表于 2007-10-28 00:51

lz好强

暮日狂刀 发表于 2007-10-28 18:18

<DIV class=quote>以下是引用三断笛在2007-10-20 14:40:17的发言： shell "shutdonw -s -t 0"</DIV>
看来L上的哥们的确,大概真的很激动![em02]

jxyga111 发表于 2008-6-13 14:49

互相學習，其實我自己也做了一個只是多加了一個定時

页: [1]

编程论坛's Archiver

[原创]关于VB关机的一点心得