说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

关于定时关机时出现的问题

编辑:说三道四文库 发布时间:2017-02-27 07:51
HTML文档下载 WORD文档下载 PDF文档下载
我在编写定时关机时,有时遇到别的程序优先级很高,会报出错误,比如说窗口handle error ,请高手告诉之。
NT下要先得到权限的,相关的例子很多,找找就能有一大把
FAQ 里的!


==========================================================================
Declare  Function  AdjustTokenPrivileges  Lib  "advapi32.dll"  Alias  "AdjustTokenPrivileges"  (ByVal  TokenHandle  As  Long,  ByVal  DisableAllPrivileges  As  Long,  NewState  As  TOKEN_PRIVILEGES,  ByVal  BufferLength  As  Long,  PreviousState  As  TOKEN_PRIVILEGES,  ReturnLength  As  Long)  As  Long  
 
Declare  Function  OpenProcessToken  Lib  "advapi32.dll"  Alias  "OpenProcessToken"  (ByVal  ProcessHandle  As  Long,  ByVal  DesiredAccess  As  Long,  TokenHandle  As  Long)  As  Long  
 
这是一个例子:  
Option  Explicit    
 
Private  Type  LUID  
UsedPart  As  Long  
IgnoredForNowHigh32BitPart  As  Long  
End  Type    
 
Private  Type  TOKEN_PRIVILEGES  
PrivilegeCount  As  Long  
TheLuid  As  LUID  
Attributes  As  Long  
End  Type    
 
'Beginning  of  Code  
 
Private  Const  EWX_SHUTDOWN  As  Long  =  1  
Private  Const  EWX_FORCE  As  Long  =  4  
Private  Const  EWX_REBOOT  =  2    
   
 
Private  Declare  Function  ExitWindowsEx  Lib  "user32"  (  _  
ByVal  dwOptions  As  Long,  ByVal  dwReserved  As  Long)  As  Long      
 
Private  Declare  Function  GetCurrentProcess  Lib  "kernel32"  ()  As  Long  
 
Private  Declare  Function  OpenProcessToken  Lib  "advapi32"  (  _  
ByVal  ProcessHandle  As  Long,  ByVal  DesiredAccess  As  Long,  _  
TokenHandle  As  Long)  As  Long  
 
Private  Declare  Function  LookupPrivilegeValue  Lib  "advapi32"  _  
Alias  "LookupPrivilegeValueA"  (ByVal  lpSystemName  As  String,  _  
ByVal  lpName  As  String,  lpLuid  As  LUID)  As  Long  
 
Private  Declare  Function  AdjustTokenPrivileges  Lib  "advapi32"  (  _  
ByVal  TokenHandle  As  Long,  ByVal  DisableAllPrivileges  As  Long,  _  
NewState  As  TOKEN_PRIVILEGES,  ByVal  BufferLength  As  Long,  _  
PreviousState  As  TOKEN_PRIVILEGES,  ReturnLength  As  Long)  As  Long  
 
 
Private  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    
 
hdlProcessHandle  =  GetCurrentProcess()  
 
OpenProcessToken  hdlProcessHandle,  (TOKEN_ADJUST_PRIVILEGES  Or  _  
TOKEN_QUERY),  hdlTokenHandle    
 
'  Get  the  LUID  for  shutdown  privilege.  
 
LookupPrivilegeValue  "",  "SeShutdownPrivilege",  tmpLuid    
tkp.PrivilegeCount  =  1  '  One  privilege  to  set  
tkp.TheLuid  =  tmpLuid  
tkp.Attributes  =  SE_PRIVILEGE_ENABLED    
'  Enable  the  shutdown  privilege  in  the  access  token  of  this  
'  process.  
AdjustTokenPrivileges  hdlTokenHandle,  False,  tkp,  _  
Len(tkpNewButIgnored),  tkpNewButIgnored,  lBufferNeeded    
End  Sub    
 
Private  Sub  cmdForceShutdown_Click()  
       AdjustToken  
       ExitWindowsEx  (EWX_SHUTDOWN  Or  EWX_FORCE  Or  EWX_REBOOT),  &HFFFF  
End  Sub  
 
确定 TextBox 有几行-VB资料 确定是 WINDOWS 的可执行文件-VB资料 让打印机只打印一行-VB资料 VB如何把批处理文件转换成EXE文件? VB如何调用 Office VB如何将文件删除到回收站 VB如何快速移动文件? VB如何让文本框输入完后,直接跳入下一行? VB如何使用vb取得一个文件的控制权 VB如何使用文件复制对话框? VB如何使用资源文件 VB如何用Dir()函数来列出C下所有TMP文件并且用文本框输出 VB如何在 VB 中使用 Winzip 来压缩文件? VB如何在DOS程序结束执行时,自动将其关闭? VB如何在VB中实现Undo(撤消)功能? VB如何在VB中实现目录遍历 VB如何在Windows操作系统中改变文件打开方式 VB如何知道硬盘是使用那一种文件系統(FAT32,FAT16)? VB如何自动更动成中文输入 VB删除整个目录 VB设置打印页边距 VB实现文件查找功能 VB使用SendMessage函数滚动文本框控件中的内容 VB使用 WIN95 的选择目录对话框 VB使用INI文件 VB使用WriteFile 块读写数据 VB使用历史文件记录 VB使用内存映射文件加快文件操作速度 VB数据报表设计器在多层结构开发的应用 VB突破 TextBox 32K 的限制 VB拖拽节点时实现目录树自动翻滚 打印问题谁能解决 谁用过‘北京利马公司’的ERP软件?评论??? 各位大哥帮帮我! 微软高手请进:CE下开发的三个(高难度)问题。。。 现在最好的jsp服务器是什么??最全面稳定的是哪一个?? 那位仁兄能给出一个24位bmp的图片转换成黑白的bmp图片的代码(别嫌分少啊) 对不住我的职业道德了…… 那位仁兄能给出一个24位bmp的图片转换成黑白的bmp图片的代码( 别嫌分少) 一个很菜的问题:怎样把文档类的数据传到CMainFrame 一个很有趣的问题,但是比较难哟,高手请进,一定给分!!!! 请问war是什么文件? 用LOTUS SCRIPT怎么样对修改一个文档中域的值?有没有代码? 各位,哪里有design patterns下载呀? 打印问题有谁能解决 十万火急,兄弟们过来帮帮忙........... 多字段模糊查询~~~谁会啊!! 高手请进 关于dialog和控件回车键消息处理的小问题 photoshop背景色的问题 虚函数能否做友元? const^:^ *********在dll文件中怎样打开一个窗口********* 自定义对话框 求解:怎样使用数据窗口能多页预览?有这项功能吗? 域的DNS有问题! 出现out of range 只是偶尔出现并不是经常出现?我的配置在里面 想问问大家关于微软认证的看法。 我有光驱上哪找 请问斑竹:c#中有类似exit(0)之类的函数吗, 请问谁有将可执行文件中的资源提取出来保存在新的rc文件中的源代码? PB数据库的连接分类解决问题? 数据窗口鼠标焦点为什么会遗失? 怎么用xp安装盘升级两千或酒吧下的wmp? 怎样得知ListBox中已经有多少项内容了? 看看大家关于微软认证的看法(只能给77,全给了) OFFICE XP以及金山词霸的漂亮菜单如何实现的??有源代码可以参考吗?? 谁能说一下"快手"的程序是怎么工作的啊 这个问题我都问了三遍了,还是没人帮忙回答一下? 这样怎么能不行了?怪了. ~散分哦~,哈~ 可怜的准初级程序员(水平的没过,竟然拿了个资历格的) 各位兄弟请了!一个远程接入问题邀请教各位~! 这个问题好象不难 如何在WIN NT4中安装、使用IIS4????? no pains,no gains. work for the beautiful girl here and for our beautiful life 各位大侠: 我是新手,有人能给我讲讲xmlspy吗?? win.ini与SYSTEM.INI的区别? Oracle 的产品真的很烂吗?参与者都有分! 现需开发一套对多个数据库(不是一个数据库中的多个表)进行操作的程序,使用BDE,请大家提建议 CPen的问题! 各位请教:我要通过电话线做多路远程接入但我不想用路由器 什么是化工工艺设计 染布厂一般用什么化工原料我想向染布厂销售一些化工原料,请帮忙例举一些,包括水处理化工原料 下列结构属于细胞的是:A胶原纤维B神经纤维C肌纤维D胶原原纤维E网状纤维 怎样对环刚度试验机进行校正我要找一个人能对我们公司的环刚度试验机进行校正 涂层厂要用哪些化工原料 胶原纤维是细胞吗 制定阅读计划!求推荐,应该读哪些书?高一完分科,准备读文科,到假期了,想制定一套读书计划,应该读点什么书?不求多但求精!用于提高文学素养.5-10本 硬度 锌合金钢和玻璃钢哪个硬? 为什么肌纤维能称之为细胞? 已知AB为⊙O的弦,P是AB上一点,若AB=10cm,PB=4cm,OP=5cm,求⊙O的半径的长 有KY系列环刚度试验机详细介绍吗? PVC-U双壁波纹管标准是什么?PVC-U双壁波纹管目前有没有国家标准 质量相等的铝和铅相比较谁的体积大 根据自己阅读的一本课外书,设计一张阅读卡,想一想哪些栏目是必须的.阅读记录卡姓名:何军晖 班级:七年五班书名:《三毛流浪记》 作者:张乐平内容摘要:阅读心得: 吹泡泡用的起泡剂是什么化工原料 化工颜料商店出售的涂料添加剂“银粉”是什么金属? 万能拉伸试验机、布氏硬度试验机、洛氏硬度试验机、金相显微镜价格分别是多少 哪种化工原料可以调制泡泡水 速求:各种管材的理论重量计算公式? 要进行化工工艺设计,其中工艺流程图,设备平面布置图,设备选型三项任务的要怎么安排(是先进行哪一项再到另一项),设备选型要给出设备的什么参数?(比如泵),我们还没学到,分配工作中,求回 化工原料在哪些行业用量较大,分别是哪些原料,主要是想问问化工原料的主要的使用行业和可以生产出的产品,分别会用到哪些化工原料~ 我国化工原料主要出口的国家是哪里?小弟刚从事化工原料外贸销售工作没到一个月,想请教大家一个问题,主要进口我国的化工原料的有哪些国家或地区?ps:我这是个小公司,所以要找对产品的 化工工程设计的核心内容是化工工艺设计,工艺设计一般包括哪些内容? 怎样降低造纸厂AKD施胶剂的用量? 求方钢管米重的计算公式 请问下埋地排水用的PE双壁波纹管一个工地要选用S1级别和S2级别时要考虑的依据是什么呢我着有个工地用的是400大口径的S2级别的,我想是不是能用S1级别来代替呢?这样判定级别的选择呢? 双壁波纹管的米重的计算方法详细的双壁波纹管的米重计算方法,内壁占用的百分率的计算方法, 8寸焊管米重是多少,要公式和计算过程., 波纹管分s1和s2是什么意思? 造纸厂污水处理菌种如何培养 请推荐一本化工方面的入门书!因为在化工公司实习,而且本来是学文科,所以化工产品都不太明白.想买一本化工方面的基础入门书来充下电.不知道有没有比较熟悉这一方面朋友推荐一下.比如 造纸用的化工原料有毒吗?应该去哪里检测 西安玻璃钢管道系列产品?比如玻璃钢缠绕管道,玻璃钢加沙管道,玻璃钢工艺管,那的好········· 密度为2.7×10³╱m³的物体一定是由铝材料制成的吗? 埋深为一米的PVC-U双壁波纹管应用S1型还是S2型更合理 玻璃钢管道如何安装? 制造航天器需要用密度什么的材料,因为在体积相等的条件下,密度什么的物质,它的质量什么 pvc的s0,s1,s2, 胶原,胶原蛋白,胶原纤维有何区别联系? 加热材料,物体的密度会增加吗?rt 造纸需要那些化工原料?最好能写出化工原料名称,谢谢辛苦了. 造纸厂用什么化学试剂造纸厂一般都有用到什么化学试剂啊 请指教 ppr管相比pe管材有哪些优点和不足? 化工原料CMC在造纸中所起的作用 胶原纤维是什么啊? PE-RT管材的优点是什么 乒乓球冬天已爆裂是由于什么(硬度还是导热性)A.导电性B.硬度C.延展性D.导热性 能合成胶原纤维的细胞有( ) 求塑料管中PE管材所占比例 印刷厂需要用什么化工原料我想开印刷厂,请问要用些什么化工原料? 弹性纤维是什么?用它做的衣服好吗? 谁能给我介绍几本有关化学,英语的书? 所有的彩印厂都需要化工原料吗?用油墨印东西需要化工原料吗 弹性纤维是细胞么 英语翻译since the first publications of the periodic law,both by dimitri mendeleev and lothar meyer in the 1870s,there have been a large number of forms proposed for the periodic table.the version easiest to use and most closely related to the el hdpe双壁波纹管sn4什么意思 目前的化工废水处理工艺有哪些?请各位指教, 环刚度试验机常见故障有哪些? 一根6m的DN300的HDPE波纹管重量是多少? 化工污水处理后能养鱼吗?
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn