我是使用XP系统的shutdown加参数来实现的Private Sub Command1_Click()Shell "shutdown -S -t 0"End Sub
Private Sub Command2_Click()Shell "shutdown -R -t 0"End Sub
Private Sub Command3_Click()Shell "shutdown -l"End Sub
Private Sub Command4_Click()Unload MeEnd Sub