VBA -如何使用ShellExecute？

Question

我正试着让电脑通过excel VBA来睡觉。要做到这一点，我需要禁用透明，这只能通过提升的权限。所以我正在尝试ShellExecute --按照微软在此页上的说明，但我得到了一个运行时错误('49‘不好的DLL调用约定)。

编辑:更改代码，它现在工作，但参数是不正确的。

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" ( _
                                                             ByVal hwnd As Long, _
                                                             ByVal lpszOp As String, _
                                                             ByVal lpszFile As String, _
                                                             ByVal lpszParams As String, _
                                                             ByVal lpszDir As String, _
                                                             ByVal FsShowCmd As Long) as long
Const SW_SHOWNORMAL as long = 1
Sub DoSleep()
    ShellExecute 0, "runas", "C:\WINDOWS\System32\rundll32.exe", "powercfg -h off", "C:\", SW_SHOWNORMAL
    Shell "C:\WINDOWS\System32\rundll32.exe powrprof.dll,SetSuspendState 0,1,0"
    ShellExecute 0, "runas", "C:\WINDOWS\System32\rundll32.exe", "powercfg -h on", "C:\", SW_SHOWNORMAL
End Sub

Answer 1

SW_SHOWNORMAL的定义有一个问题。定义它的方式假设它是一个Integer ( VBA的默认值是16位值)，其中它需要是Long (32位值)。

将您的声明改为：-

Const SW_SHOWNORMAL As Long = 1