Private Sub Command1_Click()
Set wshshell = CreateObject("WScript.Shell")
wshshell.SendKeys "^{ESC}u"
wshshell.SendKeys "R"
End Sub
这是一个关机的编码 可我点击按钮怎么一点反应都没有   哪位老师指教一下  谢谢

是同时按  ctrl esc u  然后按 r   
这是我从网上找到的