首先，我是 VB 语言、VB 脚本和 VB.net 编程的新手，但在其他语言和平台方面相当擅长。
我的目标是从命令行运行一个简单的基于 VB 的程序并让它弹出一个消息框（那部分我想通了）。此外，如果计算机同时进入睡眠模式（或从睡眠模式恢复），我希望消息框（以及脚本）终止。
我在 VBForums 上找到了有关处理程序的代码：
'add the handlers for the system standby, resume, and shutdown
AddHandler Microsoft.Win32.SystemEvents.PowerModeChanged, AddressOf PowerModeChanged
AddHandler Microsoft.Win32.SystemEvents.SessionEnding, AddressOf SessionEnding
[...]
Private Sub PowerModeChanged(ByVal sender As System.Object, _
ByVal e As Microsoft.Win32.PowerModeChangedEventArgs)
Select Case e.Mode
Case Microsoft.Win32.PowerModes.Resume
'windows is resuming from sleep
Case Microsoft.Win32.PowerModes.Suspend
'goodnite windows
End Select
End Sub
Private Sub SessionEnding(ByVal sender As System.Object, _
ByVal e As Microsoft.Win32.SessionEndingEventArgs)
Select Case e.Reason
Case Microsoft.Win32.SessionEndReasons.Logoff
'logoff
Case Microsoft.Win32.SessionEndReasons.SystemShutdown
'shutdown
End Select
End Sub
所以我制作了一个使用上述（第一个版本）的 .vbs 文件并运行它：
Sub PowerModeChanged(ByVal sender As System.Object, _
ByVal e As Microsoft.Win32.PowerModeChangedEventArgs)
Select Case e.Mode
Case Microsoft.Win32.PowerModes.Resume
'windows is resuming from sleep
WScript.Quit
Case Microsoft.Win32.PowerModes.Suspend
'goodnite windows
WScript.Quit
End Select
End Sub
Sub Main()
Set objArgs = WScript.Arguments
msgText = objArgs(0)
AddHandler Microsoft.Win32.SystemEvents.PowerModeChanged, AddressOf PowerModeChanged
MsgBox msgText
End Sub
Main()
但是我遇到了各种语法错误（on As,AddressOf等）。经过一些测试和谷歌搜索后，我开始意识到一些 VB 实体似乎更严格的类型，并且比其他实体具有更进化的语法。所以这是我的第二个版本，它几乎成功地通过了语法阶段：
Sub PowerModeChanged(sender, e)
Select Case e.Mode
Case Microsoft.Win32.PowerModes.Resume
'windows is resuming from sleep
WScript.Quit
Case Microsoft.Win32.PowerModes.Suspend
'goodnite windows
WScript.Quit
End Select
End Sub
Sub Main()
Set objArgs = WScript.Arguments
msgText = objArgs(0)
AddHandler Microsoft.Win32.SystemEvents.PowerModeChanged, PowerModeChanged
MsgBox msgText
End Sub
Main()
现在口译员在电话线上抱怨“要求：'Microsoft'” AddHandler。在这一点上，我不知道该怎么办。我试过Microsoft.AddHandler但没有奏效。
所以如果你能帮我修复这条线，我将不胜感激，并告诉我是否有任何其他东西可以使这个小程序正常工作。
谢谢你。