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

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

一个实用的Delphi屏幕拷贝程序的设计 用Delphi 显示122种图形特效 用Delphi编写DLL实现动态改变分辨率 用Delphi进行OpenGL编程学习心得 用Delphi开发windows95屏幕保护预览程序 用Delphi实现壁纸更换 用DELPHI实现位图显示特技 用DELPHI中Canvas特性开发图形软件 用构件变换法实现动画效果-Delphi资料 在Delphi中使用动态图标 在Delphi中显示Windows图标 在多媒体文件中批量抓取图象-Delphi资料 怎样读出不同格式图形的高和宽-Delphi资料 怎样使用PageUp、PageDown滚动窗体-Delphi资料 怎样制作全透明的窗口-Delphi资料 DELPHI:FormContainer简易手册 Delphi:用FormContainer渐变效果 Delphi4的窗口融合技术 Delphi使用技巧ABC Delphi使用技巧四则 DELPHI中自适应表单的实现 TList的用法-Delphi资料 不规则窗口的实现-Delphi资料 不用标题栏也移动窗体-Delphi资料 窗口建立和关闭时的特效-Delphi资料 窗口中状态行的显示-Delphi资料 动态提示的可视化实现-Delphi资料 动态修改显示器分辨率-Delphi资料 对数据库中的数据进行处理-Delphi资料 改变壁纸-Delphi资料 改变元件的视窗式样-Delphi资料 请教win2000 ad server版安装远程控制 请问哪里可以下载RIP,OSPF的源代码? 为什么在sql explorer里面可以执行的sql语句在delphi里面不可以执行呢 一个servlet调用另一个servlet编译问题 Jbuilder7注册文件哪有下载?谢谢 哪位有网上商场系统结构分析的文档!!(高分) 急用:怎么用控制台命令查看进程,并终止进程? 请问DELPHI编写使用SQL SERVER 2000的管理端用什么连接好点? 喜欢吉他的程序员来谈谈 用InstallShield如何安装COM+组件 帮我看看!先给100,答玩再给100 有谁能告诉我怎么使用索尼DSC-F717相机的“扩展”功能? 哪位有flash mx的汉化包?多谢了 MSSQL打开企业管理器后所有的数据都公开了,有没有办法能设立权限啊 出现了一个错误,搞不定哦help,在线 字符型变量如何转化为整型 为什么滚动条不工作? 请问 sqlserver2000中有可以把数据提出 , 输出到文本文件中的存储过程吗 那位大侠知道:如何返回webservice自身类的一个或多个实例? QuickReport是否可以套打?如何套打? 这段话看得太糊涂,请英语佳的大虾翻译一下 很诚恳的想问一个问题,可能对我的影响比较大。希望可以听听你们的意见!!!! 急急:谁能告诉我,tomcat4.1.18+sqlserver2000连接池如何配置、具体配置测试!我想把分全给他如果能的话 高分,简单问题.关于网格控件(在线等!) 触发器失败,是怎么回事啊?拜托。在线等待。。。 急需测试数据 关于连接的下载问题 在属性页中,各子页中类成员函数如何相互调用? 急!!!重载决策失败,原因是没有可访问的“Fill”可以用这些参数调用,怎么解决? 如何获取用户本地机的分辨率? 菜鸟的问题!!!在线等待! 请问一下印度做软件的报价~~~?? 急急~~ 求求求!!~~ 给满100分!! 关于WinRunner中遇到的难题,请高手帮忙! 请大家帮忙推荐几款linux下比较好用的看jpeg图和看mpeg4比较好用的软件! 请问数据库应用程序如何制作安装程序? 笔记本突然出现很多马赛克,然后死了,大概是什么原因? 各位大虾请进 求:0,1,-1的N长度组合算法 各位问一个比较少见的问题100分相送,急急急!!! 这样的条件判断语句要怎么写?(很简单的) 一款很不错的电子图书制作、资料管理软件 在-卢-<<利用XML实现通用WEB报表打印>>时报:未将对象引用设置到对象实例 DBEdit如何限制输入格式? 简单问题 ★★★狂急!请问怎样取得文件的创建日期!在线等!在线结贴!★★★ 初学xml,很简单的问题,就是不会,各位近来看看!一行代码搞不定… 有没有用于unix下c开发的dbx调试图形界面的工具? 哪位有tar 和 gzip 命令参数的详细中文介绍 jsp网站测试,欢迎大家测试 提问 请问有没有直接可以HTML(XHTML、SHTML)生成XML-XSL!!的工具 在word中公式编辑器里面,打函数那个括号怎么小点、好看点自变量t怎么小点啊,就是像正常函数那样的. 玻璃除霜的问题.好评! certificate的英文意思 在昆虫记中,作者将( )与( )融于一炉,娓娓道来.字里洋溢着作者本人对人对生命的( ) 这个玻璃开关保险有几个. 会计题.生产甲产品领用原材料a材料5000kg,单价10元,b材料2000kg,单价4元.求分录. 高一数学 奇偶性部分设函数f(x)是定义在r上的奇函数,f(x+2)=-f(x),当0≤x≤1时,f(x)=x,则f(7.5)等于 饱和溶解度怎么计算?有公式吗?楼下能给具体点的解释一下吗? 可导 连续 微分 有点晕,跪求大神给个好理解的说法.直观一点~不要说那些可导一定连续什么的 方便记忆的话 帮我组几个四字词语,其中必须要有海洋两个字.X海X洋、XX海洋或者海洋XX.谢了~用来做网名的~ certification 和 verification的区别如题 雅思中,qualification资格证 certificate证书 有什么差别? 一个金属球带电为+Q,怎么使它带Q/3,Q/5一个金属球带电为+Q,给很多个完全相同不带电的金属球,怎么使金属球带Q/3,Q/5 如何去看溶解度图像.如何判断是否达到饱和容液? 光在透明介质中沿直线传播对吗? 数学共有多少种函数?数不清 钢化透明玻璃与普通透明玻璃色彩相同吗我的意思是说如果放两块5平米左右的在一个空间里从视觉上能看出它们的不同色彩么还是它们两块就是一样看不出来呢从视觉要怎么样才能分辩出来 植物体中的一切有机物是不是都是植物直接从无机物合成而来?糖类 氨基酸 磷酸 脂质 核糖体等等这一切有机物,植物体都是自身合成的吗?植物是不是不能从外界摄取现成的有机物,或者说即 数学——函数类在直角坐标系中,抛物线y=-4/9x^2+2/9mx+5/9m+4/3与x轴交与a,b两点,点a在负半轴上,点b在正半轴上,且|OB|=2|OA|,点c是抛物线的顶点.1)求m的值.2)若点p在抛物线的对称轴上,且圆p与x轴及 holmesglen的diploma和certificate有什么区别?哪个好用一点?想在holmesglen念bakery&patisserie 可是发现这个还有diploma和certificate 这两个有什么区别 哪个好用一点?diploma是Diploma of Hospitality (Patisserie) certific 水电离为什么要强调稀溶液时Kw不变浓溶液为什么不适用''' 函数类的数学困难题1.已知奇函数y=f(x)定义域是【-3,3】,当-3≤x≤0时,f(x)=-x²-2x,则0≤X≤3时,函数解析式为( )2.若函数f(x)=loga^x(0<a<1)在区间【a,2a】上的最大值是最小值的3倍,则a的值为 certificate与diploma区别 红外光谱为什么要用 稀溶液! 同桌女,上课干那个怎么办同桌是女的,她狂追exo什么的,说话特肉麻,同学们说她发情期,自习课时写着作业,她居然把手放在自己裤子里摸索,我假装写作业装没看到,她却眼神迷离地看着我,一脸 cacl2使布条退色下列物质,不能使有色布条退色的是A 次氯酸钠 B次氯酸钙 C氯水 D氯化钙求详细过程 中国移动通讯(汉译英) 有比较好用的手机移动电源吗?是哪一种啊? 成立“关爱留守儿童”协会策划书怎么写uqT 移动 汉译英我想知道,移动电话里说的那些您拨叫的用户占时无法接通,还有,您拨叫的用户已关机,您拨叫的用户不在服务区,等等,要和移动一摸一样的,.. we've got the 急求一份关于关爱孤残儿童活动的策划书 汉译英:“一张地图,不论多少详尽,比例多少精确,它永远不能带你在地面上移动半步”我这跛脚的英语译得很生硬, 溶进和融进的区别 一个人从懂事以来只活了多少年?比如一个人活八十岁.从20岁开始懂事.他到底活了多少年20以前不算.你们猜哈 『慢慢地你会明白』是什么意思啊!?拜托各位了 3Q 下列各组中的离子能大量共存于同一溶液中的是A.Fe3+ Na+ F- I- B.Fe3+ K+ NO3- SCN-C,Fe2+ K+ Cl- I-D,K+ Fe2+ MnO4- SO4 2- 消防系统气压罐容积问题消防系统中的稳高压系统给水(稳压泵和气压罐)中气压罐的容易怎么确定呀 可不可以用气压罐代替高位水箱呢 ZARA的包为什么沾水就变色了?3Q沾水变色之后该怎么处理?会不会颜色就回不来了啊? 公式编辑器中如何使大括号内的方程都左对齐? Fe3O4为什么会有磁性 化学必修一第一章复习题 第一题为 已知XmolH2O中含有y个H2O水分子,则阿弗加德罗常数为----这是一份试题 求第一题为已知XmolH2O中含有y个H2O水分子,则阿弗加德罗常数为---- 的必修一化学第一章 英文里的certificate 和 diploma有什么区别?这两者的意思分别是什么? 磁化率是?及磁化率用途给出公式,现在自学中, 人平均年龄活多少年啊拜托各位了 3Q? 以下几句可用于人生哪一阶段 老骥伏枥,志在千里;烈士暮年,壮心不已.-----汉 曹操《龟虽寿》 夕阳无限以下几句可用于人生哪一阶段 老骥伏枥,志在千里;烈士暮年,壮心不已.-----汉 曹操《 原肠胚是不是属于早期胚胎? fff团只烧异性恋咩? 地埋式污水处理设备埋设深度一般为多少 为什么单刀双掷开关接3个接线柱 即热式电热水器,离子加热是什么原理?比紫铜加热管哪个好?淘宝上所谓的史密斯紫铜管pk许多离子加热新技术不知哪个好?有个叫什么--双核-镍金甲盾离子加热管,号称最新技术,能效转化率近10 certificate是否是可数名词 certificate 单刀双掷开关属于串联还是并联 贵阳车牌照分类,专断号牌.贵阳车牌照怎么分类的?越详细越ok.普通牌照是什么?牌照尾号是英文的又是什么意思? 老骥伏枥 志在千里 烈士暮年 壮心不已表达了作者怎样的情怀? fumigation certificate是什么意思 在蔬菜、水果保鲜时,细胞呼吸的应用原理?1.在蔬菜、水果保鲜时,增加二氧化碳浓度或充入氮气,可抑制细胞呼吸,减少有机物的消耗.那么,增加二氧化碳浓度或充入氮气,可抑制细胞呼吸.具体 玻璃小说 roseonly certificate是什么意思 德媒称奥巴马知晓“监听门”格鲁吉亚选总统最高法强调依法办案 排除权力金钱人情河北冀宝斋博物馆馆长王宗泉去世 馆方俄称愿与北约就导弹防御系统进行建设性美4囚犯上演浴室版“越狱” 2人被缉美方称机密情报泄露未对美外交政策造成美方称机密情报泄露未对美外交政策造成北京首发蓝色预警 35监测站点全部重南京财政局长被问收入:没够单独申报个北京首发空气重污染蓝色预警 29日空索马里“伊斯兰青年运动”高级指挥官被参议员贪污风波袭扰加拿大 哈珀政府骑霍英东家族争产风波再掀波澜 大哥三弟英首相:媒体爆料美监听丑闻是“资敌”平等对话才能改善美伊关系华人血腥灭门案惊扰纽约 落魄凶手因嫉“金发女孩”父母否认卖女儿 因没钱放上海自贸区制度框架成型 将迎新一轮政消保法修订多维度保障权益 监管与惩罚福建株连拆迁教师停课劝母 停课50天意大利两架战机相撞坠毁世界女排大奖赛总决赛中国姑娘“新阵”爱时尚 更要提防皮肤病女子垒球世锦赛中国队5战2胜兰州部分市场昨日菜价(中间价:元/公本报利群阳光助学行动圆满结束爱心企业助西固25名贫困学子圆梦停车场内,逮住毒贩缴获海洛因1公斤汇胜购物里的美味休闲地面包车“飞”出高速 8人受轻伤网曝江苏一企业中秋送礼名单家中查抄到1000多万元现金最大反垄断罚单戳中零部件软肋下水井堵塞十天 人行道污水泛滥开学在即 大学新生谨防骗局读者心语告别白癜风 你也可以做到热线帮办卦摊“黏上”五泉山 金城名片很“受伤金城“蟹斗”提前上演选择海大装饰 奢享完美精装
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘