精华区文章阅读

发信人: bloom (├┝┞┟┠┢┣�), 信区: VB
标  题: ser32(转载)
发信站: 哈工大紫丁香 (2000年09月07日18:36:45 星期四), 转信

【以下文字转载自 cnTemp 讨论区】
【原文由 catchy 所发表】
名称: ExitWindows
声明:
Public Declare Function ExitWindows Lib "user32" Alias "ExitWindows" (ByVal
dwReserved As Long, ByVal uReturnCode As Long) As Long

参数:
        1.dwReserved
        2.uReturnCode
例子:
        1-5，

发信人: xiaobo (激情蕴于心中), 信区: Visual
标  题: VB调用API函数技巧--重新启动Windows (转载)
发信站: BBS 水木清华站 (Sun Oct  5 11:22:24 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.hit.edu.cn．[FROM: casi.bbs@smth.org]
--
※ 转载:．哈工大紫丁香 bbs.hit.edu.cn．[FROM: 202.118.247.254]

VB 版 (精华区)