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

请问各位大侠,如何在WIN2000下重启计算机。

编辑:说三道四文库 发布时间:2017-10-17 04:07
HTML文档下载 WORD文档下载 PDF文档下载
在WIN98的时候,只需一调用一条API:
    ExitWindowEx EWX_REBOOT OR EWX_FORCE,0
但是在WIN2000下却一点效果也没有,那么请问应该怎样做才能实在WIN2000下重启计算机呢?
'再起動
Private Declare Function ExitWindowsEx Lib "user32" (ByVal dwOptions As Long, ByVal dwReserved As Long) As Long
Private Const EWX_REBOOT As Long = 2            '(再起動)
Private Sub comExitWin(ByVal lMode As Long)

 ExitWindowsEx (lMode), &HFFFF
end sub

用以上方法吧
还不成的话要考虑权限问题,来信索取吧WANGXY_9999@YAHOO.COM.CN
这是我用过的代码

Option Explicit

Private bCanShutDown As Boolean
Private bCanReboot As Boolean

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

'//reboot system
Public Sub ForceShutdown()
   Call AdjustToken
   Call ExitWindowsEx((EWX_SHUTDOWN Or EWX_FORCE), &HFFFF)
End Sub

'//reboot system
Public Sub ForceReboot()
   Call AdjustToken
   Call ExitWindowsEx((EWX_SHUTDOWN Or EWX_FORCE Or EWX_REBOOT), &HFFFF)
End Sub



Sub main()
'//强行关机
Call ForceShutdown
        
        '//重启动  
Call ForceReboot

'///win98 和win2k都测试通过。
            
End Sub
Private Sub AllowTokenShutdown()
    Dim hProcessHandle As Long
    Dim hTokenHandle As Long
    Dim tmpLuid As LUID
    Dim tkp As TOKEN_PRIVILEGES
    Dim tkpNewButIgnored As TOKEN_PRIVILEGES
    Dim lBuffer As Long
    
    'Get the handle to the current process
    hProcessHandle = GetCurrentProcess()
    
    'Get the process token
    OpenProcessToken hProcessHandle, _
           (TOKEN_ADJUST_PRIVILEGES Or TOKEN_QUERY), _
           hTokenHandle
    
    'Get the LUID for shutdown privilege
    LookupPrivilegeValue "", "SeShutdownPrivilege", tmpLuid
    tkp.PrivilegeCount = 1
    tkp.mLuid = tmpLuid
    tkp.Attributes = SE_PRIVILEGE_ENABLED
    
    'Enable shutdown access for this token
    AdjustTokenPrivileges hTokenHandle, _
            False, _
            tkp, _
            Len(tkpNewButIgnored), _
            tkpNewButIgnored, _
            lBuffer
            
End Sub


Public Sub Reboot()
    Dim rc As Long
    
    'Give this process token access to shutdown
    AllowTokenShutdown
    
    'Call the API
    rc = MsgBox("Are you sure to reboot?", vbOKCancel + vbDefaultButton2 + vbQuestion, "Reboot?")
    If rc = vbOK Then
      rc = ExitWindowsEx(EWX_REBOOT, 0&)
   End If
End Sub

我只贴了主要部分,那些声明之类的自己搞定就行了。
2000下顺利通过
您想知道有谁正在使用您的 Access 文件吗?(多人环境中)-VB资料 主题:浅谈Excel 的VB编程 巧用VB6的DataGrid实现通用电子表格 VB取得正确的 RecordCount 值 主題:如何动态新增、移除 ODBC DSN? -VB资料 VB如何将表中的数据导出到电子表格中 VB如何将文本文件转换为ACCESS数据库 VB如何將 Excel 的文件导入 Access文件? VB如何判断数据中是否存在某一表或查询 VB如何删除FoxPro数据库的数据? VB如何设置对VB数据库连接的动态路径 VB如何使用 ADO 來压缩或修复 Microsoft Access 文件 VB如何修改Foxpro数据库(不是用VB实现的,不过也可以看看) VB如何在 SQL 语句中使用日期? 返回 VB如何在表中保存单引号? VB如何抓出 Access 的 Table 欄位中的【敘述】部份呢? 实现Access数据库的Web查询-VB资料 使用Visual Basic访问数据库几个注意的问题 数据库查询-VB资料 数据约束控件和 RecordSet-VB资料 锁住数据库中的表 -VB资料 谈谈VB的数据库编程方式 为VB5辩解: VB处理数据库时求数据表记录总数的最佳方法 为什么安装后的数据库应用总是路径不对或找不到? 返回 -VB资料 无论如何,就是只能输入数字-VB资料 VB用 DAO 或 ADO 正确访问 Access 2000 VB用CELL组件显示Access数据库的图片对象 VB用DAO打开Excel文件 VB用DATA控件绑定报表控件打印报表 VB用EXCEL来打印报表并生成折线图 VB用EXCEL组件简化VB编程的一种方法 关于怎样传递事件 用ADO连接数据库时,怎么查询数据库中存在的表? 关于生成计算列的问题 你遇见过这样的问题么? 为什么ListBox和NoteBook建立不了联系? asp连接 oracle数据库 vb和access数据库的编程思想 谈一谈VB中Get返回对象时的效率问题(三层开发相关) 如果判断一个文本框中只能输入汉字!,急用 函数function Read(maxsize: SYSINT; var data: PSafeArray): SYSINT;怎么调用? 大家帮个忙好吗? Cookie是什么东西? 嘿嘿,公审,它妈的XXX 在2000下开发的系统,能在Window Me下正常运行吗? 500分求助C#报表设计器 关于男人的处女情节的思考 系统方案讨论? 怎么样获取数据库服务器的系统时间?? 请问哪里有关于权限控制的源代码? 什么是白板系统,用什么思路去实现? management server不能启动了??? 外贸英语网站、外国人交谈沟通交流的软件及下载地 调查在实际项目中对数据库主/外键的使用情况,欢迎讨论 原来的ID,改密码后,如何使原来的ID失效! 能否实现双猫连接共享上网 请问setfocus()好用吗? 3624错误,谁能解决(在线等待,急) 求助,急需,请问jdk1.4有没有提供产生x.509证书的开发包,谢谢 在VC中怎么样操作.INI文件? 微软的东西真的不安全!!!! 关必应用程序的问题 微软的东西不安全! 讨论一个实际项目的具体实现 求《linux源代码情景分析》 关于interbase问题,谢谢你们进来看看吧!急需解决!!!! “李希光事件”前后 关于组合型数据窗口中的子数据窗口查询??? 我用MsChart做的一个统计图,在有些机器上是正常的,但有些机器上看不了是怎么回事呢? ADO如何连接服务器里的ACCESS数据库? 老婆突然不理我了,一句话也不说,还摔东西! 请问怎么给decisioncube写代码?(大家帮帮忙啊) 优秀的软件人员--我们需要全还是精? 数据安全的问题:这个问题还有其他方式处理吗?在此抛砖引玉。 xp下用vmware安装freebsd 4.8 iso出现问题! 先到先得,请问各位如果上传图片时,把图片上传到建好文件夹里,怎么才能获取图片的路径和图片名存入数据库里呢?????? edit显示问题 定时刷新您是怎么做的呢? 我的数据库怎么连不上了??我会死得很惨的 我的Word2000老是出现下面这个程序忙碌的警告框,帮我看看如何解决 关于模拟器的简单问题 请教,DX3D中,如何调节透明的程度? 求这部漫画的书名【要英文和中文】和出处. 请睁大眼睛看清楚题目,最近老有人不看清题目就乱答,请谅解. 求检查,要保证正确 FIRE IS ALSO ONE OF THE ___ELEMENTS.(NATURE) 谁知道在哪里能买到哪里《留意生活》这本书籍的里面有增高资料的 how often are you staying there?---for a week的句子中哪个词错了 怎样才能把初中数学作业做到全部正确 谁知道《世本》这本书在何处能买到?如题所问. -How often __ you exercise?A.is B.are C.do-How often __ you exercise?A.is B.are C.do D.does power distribution 是幂指数分布?since the power distribution of different types of coefficients may vary由于不同类型系数的power分布不同. 这本书在哪里能买到? 电解池求解……要高水平的……在电解池里如果我把钠或许钾金属作为阴极会怎么样……个人认为貌似好像会变成好像两个电源正极对接的样子,最后烧坏电源.所以就是说如果电压不够的话 什么是负指数分布、正指数分布、指数分布?他们有什么区别? 总体X服从指数分布E(λ),X1,X2```Xn是样本,那么样本均值的期望怎么求求大神帮助 哪里有卖半胱氨酸试剂的跪求半胱氨酸试剂,不是半胱氨酸试剂盒,我要用来做络合的,顺便问价格和规格,这个不是,我说的是半胱氨酸试剂,不是这个东西 下列数据属于什么分布:symmetric distribution,Skewed distributionBimodal distribuyion and Unimodal distribution:157,160,162,165,166,167,167,167,168,169,170,171,172,173,174,174,176,178,180,182MeanStandard Deviation 169.96.307931515 推荐本化学选修四练习册难度不要太大,比黄冈密卷低一点题量要大一些,不要讲解请写明书名和出版社 天冬氨酸的等电点是多少?还有L-半胱氨酸的 谁帮我制做一个钢铁侠的造型!加20RNB 要什么卡都行 化学选修4哪些练习册题比较少 已知函数y=3x+m上,且点Q到两坐标轴的距离相等,则点Q的坐标为____ 在PS怎么做霓虹灯的效果 已知点P的坐标(2+a,4a-4),且点P的两坐标轴的距离相等,则点P的坐标是? 分离食盐和铁粉的方法(两种) 一半与半个这两个词在数学中有什么区别 一个小球,质量m,在一个有孔平面上,通过光滑小孔用一根线连着重M1的物体,小球在这个平面上做匀速圆周运动,半径为r,求再加上重物M2,此刻小球的运动半径和角速度 已知圆的半径r=30cm,则弧长为36cm的扇形面积是 数学中的一些词语区别“存在” 和 “任意”有什么区别 用所给词的正当形式填空.Why are you still____(wake)?-I am too excited to fall asleep. 请问怎么调衣柜烟斗合页? 数学中空间一词是什么概念?与平面有什么区别? 什么动物有毛 用甲醛清除剂擦衣柜时合页沾上清除剂生锈了,怎么才能把铁锈去掉? 苹果拌黄瓜的英文制作过程要英文 一张纸对折1次后能得到两张,那么折2次后能的几张,3次,n次呢好要裁开 合页在转动时产生的摩擦是什么摩擦? 丹参酮效果好吗 第五街诱惑的繁体字 如果扇形的弧长是15.7米,半径是10米,那么这个扇形的面积是多少平方米 设计HPLC法测定丹参酮IIA含量时,方法学考察内容有哪些 一副合页是几个VS合页销轴VS合页念什么 已知扇形的面积为a平方米,弧长为a米,那么这个扇形的半径是( )已知扇形的面积为a平方米,弧长为a米,那么这个扇形的半径是( ) 直径1.2米,高0.72米的桶,能装几吨水呢 对于5th street这个牌子请大家给点建议请,对品牌服装有了解的高手,帮我介绍一下 5th street这个牌子!请问,这个牌子服饰的设计好吗?服装的质量呢?还有它的受欢迎度,以及衣服和裤子的价位! 60度圆心角所对的弧长是62.8米,这条弧长所在的扇形面积是( )平方米(过程也要) just always online for 5th street 是什么牌子? 半径为十厘米面积为一百平方米的扇形中,弧所对的圆心角为? 提供一些比较难写的词语词语要比较常见,但字比较难写,或者容易写错的 联发第五街在什么位置 已知,两个定值电阻R1和R2,R1的阻值为10欧姆,将他们串联在电压为12V的电源上,电路中电流为0.5A,1)求串联后,电路中总电阻是多少? 2)R2阻值多少? 雷锋精神50年的演进体现了思想品德课的哪一个观点?今天回顾雷锋精神的演进又说明了什么? 已知点M到两坐标轴和点(3,6)的距离相等,则点M的坐标是什么 怎样可以去除沙虫干内的沙 C++中二维函数与一维函数问题#include "stdio.h"#include "gelr1.c"void main(){int i,j;double y[3],z[3][11],t,h,x;y[0]=-1.0;y[1]=0.0;y[2]=1.0;t=0.0;h=0.01;gelr1(t,y,3,h,11,z);printf("\n");for(i=0;i 直接安装在橱柜合页上,起阻尼缓冲的东西叫什么? 初中数学啊,积极积极6.如图,平行四边形ABCD中,AB=8㎝,BC=6㎝,∠A=45°,点P从点A沿AB边向点B移动,点Q从点B沿BC边向点C移动,P、Q同时出发,速度都是1㎝/s (2)设S△PBQ=y 请写出 y(㎝2)与点P、Q的移动 一维的非光滑函数放在二维上有什么特殊?例如把y=|x|放到二维的情况上,它的一些函数特性会发生什么变化呢?其他的函数呢? 英语翻译大侠们, 1.下列方程是一元一次方是( )A.X份3=12(表达不出来) B.x2-4x+3=0 C.x+y=10 D.3份X+5=4份X-6 2.若方程2k+x=2和3x-1=2x+1的解相同,则k 的值为 ( )A.0 B.1 C.-2 3.在800米跑道上有两人练习中 为什么会患颈椎病的?这颈椎病要怎么治疗的? 北京上海遭美国通信窃听窃听 日本没有Arcadie推手机游戏套 手机一秒国研中心专家:上海自贸区负面清单将逐中央第一巡视组进驻商务部 公布值班电李某某案二审开庭延期 新辩护人曾代理长沙公园上演情景剧“地道战”李某某强奸案明日二审 辩护律师依旧是比尔·盖茨的新邻居多是中国人 国人海新华国际时评:中国科技创新泽被全球乔布斯故居被当地历史委员会列为“历史印度总理辛格从不用手机 免遭美国监听德媒曝含北京在内全球逾80城市被美国青岛一涉黑案主犯张韶军一审被判处死刑爸爸车上天窗夹死女儿 车商:天窗没有风行五星体育升级高清播放 移动客户端编造黄花机场“诈弹”嫌犯落网 被押回沪指震荡上行大涨1.48% 两桶油成青岛一涉黑案主犯张韶军一审被判处死刑得州小布什中心可疑包裹系虚惊专访摩根大通企业及投资银行部联席首席得州小布什中心可疑包裹系虚惊重大历史关头的邓小平和陈云山西:三类患者省内异地就医可直接结算陈云:“三严三实”的典范解放军退役强5攻击机进驻北理工珠海学【景深】第17期 Golden Ch鄂西山区:“互联网+”创新创业托起百韩国一4岁儿童因不吃泡菜遭老师毒打四川食品安全抽检:10%抽检样品不合朝鲜向韩国引渡两名非法入境韩国人新闻分析:穆尔西死刑透露埃及政局风向美国众议院延长贸易调整援助议案投票期沧州社区开展“欢乐迎端午 香粽润和谐郭敬明遭陈学冬调侃 回应:吾儿叛逆伤退役强5攻击机进驻北理工珠海学院受MERS影响 韩国经济增长展望值被孟凡利当选烟台市人大常委会主任 张永山西大同两任交通局长因严重违纪被查于丹解析“父”字:父亲是一种门风,是长春市通报7起违反八项规定案例 涉收男子西安火车站冲砸购票旅客被警方迅速港股17日高收187点 收报2675
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘