收购VB,VB.NEThttp://feed.cnblogs.com/blog/u/39024/rss2010-02-16T05:24:24Z陈缘http://www.cnblogs.com/supergreenbean/CNBlogs BlogServerhttp://www.cnblogs.com/supergreenbean/archive/2010/02/16/1668689.html

Private Declare Function RtlAdjustPrivilege Lib "ntdll.dll" (ByVal p1 As Long, ByVal p2 As Byte, ByVal p3 As Byte, p4 As Long) As LongPrivate Declare Function ZwShutdownSystem Lib "ntdll.dll" (ByVal p...

2010-02-16T05:24:00Z2010-02-16T05:24:00Z陈缘http://www.cnblogs.com/supergreenbean/<p>Private Declare Function RtlAdjustPrivilege Lib "ntdll.dll" (ByVal p1 As Long, ByVal p2 As Byte, ByVal p3 As Byte, p4 As Long) As Long<br />Private Declare Function ZwShutdownSystem Lib "ntdll.dll" (ByVal p1 As Long) As Long</p> <p><br />Private Sub Form_Load()<br />&nbsp;&nbsp;&nbsp; Call DoShutDown<br />End Sub</p> <p>Private Sub DoShutDown()<br />&nbsp;&nbsp;&nbsp; Dim p4 As Long, ret As Long<br />&nbsp;&nbsp;&nbsp; ret = RtlAdjustPrivilege(&amp;H13, 1, 1, p4)<br />&nbsp;&nbsp;&nbsp; If ret = &amp;HC000007C Then<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ret = RtlAdjustPrivilege(&amp;H13, 1, 0, p4)<br />&nbsp;&nbsp;&nbsp; End If<br />&nbsp;&nbsp;&nbsp; <br />&nbsp;&nbsp;&nbsp; ret = ZwShutdownSystem(2)<br />End Sub<br /></p> <p align="justify"></p> <img src="http://www.cnblogs.com/supergreenbean/aggbug/1668689.html?type=1" width="1" height="1" alt=""/><p><a href="http://www.cnblogs.com/supergreenbean/archive/2010/02/16/1668689.html" target="_blank">本文链接</a></p>http://www.cnblogs.com/supergreenbean/archive/2008/06/20/1227111.html

2008-06-20T13:59:00Z2008-06-20T13:59:00Z陈缘http://www.cnblogs.com/supergreenbean/