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

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的详细用法

轻松DIY智能硬件,开源电子原型平台Hippo-ADK 所见即所得!基于Polymer的设计工具Mobile UI Elements 好的产品经理是怎样炼成的? 统一架构、统一运维:UnitedStack发布UOS2.0 把轻应用带进汽车——宝马、百度编程马拉松大赛启动 “钢铁侠”Insteon的逆袭:声控智能家居新时代 游戏云纪元 第二届游戏运营技术论坛即将召开 Bitly:构建月处理60亿点击的分布式系统 重塑微软:Satya Nadella开启整合之路 推送工具个推完成B轮数千万美金融资 娱乐行业数据化 ABD爱梦娱乐发布大数据引擎产品 增强现实:10大AR应用窥探移动未来 LBS的硬件创新:高德LBS智能硬件编程马拉松圆满闭幕 2014优秀微信开发商评选上线 首批旅游汽车电商房产等行业应用出炉(表) 让梦想照进现实——宝马百度编程马拉松闭幕 IXDC大会:移动交互设计精髓——用户体验 想辨析“马航”等事件真伪,有很多技术和工具可以使用 两倍于IBM的基础设施投资,Google大力发展云服务 听云平台发布移动应用性能黑洞报告 微信开发者大会陶瑾:如何玩转微信支付功能的原理和开发 560亿PV+7.3亿用户,Reddit是如何做到的? 打造安全界的希波克拉底誓言文化 极客的春天来了! Mozilla COO宫力:老牌操作系统如何助力新一代智能电视 App提高用户留存率新招:应用性能监测 韩国手游市场规模超万亿 2014中韩手游项目对接会开幕在即 SanDisk发展之路:专注SSD、推新产品线 AMD发展线路图曝光,欲造500+平方毫米GPU 全球移动开发者:IAP降温,企业应用成待掘金矿 Vuforia 2014 视觉大奖赛:寻找最炫酷AR增强现实应用,迈向巅峰! MapReduce谢幕,谁将成为最终的接棒者? 变身音乐控制器!开源JavaScript库NexusUI 用jfreechart画出的图形,里边的汉字不太清楚,有没有解决的办法,要是图形小一点,模糊不清,难看死了,请问有没有解决办法?? 在vc.net中为什么新建的一个dialog,上面有双重的图象啊? asp&oracle问题 .net2003中vb升级向导有没有接口可以被其他程序调用? 以二进制方式打开文件,用ftell计算文件大小,为什么有时对有时不对? CHtmlEditView中如何实现表格的单元格大小调整? 城市夜归人 请问把一个二进制文件转换成文本文件,再把文本文件转换成二进制文件,该怎么做?求源代码?或有该代码的网址链接,多谢!不胜感激! 如何在一个网页中使用多种样式表显示多种效果? 直接用http调用代理怎么进行权限设置 CHtmlEditView中如何实现表格的单元格大小调整? 各位老大。。。如何用asp加密解密中文字符串,小生有礼了! 这段程序怎么不能运行?thinking in java 我的应用程序启动连接数据库时自动拨号,怎么去掉?? 谁给讲讲多线程!进着有分! 菜鸟问:jbuilder9比8都增加了什么功能?做了哪些改进? 给菜单加的快捷键怎么不管用呢 不能发mail 请问:这个存储过程哪儿不对呢?为什么执行不出来呢? 在dw中图片格式问题! CHtmlEditView中如何实现表格的单元格大小调整? 98启动的时候出现”press any key to continue"! 怎样将ASCII串转换成十六进制数? 在函數與過程裡中止其執行用什麼命令? CHtmlEditView中如何实现表格的单元格大小调整? java程序员都得会rose,懂UML吗? Red hat 7.2下编译程序出现的问题 rh9.0 怎么设置共享网络模式(NAT)? CHtmlEditView中如何实现表格的单元格大小调整? XP注册表文件名和保存位置?如何察看其他系统注册表的内容? DLL中的PROPERTYSHEET中使用CHTMLVIEW出现的问题 把编译好的程序作为windows服务注册后,启动时报错 Red hat 7.2下编译程序出现的问题 在客户端提交表单出错 win2000 server 管理员密码如何修改? 如何将 &#20013&#22269&#20154&#27665 转成 汉字"中国人民"? oralce导入问题 这里没有人用WEBMATRIX吗,在WEBMATRIX下如何引入EXCEL组件,俺要跳楼了。 wuxq7311(小清) 近来! 把编译好的程序作为windows服务注册后,启动时报错 用ip>"211.56.154.106" and ip<"211.56.154.210"能否控制访问的范围? 如何删除当前文件夹下的所有以*结尾的文件,即可执行文件 学习串口通信系列问题(一) (水园送分贴)大家觉得这个网站怎么样,给点评价 把编译好的程序作为windows服务注册后,启动时报错 触发器问题,高手帮我 问一个关于树控件的问题。请指教! 没有职业资格证书,没有毕业证书。仅有的是坚强的信念... 请各位帮忙提一下意见:偶想自考,选择什么专业? 请问:请问设计模式中最常用的有哪几种? 请问如何在Javascript内得到Url内的变量? MACHU PICCHU怎么样 7年级英语12单元50—51急啊,100分悬赏,对了再加+!云南省的,人教版 怎样的雄鸡 形容词 Some time,sometime,sometimes,some times的中文意思还有Look over的中文意思 边境封锁 (打一“外交词语”) 潮流先锋dope是什么啊? 诗句“处处闻啼鸟”中的“闻”应该是二声还是四声?1、闻(wén)2、闻(wèn) My favourable actor is Paul Jackson. 15个简单宾语从句(if,that,疑问词 引导的各5个)要简单的. who帮我讲一下 附加疑问词. Where is Machu Picchu(马丘比丘)?A.It is on an island .B.It is on a mountain.C.It is under the sea. 调查称八成美国人觉得同胞变粗鲁 行为芬兰拟针对就业市场形式对高等教育进行韩海军参谋总长希望提前部署3艘“宙斯韩称重启金刚山旅游需首先保障游客人身美报告警告称美国有600万青少年辍学韩抗议日本发布争议岛屿宣传片 欲召见报告称降低儿童死亡率尼日尔最成功 中记者追问医改网站故障 白宫发言人犯难美国会圆顶1300多条裂缝 50年最酝酿八旬六连任 麦凯恩欲2016年竞希腊女童疑曾遭拐卖 美国夫妻认为是其莫让高考改革“打摆子”一线城市“积分入户”仍不易 广州每年学者:中国经济前景光明 结构调整有所杭州一商贩雨后晾晒600多双被泡女鞋中石油拆分或非空穴来风昨日股价下跌闽侯上街生活用水贵如油 每吨四元百姓中西医结合不能“一边倒”让“看不见的手”充分施展网上北京户口要价达30万元 外地户口大城市有无当地户口差别明显 多个环节一线城市户口价值:居住越久 有无户口重生游戏场无上龙印武侠世界大冒险名侦探柯南之警察故事中生代机器人鸿蒙剑道末世黑暗纪寂灭万乘圣斗士之璀璨银河娱乐之逆袭星辰荣耀咸亨酒店旅游琴台路旅游隆兴寺旅游暖泉古堡旅游飞狐峪旅游草原天路旅游赤城温泉旅游西溪湿地西区旅游陈毅广场旅游都爹利街石阶旅游香港轩尼诗道旅游
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘