荔园在线
荔园之美，在春之萌芽，在夏之绽放，在秋之收获，在冬之沉淀
[回到开始]
[上一篇][下一篇]
发信人: Deny (あなたがすき), 信区: Program
标 题: Re: 谁有重新启动系统的小文件/
发信站: BBS 荔园晨风站 (Sat Oct 7 21:41:48 2000), 转信
转自《中国计算机报》[一九九七年十月六日 总第678期] 第128版
VB调用API函数技巧--重新启动Windows
首先，在module文件中加入下列声明语句：
Public Declare Function ExitWindows Lib "user32" Alias "ExitWindows"
(ByVal dwReserved As Long, ByVal uReturnCode As Long) As Long
Public Const EW_REBOOTSYSTEM = &H43
Public Const EW_RESTARTWINDOWS = &H42
然后，在Form中加入一个CommandButton控件，在
它的Click事件中加入下列代码：
Dim Ret As Integer
Ret = ExitWindows（EW_RESTARTWINDOWS，0）
……
程序运行后，只要按下该CommandButton控件，Windows系统
便会重新启动。若将上述代码改为：Ret = ExitWindows（EW_REBOOTSYSTEM，0），
则将重新启动计算机系统。
【 在 drinkwater (有事别烦我) 的大作中提到: 】
: how?
: 【 在 Deny (あなたがすき) 的大作中提到: 】
: 自己调用api做一个啦
: 【 在 drinkwater (有事别烦我) 的大作中提到: 】
--
精诚所致，金石为开
※ 修改:·jek 於 Oct 8 07:18:14 修改本文·[FROM: 192.168.1.118]
※ 来源:·BBS 荔园晨风站 bbs.szu.edu.cn·[FROM: 192.168.1.114]
[回到开始]
[上一篇][下一篇]
荔园在线首页 友情链接：深圳大学 深大招生 荔园晨风BBS S-Term软件 网络书店