精华区文章阅读

发信人: Mice (开心果), 信区: VisualBasic
标  题: [转载] [P]VB调用API函数技巧--重新启动Windows
发信站: 紫丁香 (Mon Nov 16 19:12:10 1998), 转信

【以下文字转载自 VisualProgram 讨论区】
【原文由 Mice 所发表】
发信人: xiaobo (激情蕴于心中), 信区: Programming
标　题: VB调用API函数技巧--重新启动Windows
发信站: BBS 水木清华站 (Sun Oct  5 10:51:02 1997)

转自《中国计算机报》[一九九七年十月六日总第678期] 第128版

VB调用API函数技巧--重新启动Windows

　　首先，在module文件中加入下列声明语句：

　　DeclareFunction ExitWindows Lib＂User＂（ByValdw
ReturnCodeAsLong，ByValwReservedAsInteger）AsInteger

　　PublicConstEW—REBOOTSYSTEM=&H43

　　PublicConstEW—RESTARTWINDOWS=&H42

　　然后，在Form中加入一个CommandButton控件，在
它的Click事件中加入下列代码：

　　DimRetAsInteger

　　RetΚExitWindows（EW—RESTARTWINDOWS，0）

　　……

　　程序运行后，只要按下该CommandButton控件，Windows系统
便会重新启动。若将上述代码改为：Ret=ExitWindows（EW—REBOOTSYSTEM，0），
则将重新启动计算机系统。

--
  江声浩荡，自屋后上升......
                            --《约翰.可利斯朵夫》

※ 来源:·BBS 水木清华站 bbs.net.tsinghua.edu.cn·[FROM: 166.111.26.20]

--
☆ 来源:．哈工大紫丁香 bbs.hit.edu.cn．[FROM: 老巴夺转信机器人程序]
--
※ 转载:．紫丁香 bbs.hit.edu.cn．[FROM: fengyun.hit.edu.]
--
※ 转载:．紫丁香 bbs.hit.edu.cn．[FROM: cad4.hit.edu.cn]

VB 版 (精华区)