在VB里面如何调用待机程序？

试试这个

Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)

Private Sub Command1_Click()
keybd_event 94, 0, 0, 0
keybd_event 94, 0, 2, 0
End Sub
setsystempowerstate参数不同可是现待机或休眠，或者：
按下Command1按钮将打开“计算机待机状态”窗口，15秒后系统自动进入待机（睡眠）等待状态。
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Const WM_SYSCOMMAND = &H112&
Const SC_SCREENSAVE = &HF140&

Private Sub Command1_Click()
Dim result As Long
result = SendMessage(Form1.hwnd, WM_SYSCOMMAND, SC_SCREENSAVE, 0&)
End Sub
我个人见解，不能实现的话请联系我