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

VB如何关闭/重新启动计算机?

HTML文档下载 WORD文档下载 PDF文档下载
VB如何关闭/重新启动计算机?

16位Windows用ExitWindows() API函数,而32位Windows则用ExitWindowsEx().32位版本比16位版本多了更多的控制及选项,包括注销及关机。

Declare Function ExitWindows Lib "user" (ByVal uFlags As Long, ByVal _
dwReserved As integer) As integer
Const EW_REBOOTSYSTEM = &H43
Const EW_RESTARTWINDOWS = &H42

Sub Command1_Click()

Dim iAns As Integer
Dim rVal As Integer
Dim iButtonType as Integer

iButtonType = 4 + 32 ' vbYesNo + vbQuestion

' Ask if the user is sure they want to exit.
iAns = MsgBox("Are you sure you want to exit windows?", iButtonType, _
"Exit Windows")
If iAns = 6 Then ' Yes pressed
' Call the exit function to Reboot.
rVal = ExitWindows(EW_REBOOTSYSTEM, 0)
End If

End Sub

***** 32位的例子 *****
In a project with 1 commandbutton, place the following code:
Private Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, _
ByVal dwReserved As Long) As Long
Private Const EWX_LOGOFF = 0
Private Const EWX_SHUTDOWN = 1
Private Const EWX_REBOOT = 2
Private Const EWX_FORCE = 4

Private Sub Command1_Click()

Dim iAns As Integer
Dim rVal As Long

' Ask if the user is sure they want to exit.
iAns = MsgBox("Are you sure you want to exit windows?", vbQuestion Or _
vbYesNo, "Exit Windows")
If iAns = vbYes Then
rVal = ExitWindowsEx(EWX_SHUTDOWN, 0&)
End If

End Sub


查看ExitWindowsEx的详细用法

前谷歌Android开源项目主管Queru加盟雅虎 Windows 8.1售价出来了!分别是119.99美元、199.99美元 对AngularJS进行性能调优的7个建议 为什么说UX设计师的黄金时代已来临? 豌豆荚:“应用内搜索”是打通移动互联网最具竞争力的入口 苹果发布会后的冷思考,64位芯片为开发者带来了什么? 中兴Geek评测:高性价比的英特尔处理器智能机 SAE的资源、安全隔离与Container 平板电脑悬了 Phablets或成为未来移动设备的主流 拿什么拯救你:黑莓今年将裁员4500人 推荐10款免费的在线UI测试工具 最好的Java IDE之争:Eclipse PK IntelliJ IDEA Intel发布E5 2600 v2处理器 开放硬件监控信息 XP寿终大限将近 微软再次呼吁用户尽早“分手” Dropbox CTO:离开办公室就焦虑的技术宅男 看雪学院“走进企业看安全”活动百度站落幕 九大设计技巧+作品赏析 激发你的创作灵感! 排名前十CEO的工资条,你怎么看? 麻省理工TR35之IT界年轻有为创新者(下) Storm的“翻版”:LinkedIn开源实时数据处理系统Samza 呼吸监测耳机:一个在“呼吸”上做文章的可穿戴设备 谷歌7年210亿美元的基础设施建设,及可供17万家庭使用的风电 Touch ID很安全?德国黑客宣布已绕过苹果指纹识别系统 纽约警方鼓励用户升级iOS 7 你想好了吗? Android开发者不可或缺的四大工具 Mozilla开源TogetherJS:让网站拥有实时协作功能 可穿戴技术专家Jawbone UP向所有开发者开放API 18款在线代码片段测试工具 Gartner咨询公司研究副总裁彼得&#183;福斯特布鲁克:互联网安全新兴威胁与挑战 美国智库战略与国际研究中心(CSIS)詹姆斯&#183;刘易斯:网络安全神话、传说与现实 云安全联盟中国分会理事赵粮:建设可信的云生态环境 struct(结构) 类型可以转化为 Variant吗?怎么转化?然后如何将Variant类型的变量恢复为struct结构 用lotus script怎样实现对数据库指定文档的修改? 问个简单的线程问题,大家别见笑 :)!!! 关于asp.net的配置问题 jsp、oracle8.1.6的中文问题 在线等待 关于重新启动计算机的问题,谁能帮我? 各位,帮忙看看!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! daehappy进来取分,感谢给分! 各位大虾,有谁知道oracle8i,oracle9i是如何报价的,非常感谢! daehappy进来取分,感谢给分! daehappy进来取分,感谢给分! 如何驗証日期類型? 打包是如何解决vcl60的错误? 很急,谢谢 请问:单文档中如何在退出时去掉弹出的“是否保存文件“消息? 还没有见过这样的贴子,但又在实践中经常碰到的问题,怪事。。。。 ??IDispatch error #3101:什么意思?? 怎样实现程序中的取消功能 各位,上海哪边的房子便宜一点?(700左右,房内只要有简单家俱即可!) 一个<xsl:if>的问题 vc6.0 能否直接编译.mak文件?该如何配置? 关于XP中的PF使用率和字体占用内存的问题 有关安装nt server的问题 有关安装nt server的问题 关于数据库用户的问题! 很奇怪的现象,有人知道吗? 初级问题 电脑自动重启,有点难度,高手请进,如果对,绝对给分! 怎样用DAO或ADO访问EXCEL数据表? 请问该事件可以通过发送消息或其他的方法来触发吗? 有没有关于开发控件的文章和例子,请各位大侠帮忙!!! 告诉那有免费的数字化软件马上送分200 请问哪里有 Remote Authentication Dial In User Service (RADIUS)的资料或原码? 我怎么不能看你们的问题啊 关于数据库 window.parent.oa_middle.oa_userlist.document.location.reload();报错:对像为空或不存在 看如下的sql语句如何才能够把结果显示在grid内? 准备学习j2ee, 大家推荐些网站和书籍,我准备狂啃二个月!对了,我连它的开发工具还不知道呢,是不是还用jbuilder? 初学者,如何在C++ Builder中打印? DCOM编程要求在客户端安装DCOM,怎样安装DCOM,怎样判断是否安装了DCOM? 很小的小问题关于winsock 电话语音卡支持adpcm文件格式的直接播放吗? 关于Access数据库的两个问题,急! 一个初学者的简单问题。 大家好,一个小技术问题,不知道怎魔办? 两句的代码都出现问题!憋闷 高分寻求《数据结构-C++语言描述》书友,来者有分 谁知道哪儿能下载access的jdbc驱动程序吗? 好消息,Win2000下自定义报表问题! ATL里使用静态库的问题 我看不见你们问题的内容 试试难不难??HELP 结晶法 .加热法 .蒸馏法.的区别(在什么时候用结晶法.什么时候用加热法 .什么时候用蒸馏法. 地球上最早出现的生命形式是?A没有细胞结构的病毒等生物B多种有机大分子的集合体C具有细胞形态的单细胞生物D由多个细胞形成的生物体 生理盐水的浓度是重量比吗? 那个,蒸馏瓶可用来加热么?若能,那么是直接加热还是间接才能加热? 关于压强的选择(初二)一名杂技运动员表演时,展示了独掌支撑的雄姿,此时他的手掌对地面的压强是__A500PaB5000PaC50000PaD500000Pa 关于生理盐水的浓度问题,急生病了,都要去掉盐水,如果说盐水的浓度偏高或偏低人体会怎么样?如果换成水会怎么样? 氢氧化钠和氯化钠反应生成什么,请写个化学式 铜和氧气生成什么 医院中生理盐水的浓度是多少生理盐水的浓度是多少 写步子强壮有力的词语 战斗机以极快的速度俯冲向前方目标投弹战斗机以极快的速度俯冲向前方目标发射导弹,导弹会发射不出去吗?这几天央视1套节目的电视剧,那个2号女武器专家说的.这种说法对不对?看来问题不 请问农业银行对账单上的现支和转支是什么意思? 表示强健而有力的词语是什么 战斗机最快俯冲记录是多少什么战斗机? 氢氧化钠如何变成氯化钠? 制备乙酸乙酯时可以用哪些方法克服副反应 战斗机高速向俯冲时,经常来个底朝天,这是为什么?战斗机高速向俯冲时,经常来个底 氯化钠加氢氧化钠反应 百变机兽洛洛历险记的冲击波是多少集出现的? 战机俯冲是不是人血液有什么问题吗?看了绝密飞行,战机要俯冲2000节速度放导弹,为什么俯冲的时候那个人失去知觉了?平飞的时候4马赫都没事啊. 商转是什么意思? 关于制备乙酸乙酯反应的问题沸点:乙酸乙酯77.乙醇78.乙酸118,为什么反应物中应是乙醇过量,反应时边滴加醋酸边加热蒸馏。77.1与78.3如此接近,这样乙醇与乙酸乙酯不就一起被蒸出来了 室温下,向NaCl某溶液中加入10克NaCl晶体,充分搅拌后,尚有部分晶体未溶解,再加入10克水后,剩余晶体...室温下,向NaCl某溶液中加入10克NaCl晶体,充分搅拌后,尚有部分晶体未溶解,再加入10克水后,剩 试分析走滑断层与转换断层的联系与区别? 洛洛历险记冲击波必杀技是什么 过滤利用的原理是什么 内燃机的转速就是飞轮的转速吗? 洛洛历险记中冲击波是什么车? 新日电动车电池保养电动车的电池是用完了在充点好还是在有电的时候充电好 请辨别下图中得三个断层分别是什么断层,并分别解释为什么会形成这样的断层 地球是最早出现的原始生命,可能是什么类型 过滤的原理是________,适用于__________ 断层的定义及断距断层的定义,其中断距指什么 英特尔处理器数字代表什么意思 新日电动车专用电池 内燃机中,飞轮的作用? 震荡波角度怎样使牛头人释放震荡波的时候直接放出3道每到角度30度向前的每到的伤害一样 引力势能是负的 生长断层的定义是什么? 什么是冲击波 冲击波的作用是什么 引力势能是负的,那么怎样解释这个呢?在计算引力势能时,我们把无限远设为0势能面,可是在计算重力势能是,我们却把0势能面定义为地面.同样是万有引力,计算势能的标准完全相反? 转换断层与平移断层的区别,最好有图示! 平衡常数与吉布斯自由能请问这题选什么? 分子引力的定义是什么? 过滤的原理是什么? 氢氧化钠和盐酸反应生成的氯化钠是气体吗 求详细的解释为什么引力势能是负的? 请问氯化钠溶液PH值为5.5 需要加多少克氢氧化钠到7 20度 根据意思写词语:1(年轻人,孩子,动植物)强壮,健壮 2.看见别人有某种长处,好处或有利条件而希望自己也有. 吸气冲程是靠飞轮惯性的吗开始内燃机工作不是要由外力先启动吗 NaCl 溶液放入NaOH溶液中 NaOH 的PH值减少吗? 地球上最早出现的生命形式 (年轻人、孩子、动植物)旺盛地成长,健壮,强壮.相对应的词语是什么 在200g10%的氯化钠溶液中,再加入10g水,这时溶液的溶质质量分数是 强健有力的词义写词语生生世世 冲击波是什么?假设有氧气瓶. 生理盐水的浓度是多少? 二氧化碳,一氧化碳,氮分子的混合气体通过灼热的氧化铜,物质完全反映后得到混合气体通过足量石灰水,剩余气体是(水蒸气不计) 震荡波或者冲击波靠什么媒介来传播的? 向10%的90g氯化钠溶液中分别加入10g氯化钠,所得溶液的溶质质量分数为多少
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘