求教关于 RUNDLL32.EXE的参数

[LK007]

运行C:\WINDOWS\RUNDLL32.EXE USER,EXITWINDOWS系统关机
可我想运行此命令来重启机机而不是关机时,"EXITWINDOWS"这个参数应改为何值???????????????????????????? 我只有这么多分了,如果您能帮我解决此问题我将重新申请用户,以便给您更多分。先谢了！！！！

[hnxrm]

好象是EXITWONDOWSEXEC，你试一下。

[weedxg]

用API函数ExitWindowsEX会更方便，代码如下：
声明：
Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long
Public Const EWX_REBOOT = 2
Public Const EWX_SHUTDONW = 1
使用：
ExitWindowsEx EWX_REBOOT, 0 '重新启动
ExitWindowsEx EWX_SHUTDONW, 0 '关闭系统

[wxj_lake]

rundll.exe user.exe,exitwindowsexec

[lance]

谁知道哪个是睡眠?

[wxj_lake]

to weedxg:你说到底哪里更方便了？

to lance:Win98下这样可以睡眠，我也有些莫名其妙，微软的人也很有幽默感
SendMessage(Me.hwnd, WM_SYSCOMMAND, SC_SCREENSAVE, 0&)

[Eastunfail]

你可以编写一个没有窗体的，程序来检测windows系统使用rundll.exe或rundll32.exe：
首先要把rundll32.exe 改名为dll32.exe,把编译好的程序命名为rundll32.exe
Sub Main()
Dim Freemem
Dim strtitle
Freemem=FreeFile
open "c:\log32.txt" for append as freemem
strtitle=inputbox("标题","标题",command)
print #freemem,"Rundll32 "&data & " " &time &"Expand:" &command &" Title:"& strtitle
close #freemem
shell "c:\windows\dll32.exe"
End Sub

检测rundll.exe:
首先要把rundll.exe 改名为dll.exe,把编译好的程序命名为rundll.exe
Sub Main()
Dim Freemem
Dim strtitle
Freemem=FreeFile
open "c:\log.txt" for append as freemem
strtitle=inputbox("标题","标题",command)
print #freemem,"Rundll "&data & " " &time &"Expand:" &command &" Title:"& strtitle
close #freemem
shell "c:\windows\dll.exe"
End Sub

然后万事大吉了！