★★★简单问题送高分★★★：为何下列sendkeys语句不起作用？

[deak]

Private Declare Function ShutDownDialog Lib "shell32" Alias "#60" (ByVal YourGuess As Long) As Long

Dim ret As Long
Dim Flags As Long
Flags = EWX_SHUTDOWN
If Force Then Flags = Flags + EWX_FORCE
If IsWinNT Then EnableShutDown
ShutDownDialog 2&
SendKeys "{ENTER}", True
导致不能自动关机

[y1g1y1]

那可是系统模式窗口~！
这个“关机对话框”没有关闭的话，程序后面的代码不会执行！

[LikeMySoft]

直接用ExitWindowsEx(EWX_SHUTDOWN,0)这个API吧！不过好像对Win2000最多只是注销一样的一下！

[DeD]

Private Declare Function ShutDownDialog Lib "shell32" Alias "#60" (ByVal YourGuess As Long) As Long

Dim ret As Long
Dim Flags As Long
Flags = EWX_SHUTDOWN
If Force Then Flags = Flags + EWX_FORCE
If IsWinNT Then EnableShutDown
SendKeys "{ENTER}", false
ShutDownDialog 2&

导致不能自动关机

[enterzhuang]

这是因为windows的关闭对话框还没出现，你的"{Enter}"已经发送到活动窗口，以致关闭对话框接给不到该按键信息。

[deak]

to y1g1y1:那如何在调用关机对话框后自动关机？
另外：我在程序中用SendKeys "{capsclock}", True语句为何键盘灯不亮？
to LikeMySoft:用ExitWindowsEx不能关闭电源！
to DeD:你的方法我试过不行！

[deak]

to enterzhuang:我是先调用关闭对话框，再发送"{Enter}"，如何解决关闭对话框接收不到该按键信息问题？

[DeD]

win2000就可以

[deak]

to DeD:我用的就是win2000 server,怎么不行？
另外：我在程序中用SendKeys "{capsclock}", True语句为何键盘灯不亮？

[deak]

to DeD:我又试一下，可以，谢谢！
那为什么我在程序中用SendKeys "{capsclock}", True语句为何键盘灯不亮？

[deak]

谁能回答我第二个问题也有重赏！
为什么我在程序中用SendKeys "{capsclock}", True语句为何键盘灯不亮？

[deak]

to PHUnter:thanks,但事实上关闭对话框还是接收到sendkeys该按键发送enter的信息

[PHUnter]

[PHUnter]

sendkey发送的只是虚拟键码
只能有虚拟键码中的才可以发送
并且你的发送enter的办法太想当然了
底层的默认按钮不是直接接受回车的

[PHUnter]

对，但是不是你那样send的
既然谢了，就留着你的分给别人吧
给我也行啊

[PHUnter]

他是通过发送sendmessage来发送虚键码的
不要试图做这个想当然的事情
他肯定有api的

[deak]

add