在WindowsXP操作系统下,用VB6.0或.Net开发,如何实现关机?
注意!是关机,而不是注销!!!谢谢!!

解决方案 »

  1.   

    http://expert.csdn.net/Expert/TopicView1.asp?id=1924546
      

  2.   

    将优先权提高就行了,在没有足够的优先权的情况下关机将被忽略。用 ExitWindowEx 就行了。
      

  3.   

    Private Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long    Const ShutDown = 1    Const ReBoot = 2    Const LogOff = 0        Private Sub Command1_Click()    Dim Sh As Long    If Option1.Value = True Then     '关闭计算机选项    Sh = ExitWindowsEx(ShutDown, dwReserved)        End If        If Option2.Value = True Then        '重新启动计算机选项        Sh = ExitWindowsEx(ReBoot, dwReserved)        End If
           
            End Sub        Private Sub Command2_Click()        Unload Me        End SubPrivate Sub Form_Load()End Sub
      

  4.   

    窗体控件:option2个,command 三个,
      

  5.   

    请问:wynbfqny(今无心) 你所说的方法,我在xp下好像不好使,它只能注销,不知你用过没有,请提供一个好的方案,小弟谢了 EMail给我 :[email protected]