VB 版 (精华区)

发信人: zyc (项少龙), 信区: VB
标  题: API函数求助！！！
发信站: 哈工大紫丁香 (2000年05月23日16:04:03 星期二), 转信

vb4.0中ExitWindowsExec API函数，
可以重启进入dos,并执行指定的dos命令，然后再回到
windows,
在vb6.0中不知可不可以？

--
※ 来源:·哈工大紫丁香 bbs.hit.edu.cn·[FROM: hpwei.hit.edu.cn]
发信人: wpf (呆娃儿), 信区: VB
标  题: Re: API函数求助！！！
发信站: 哈工大紫丁香 (2000年05月23日20:51:00 星期二), 站内信件

你用vb6的api编辑器把哪个函数考过来，试一下（我的机器上没有vb

【 在 zyc (项少龙) 的大作中提到: 】
: 可否举一例子，我用了之后，关不了机，也没有错误提示！
: 【 在 wpf (呆娃儿) 的大作中提到: 】
: : 在vb4中怎么用，还是那样用


--
据说呆娃儿不笨

※ 来源:·哈工大紫丁香 bbs.hit.edu.cn·[FROM: 202.118.226.247]
发信人: zyc (项少龙), 信区: VB
标  题: Re: API函数求助！！！
发信站: 哈工大紫丁香 (2000年05月23日21:31:03 星期二), 站内信件

模块中：
Option Explicit
Public Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, By
Val dwReserved As Long) As Long
Public Const EWX_LOGOFF = 0
Public Const EWX_REBOOT = 2
Public Const EWX_SHUTDOWN = 1
窗体中：
Private Sub Command1_Click()
Dim Temp1 As Variant
Temp1 = ExitWindowsEx(EWX_SHUTDOWN, 0)
End
End Sub
运行后，不出错，但不能退出系统（nt4.0）
请指教！！


【 在 wpf (呆娃儿) 的大作中提到: 】
: 你用vb6的api编辑器把哪个函数考过来，试一下（我的机器上没有vb
: 【 在 zyc (项少龙) 的大作中提到: 】
: : 可否举一例子，我用了之后，关不了机，也没有错误提示！


--
※ 来源:·哈工大紫丁香 bbs.hit.edu.cn·[FROM: hpwei.hit.edu.cn]